（完成）[编程申请]■求物体改色程序■

zhuquanmao · 发表于 2004-9-21 13:21:43

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

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

×

有没有这样一个程序点选一个实体然后出现windows颜色对话框选择颜色后这个实体所在层上所有的实体的颜色都改为所选择的颜色呢

lsjjm · 发表于 2004-9-21 16:53:24

试试这个:
[php]
(defun c:test ()
  (vl-load-com)
  (setq ent (car (entsel "\nSelect Destination Entity for Layer: ")))
  (setq lay (cdr (assoc 8 (entget ent))))
  (setq col (acad_colordlg 7))
  (setq ss (ssget "x" (list (cons 8 lay))))
  (setq n 0)
  (while (< n (sslength ss))
(setq obj (vlax-ename->vla-object (ssname ss n)))
(vla-put-color obj col)
(setq n (1+ n))
  )
)
[/php]

eachy · 发表于 2004-9-21 23:43:39

最初由 madman 发布
[B]有没有这样一个程序点选一个实体然后出现windows颜色对话框选择颜色后这个实体所在层上所有的实体的颜色都改为所选择的颜色呢 [/B]

在Layer管理器中修改图层颜色.

lsjjm · 发表于 2004-9-22 04:10:16

最初由 eachy 发布
[B]在Layer管理器中修改图层颜色... [/B]

可能不行吧? -> 那样只能修改颜色随层的实体!

coolzhb · 发表于 2004-9-22 08:54:46

这种属性修改，我一般用选择易，过滤选择集，再属性修改很方便！
我个人认为，这种用得不是太多的修改，没有必要编程，不然程序太多，使用反而更不方便！
个人意见！

zhuquanmao · 发表于 2004-9-22 09:51:15

NX！太感谢了！这是用VLISP编的吗这么好！

saltxf · 发表于 2004-9-24 16:12:09

是啊，程序太多了，加载须内存，且多了不易记住。二楼编的很有参考价值，谢谢啦！(vl-load-com) 是什么意思？

zxq0220 · 发表于 2004-9-24 16:28:49

(vl-load-com)是加载程序中所用的vl系列应用程序。

海豚 · 发表于 2004-9-25 22:58:22

qlin版主编了一个很好用的改色程序，但由于是私下给的。我想他是不喜欢别人随便把他的程序给别人。请其他版主发信息给他，向他查询吧。

eachy · 发表于 2004-9-25 23:17:57

最初由海豚发布
[B]qlin版主编了一个很好用的改色程序，但由于是私下给的。我想他是不喜欢别人随便把他的程序给别人。请其他版主发信息给他，向他查询吧。 [/B]

函数库论坛的“图层合并”可以完成这个功能

LUCAS · 发表于 2004-9-29 11:31:25

“图层合并”對於屬性顏色還有小問題!(全部轉0層,不保留顏色---我的測試圖eee.dwg未通過)

海豚 · 发表于 2004-9-30 00:17:04

我也有部分图纸无法用图层合并完成，会出现不可预知的事体错误的转换，所以暂时不用，在等待版主的新版本。我记得QLIN说过他是参考了其他人的一个INSERT的参数（我记得不太清楚了是否这样说），希望版主间能互相交流。把图层合并问题解决。

eachy · 发表于 2004-9-30 06:12:03

最初由 LUCAS 发布
[B]“图层合并”對於屬性顏色還有小問題!(全部轉0層,不保留顏色---我的測試圖eee.dwg未通過) [/B]

那个是遗漏了属性，已经修改

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

（完成）[编程申请]■求物体改色程序■

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

相关帖子

Re: [编程申请]■求物体改色程序■

Re: Re: [编程申请]■求物体改色程序■

浏览过的版块