Lisp更改所有对象
我们有从solid edge转换而来的图形，并且没有正确打印，因为文本的颜色是0128128格式，而不是128格式。有没有办法将颜色为0128128的所有对象更改为笔样式可以识别的正常AutoCAD颜色？ 像这样的？(defun c:cChng (/ clr i ss ent elst)
(vl-load-com)
(if (and (setq clr (acad_colordlg 0))
(setq i -1 ss (ssget "_:L")))
(while (setq ent (ssname ss (setq i (1+ i))))
(setq elst
(vl-remove-if
(function
(lambda (x)
(vl-position (car x) '(62 420)))) (entget ent)))
(entmod (append elst (list (cons 62 clr))))))
(princ))
页:
[1]