[求助]关于统一线型

xiaoquansb · 发表于 2007-11-25 23:44

本帖最后由作者于 2007-11-25 23:45:16 编辑

我想用lisp去统一图中乱七八糟的线型,例如把全部CENTER2改为CENTER

(SETQ GOP (SSADD))
(SETQ GOP (SSGET "x" '((6 . "CENTER2"))))
(IF
(/= GOP NIL)
(PROGN
(SETQ N (SSLENGTH GOP ))
(SETQ M 0)
(REPEAT N
(SETQ ENT (ENTGET (SSNAME GOP M)))
(SETQ ENT (SUBST (CONS '6 "CENTER") (ASSOC 6 ENT) ENT))
(ENTMOD ENT)
(SETQ M (+ M 1))
)))

目的是达到了,但是对于块里的CENTER2的线就完全无效,

请问如何能把块里的CENTER2的线也改为CENTER呢

英雄无敌 · 发表于 2007-11-26 11:51

你可能得修改块中对象的线型才行。

xiaoquansb · 发表于 2007-11-26 12:07

我在选择的时候怎样才能选到块里的图元呢

英雄无敌 · 发表于 2007-11-26 16:52

选择到块，用tblsearch取得块中第一个图元名，再用entnext取得下一个图元名

173375424 · 发表于 2007-11-26 20:30

统一线型在图层转换器里可以搞定,但是就是楼上说的:就是块转换不了

英雄无敌 · 发表于 2007-11-27 09:48

本帖最后由作者于 2007-11-27 9:55:46 编辑

由于不是块中的你已经会改，我只做了一个可以改块的，你可以自己做到一起去。

xiaoquansb · 发表于 2007-11-27 11:29

本帖最后由作者于 2007-11-27 13:19:31 编辑

谢谢英雄无敌拉,

运行显示; error: bad argument type: lselsetp nil

程序对于我来说有点深,不知道怎么调,还望在指点一下

英雄无敌 · 发表于 2007-11-27 14:45

这个原因应该是你图形的存在没有被引用的块定义，而我在试的时候由于块是新做的，所以不存在上述问题，我改了一下重新生成块的那一处，增加了一个判断。你说的这个问题应该是解决了的。

xiaoquansb · 发表于 2007-11-28 12:08

得左

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

[求助]关于统一线型

本帖子中包含更多资源

本帖子中包含更多资源

浏览过的版块