0 Members and 1 Guest are viewing this topic.
(if (setq sel (ssget "_X" '((0 . "HATCH") (410 . "Model"))))(progn(setvar 'qaflags 1)(vl-cmdf "_.-hatchedit" sel "" "_DI")(setvar 'qaflags 0)))
QAFLAGS 1(if (setq sel (ssget "_X" '((0 . "HATCH") (410 . "Model"))))(command "_.-HATCHEDIT" sel "" "_DI"))QAFLAGS 0
(or (boundp 'c:dehatch) (load "dehatch.lsp" nil)) (if (boundp 'c:dehatch) (c:dehatch))