（完成）[编程申请]：改变对象的颜色、图层到制定的颜色及图层

caibaobao · 发表于 2002-10-12 15:57:42

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

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

×

:3恳请晓东编一个程序：
我在单位中，领导经常会让我收集其他同事绘制的图形文件，然后到我这里出图。但是常常碰到别人的DWG文件中表达相同内容东西的图层、颜色都不相同，因为领导对我的笔宽设置比较满意（但其他同事对此不屑一顾？或有结果相同的笔宽设置），但对我来说，要调整2个人以上的文件就显得很慢，何况单位里还有只设颜色不设图层的老顽固……我想有这样一个程序：1、我打开一张样图，然后插入别人的图纸后，我能够点取、框选一个或数个实体，让我选择根据颜色、图层或实体（如常用的：园、多义线、线、hatch、solid、文字、块名等）进行选取实体，然后点击鼠标右键弹出个对话框让我随意更改它们的颜色、图层；2、或者先点取上述实体后能让我选择要“格式化”的样板实体；3、或者这样：先预先读取一张图纸，用一个对话框显示图纸中实体的图层名、颜色（就像layer的对话框一样）让我修改后再插图这张图纸。
谢谢晓东！

XDSoft · 发表于 2002-10-12 16:16:46

最初由 caibaobao 发布
[B]:3恳请晓东编一个程序：
我在单位中，领导经常会让我收集其他同事绘制的图形文件，然后到我这里出图。但是常常碰到别人的DWG文件中表达相同内容东西的图层、颜色都不相同，因为领导对我的笔宽设置比较满意（但其他?.. [/B]

去看看新写的几个图层工具－“图层拷贝”、“图层合并”、“图层匹配”等，图层的问题应该能解决了。

修改颜色的，过几天我给大家写一个可以“刷”的，颜色、线型、层名，可见性，线型比例和目标实体相同的程序吧。

XDSoft · 发表于 2002-10-12 16:28:47

[FONT=courier new]
;|
命令：XDTB_EntitySetP
功能：修改选择的实体的（线型、线型比例、颜色、层、可见性）和目标实体相同
|;
(defun c:XDTB_EntitySetP (/ e1 ss e)
(if (and
(setq e1 (car (entsel "\n请选取目标实体<退出>:")))
(progn
(prompt "\n请选取要处理的实体<退出>:")
(setq ss (ssget))
)
)
(progn
(xdrx_begin)
(xdrx_setsstodb ss 0)
(while (setq e (xdrx_getentdata 0))
(xdrx_entity_SetPropertiesFrom e e1)
)
(xdrx_end)
(prompt (strcat "\n已经成功处理了" (itoa (sslength ss)) "实体!"))
)
)
(princ)
)
[/FONT]

e2002 · 发表于 2002-10-14 09:26:48

a2k2的CAD Standard功能就是蔡兄所需要的

巴中土哥 · 发表于 2002-10-30 14:15:12

CAR14本来就有一个刷子工具，为什么还画蛇添足呢？

wufei1 · 发表于 2002-10-30 20:08:08

如何加载上述程序，能告知吗，谢谢!

XDSoft · 发表于 2002-10-30 20:49:54

最初由 wufei1 发布
[B]如何加载上述程序，能告知吗，谢谢! [/B]

先安装晓东工具箱，然后把上面程序保存到一个扩展名是lsp的文件，然后加载它，按照上面的命令名调用。

如果加载等，搜索搜索论坛，论坛做过详细的介绍。

或者等“晓东工具箱”新版本0.27公布，会做到菜单里面调用的。

wufei1 · 发表于 2002-10-30 21:26:21

殷切期待0.27的出现！

caibaobao · 发表于 2002-10-31 17:36:02

让我试试，谢谢楼上诸位！

xiaoyuemin · 发表于 2002-11-13 19:31:03

我试试，谢谢！！

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

（完成）[编程申请]：改变对象的颜色、图层到制定的颜色及图层

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

相关帖子

Re: [编程申请]：改变对象的颜色、图层到制定的颜色及图层

程序写好了