弹出彩色对话框，谁能做

lucas3 · 发表于 2022-7-5 23:47:33

这个lisp可以改变实体颜色，一个或多个，我想弹出颜色对话框，并选择一种颜色，你能帮我吗？非常感谢。
更改实体颜色。lsp

MSasu · 发表于 2022-7-6 00:02:09

请检查ACAD\U COLORDLG功能。

Tharwat · 发表于 2022-7-6 00:07:44

试试这个。。。


(defun c:ChgClr (/ c s i e)
 ;;    Tharwat 17.12.2013    ;;
 (if (and (setq c (acad_colordlg 1))
          (progn (print (strcat "Select objects to change to color < " (itoa c) " > :"))
                 (setq s (ssget "_:L" ))
          )
     )
   (repeat (setq i (sslength s))
     (setq e (entget (ssname s (setq i (1- i)))))
     (if (cdr (assoc 62 e))
       (entmod (subst (cons 62 c) (assoc 62 e) e))
       (entmod (append e (list (cons 62 c))))
     )
   )
 )
 (princ)
)

lucas3 · 发表于 2022-7-6 00:13:32

对好吧我觉得有些复杂，这就是我想要的！非常感谢你！塔瓦特

Tharwat · 发表于 2022-7-6 00:25:09

不客气。

lucas3 · 发表于 2022-7-6 00:38:55

你能用这个功能吗

copy

(defun getrgb(e / tcolor)
 (setq tcolor(vla-get-TrueColor(vlax-ename->vla-object e))
tcolor(list(vlax-get-property tcolor"red")
           (vlax-get-property tcolor"Green")
           (vlax-get-property tcolor"Blue")))
 )
(defun putrbg(e r g b / acmCol)
 (setq acmCol (vla-getinterfaceobject(vlax-get-acad-object)
       (strcat "AutoCAD.AcCmColor." (substr (getvar "ACADVER") 1 2))))
 (vla-setrgb acmCol r g b)(vla-put-TrueColor(vlax-ename->vla-object e)acmCol))

SLW210 · 发表于 2022-7-6 00:47:35

请阅读代码发布指南并编辑您的帖子，将代码包含在代码标签中。

lucas3 · 发表于 2022-7-6 00:54:08

很抱歉我忘了，现在，好了！

[编程交流] 弹出彩色对话框，谁能做

发表回复

精选推荐