Lisp更改所有对象

mikeSIEMENS · 发表于 2022-7-6 11:52:23

我们有从solid edge转换而来的图形，并且没有正确打印，因为文本的颜色是0128128格式，而不是128格式。有没有办法将颜色为0128128的所有对象更改为笔样式可以识别的正常AutoCAD颜色？

Lee Mac · 发表于 2022-7-6 13:03:03

像这样的？


(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))

[编程交流] Lisp更改所有对象

发表回复

精选推荐