[求助]：如何编制轴线层开关和绘制抹灰的程序？

JINGZHG · 发表于 2006-8-2 18:58:31

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

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

×

我想编两个程序，一个用来控制轴线层（比如dote)的开关。一个用来快速绘制抹灰（详图上用很多呀）。

1. 轴线开关。

它的关键是要能判断dote层目前是开的还是关的，如果是开的，就将它关闭，如果是关的，就将它打开。

我想问“如何通过lisp判断dote层的状态”。

2. 抹灰绘制

我画抹灰通常是这样的：1）用offset命令将墙线偏移20

2) 将刚复制的线转换为抹灰层（比如cu3）。

这两步要求用一个程序实现。第一步很容易实现，第二步比较难。我想，应该先知道新图元的编号或名称，然后将它们的层转换。但是我不知道具体要怎么做。

这是很有用的函数，请大家支招

fsxm · 发表于 2006-8-5 17:43:43

新图元可以用while+entnext收集!
如果只有一个可以直接用entlast.

JINGZHG · 发表于 2006-8-15 02:39:42

谢谢，终于有人回复了。
我是个初学者。请写一下如何用while+entnext和entlast，　以及如何用lisp改变物体的图层。

xyz518mm · 发表于 2006-8-19 11:34:00

偏移後就這樣處理~
(SETQ LA_LS (ENTLAST))
(command "_.change" LA_LS "" "p" "la" "cu3" "")

JINGZHG · 发表于 2006-8-20 18:53:19

我写的程序如下
(defun c:mh()
(command "offset" "20" pause)
(SETQ LA_LS (ENTLAST))
(command "_change" LA_LS "" "p" "la" "cu3" "")
)

执行时会提示“函数错误”，但是如果我把每一步粘贴到CAD中单独执行就不提示错误，为什么合一起就不行了呢？

fsxm · 发表于 2006-8-20 19:13:55

少用了一个pause!加上去就可以了
(defun c:mh ()
(command "offset" "20" pause pause "")
(command "change" (entlast) "" "p" "la" "cu3" "")
)

JINGZHG · 发表于 2006-8-21 10:53:25

我试了，可以的，谢谢大家的帮助。
什么时候我的爱心币可以超过50，能发悄悄话就好了：）

我想可以改进一下，现在一个命令只能偏移一个抹灰线，如果要偏移不同的抹灰线就要不停地按空格。
怎么能一个命令中就可以选择多根线呢？
请大家帮助完美一下！

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

[求助] [求助]：如何编制轴线层开关和绘制抹灰的程序？

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

相关帖子