---

Hallo,
eine Frage an die Profis.
ich möchte den Gruppencode von Multi-Führungslinie ändern und zwar den vom MText (Textzeilenabstands-Faktor 0.9595, Textzeilenabstands-Stil Genau), aber wie komme ich an den ran?
Der GC 45 und 170 ist mehrfach vorhanden.

Code:

---

(progn 
(setq en (entlast))
(setq ed (entget en))
(setq ed (subst (cons 45 0.954545 )(assoc 45 ed) ed))
(setq ed (subst (cons 170 2 )(assoc 170 ed) ed))
(entmod ed)
)
)

---

-------------------------------------------
Die Element-Gruppen-Codes für dieses Element lauten :
-------------------------------------------
(-1 . <Objektname: 7fffe27c820> )
(0 . "MULTILEADER")
(330 . <Objektname: 7fffe2759f0> )
(5 . "11EA")
(100 . "AcDbEntity")
(67 . 0)
(410 . "Model")
(8 . "TEXT")
(100 . "AcDbMLeader")
(270 . 2)
(300 . "CONTEXT_DATA{")
(40 . 1.0)
(10 1916.07 3379.95 0.0)
(41 . 11.0)
(140 . 1.0)
(145 . 5.0)
(174 . 1)
(175 . 1)
(176 . 2)
(177 . 0)
(290 . 1)
(304 . "fasdsa")
(11 0.0 0.0 1.0)
(340 . <Objektname: 7fffe25c560> )
(12 1957.5 3385.54 0.0)
(13 1.0 0.0 0.0)
(42 . 0.0)
(43 . 0.0)
(44 . 0.0)
(45 . 0.954545)
(170 . 2)
(90 . -1023410173)
(171 . 3)
(172 . 5)
(91 . -1073741824)
(141 . 0.0)
(92 . 0)
(291 . 0)
(292 . 0)
(173 . 0)
(293 . 0)
(142 . 0.0)
(143 . 0.0)
(294 . 0)
(295 . 0)
(296 . 0)
(110 1972.5 3082.32 0.0)
(111 1.0 0.0 0.0)
(112 0.0 1.0 0.0)
(297 . 0)
(302 . "LEADER{")
(290 . 1)
(291 . 1)
(10 1972.5 3379.95 0.0)
(11 -1.0 0.0 0.0)
(90 . 0)
(40 . 10.0)
(304 . "LEADER_LINE{")
(10 1972.5 3082.32 0.0)
(91 . 0)
(170 . 1)
(92 . -1056964608)
(340 . <Objektname: 0> )
(171 . -2)
(40 . 0.0)
(341 . <Objektname: 0> )
(93 . 0)
(305 . "}")
(271 . 0)
(303 . "}")
(272 . 9)
(273 . 9)
(301 . "}")
(340 . <Objektname: 7fffe2aeb70> )
(90 . 279552)
(170 . 1)
(91 . -1056964608)
(171 . -2)
(290 . 1)
(291 . 1)
(41 . 10.0)
(342 . <Objektname: 7fffe2aeb00> )
(42 . 1.0)
(172 . 2)
(343 . <Objektname: 7fffe25c560> )
(173 . 1)
(95 . 1)
(174 . 1)
(175 . 2)
(92 . -1023410173)
(292 . 0)
(93 . -1056964608)
(10 1.0 1.0 1.0)
(43 . 0.0)
(176 . 0)
(293 . 0)
(294 . 0)
(178 . 0)
(179 . 3)
(45 . 1.0)
(271 . 0)
(272 . 9)
(273 . 9)

Danke für eure Hilfe

 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

wie ist es hiermit? ... :

(vl-load-com)
(and(setq OBJ(car(entsel "\nMultileader wählen:")))
    (setq OBJ(vlax-ename->vla-object OBJ))
    (vlax-property-available-p OBJ "TextLineSpacingFactor")
    (vlax-property-available-p OBJ "TextLineSpacingStyle")
    (not(vl-catch-all-error-p(vl-catch-all-apply 'vla-put-TextLineSpacingFactor (list OBJ 0.95))))
    (not(vl-catch-all-error-p(vl-catch-all-apply 'vla-put-TextLineSpacingStyle  (list OBJ acLineSpacingStyleExactly))))
)

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das ist super 

Danke

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP