; Lee Mac - via theswamp.org
Code:
(defun c:dimextsuppress ( / a i s x )
(initget "First Second Both ON")
(setq a (cond ((getkword "\nExtension line to suppress [First/Second/Both or ON] <Both>: ")) ("Both")))
(if (setq s (ssget "_:L" '((0 . "*DIMENSION"))))
(progn
(regapp "ACAD")
(setq x
(list
(list -3
(append
'("ACAD" (1000 . "DSTYLE") (1002 . "{"))
(if (member a '("First" "Both")) '((1070 . 75) (1070 . 1)))
(if (member a '("Second" "Both")) '((1070 . 76) (1070 . 1)))
(if (member a '("ON")) '((1070 . 76) (1070 . 0)))
(if (member a '("ON")) '((1070 . 76) (1070 . 0)))
'((1002 . "}"))
)
)
)
)
(repeat (setq i (sslength s))
(entmod (append (entget (ssname s (setq i (1- i)))) x))
)
)
)
(princ)
)
Laatst bewerkt 13 mrt 2017 21:28 door Lammerts.
Graag Inloggen of een account aanmaken deelnemen aan het gesprek.
