[编程申请]：为对象改色的lsp（源程序）

zxy9202 · 发表于 2007-12-21 13:02:37

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

源程序如下：
选择对象后，输入颜色号：0为随层,256为随块，其他为默认的颜色编号，如1即为红色，2即为黄色，缺点是不能通过颜色框选择颜色

(DEFUN C:Gs(/ ent c)
  (setvar "CMDECHO" 0)
  (setq ent (ssget))
  (if (/= ent nil)
(progn
   (setq c (getint "\nNew color: "))
   (if (= c 0)
   (COMMAND "CHPROP" ent "" "C" "bylayer" "")
   (if (= c 256)
   (COMMAND "CHPROP" ent "" "C" "byblock" "")
   (COMMAND "CHPROP" ent "" "C" c "")
   )
   )
)
  )
  (princ)
)

zxq0220 · 发表于 2007-12-21 19:01:03

可以用(ACAD_COLLORDLG函数选择颜色。

zxy9202 · 发表于 2007-12-24 22:17:33

不知道为什么，一调用ACAD_COLLORDLG就出错？

KENSHIN709 · 发表于 2008-1-2 10:33:56

这也是一段不断的好程序

qiyu0588 · 发表于 2008-1-7 17:25:19

就程序本身而言意义不大
直接用chprop命令就可以了
当然再选择时候有过滤的情况下改颜色比较适合

gogo9567 · 发表于 2008-1-22 10:50:51

我就不停的刷！！

8daysago · 发表于 2008-1-28 17:47:22

刷几次是不是就能好点了。

账号		自动登录	找回密码
密码			立即注册

[编程申请]：为对象改色的lsp（源程序）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子