lisp程序求助

aming001 发表于 2014-3-22 21:56:28

哪位高手能帮忙写一个lisp程序，程序的功能是这样子的：
能否模拟cad中的画云线命令，云线绘制完毕后，自动新建一个图层（图层的名字默认是系统年月日，如20140322），新绘制的云线就在该图层上。
希望高手尽早帮忙解决！！不胜感激！

kwok 发表于 2014-3-23 09:21:02

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=107447
给个动态的.

aming001 发表于 2014-3-26 20:59:11

这个程序不错，谢谢！不过我要的功能还没实现。云线绘制完毕后，自动新建一个图层（图层的名字默认是系统年月日，如20140322），新绘制的云线就在该图层上。

669423907 发表于 2014-3-26 22:36:04

(defun c:YX()
(setq date (menucmd "M=$(edtime,$(getvar,date),YYYYMODD)"))
(command "layer" "m" date "c" "253" "" "lw" "0.3" "" "")
(command "revcloud");此处可以换成别的命令或那个动态云线
(princ))

页: [1]

明经CAD社区's Archiver

lisp程序求助