Ja
(and(setq OBJ(car(entsel "\nBemaßung wählen:")))
(setq OBJ(vlax-ename->vla-object OBJ))
(not(vl-catch-all-error-p
(vl-catch-all-apply
'vla-put-DimLine2Suppress (list OBJ :vlax-true)
)
)
)
(not(vl-catch-all-error-p
(vl-catch-all-apply'
'vla-put-ExtLine2Suppress (list OBJ :vlax-true)
)
)
)
)
------------------
- 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