Mal ein Ansatz zum weiterausbauen :
(defun C:EDIT-DIM (/ OBJEKT )
(vl-load-com)
(if (and(setq OBJEKT(ssname(ssget "_:S" '((0 . "DIMENSION")))0))
(setq OBJEKT(cond
((=(type OBJEKT) 'VLA-object) OBJEKT)
((=(type OBJEKT) 'Ename) (vlax-ename->vla-object OBJEKT))
)
)
)
(progn
(initget "J N")
(if (=(getkword "\nWirklich ? [J]a/[N]ein:<N> ")"J")
(progn
(vlax-put-property OBJEKT 'DimLine2Suppress :vlax-true)
(vlax-put-property OBJEKT 'ExtLine2Suppress :vlax-true)
)
)
)
)
)
Das Lisp in einen support-Ordner und dann
(load "edit-dim.lsp") in die mnl .. (oder händisch laden)
und
^C^Cedit-dim auf 'n Button
Bei Fragen ..
------------------
- Thomas -
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP