[LISP程序]：请教两个AUTOLISP得问题

huangeternal · 发表于 2005-5-9 16:01:05

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

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

×

1。如何使用AUTOLISP程序实现图层得新建？
2。如何复制一个已有的对象（线，文本等）？

CADghost · 发表于 2005-5-9 16:40:27

直接调用CAD内部命令
command "layer" ...
command "copy" ...

huangeternal · 发表于 2005-5-10 11:21:02

???
请列出程序，非常感谢！！

plectrum · 发表于 2005-5-10 14:54:45

图层的新建
(defun c:newlayer()
(sub_new_layer)
(prin1)
)
(defun sub_new_layer()
(setq newlayer (talsearch "layer" "str"))
(if (= layer nil)
(command "layer" "n" "str" "c" "4" "str" "")
)
.
.
.
.
以此类推

huangeternal · 发表于 2005-5-10 18:08:13

非常感谢你的指导！！
已试运行了！！

请再给我指导
2。如何复制一个已有的对象（线，文本等）？
谢谢！！

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

[LISP程序]：请教两个AUTOLISP得问题

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

相关帖子