dongya1235 发表于 2013-12-7 10:59:21

请问如何查询颜色的编号并显示在命令行里

本帖最后由 dongya1235 于 2013-12-7 11:12 编辑

请问CAD有无命令可直接查询实体的颜色编号并显示在命令行里命令哪？如果没有怎么用lisp实现哪？望大师指点。

llsheng_73 发表于 2013-12-7 13:30:55

(princ(itoa(vla-get-color(vlax-ename->vla-object e))))

dongya1235 发表于 2013-12-9 10:22:40

不会用哪，完整的程序是怎么补全的哪？

edata 发表于 2013-12-9 11:08:12

一行代码。(progn(and(princ"\n选择对象:")(setq e (car(entsel)))(princ"\n颜色编号:") (princ (itoa(vla-get-color(vlax-ename->vla-object e)))))(princ))

dongya1235 发表于 2013-12-9 11:55:56

谢谢，回去试试。

edata 发表于 2013-12-31 18:20:28

dongya1235 发表于 2013-12-9 11:55 static/image/common/back.gif
谢谢，回去试试。

(defun c:tt(/ e c)
(if (setq e (car (entsel "\n选择对象:")))
    (progn
      (setq c(vla-get-color (vlax-ename->vla-object e)))
      (cond
        ((= c 0)(princ "\n颜色编号:ByBlock"))
        ((= c 256)(princ "\n颜色编号:ByLayer"))
        (t(princ "\n颜色编号:")(princ c))
        )
      )
    (princ "\n未选择对象!")
    )
(princ)
)

dongya1235 发表于 2014-1-2 10:58:37

edata 发表于 2013-12-31 18:20 static/image/common/back.gif


谢谢，很好用。并祝新年快乐！
页: [1]
查看完整版本: 请问如何查询颜色的编号并显示在命令行里