请进来看看能不能实现这功能!
www.dimcax.com
请进来看看能不能实现这功能!
defun c:tt()
(command "dxfin""f:\\out\\aa.dxf"))
中的文件名"aa"能不能改成用户输入?
输入命令后等用户输入名称如"bb"就插入f:\\out\\bb.dxf
d
我没有调试，看看行不
(defun c:tt()
(setq wjm (getstring "输入文件名"))
(setq wj (strcat "f:\\out\\" wjm ".dxf"))
(command "dxfin" wj)
)
+-------oooo----- (_)-----oooo---------+
我为编程狂，我为lisp狂！
+------------------------oooo-------------------+
【送花】表扬一下 谢谢,我就是要这功能! 鲜花+1 [coolpoom |
d
(defun c:tt ()
(setq nm (if nm nm ""))
(if (setq nm (getfiled "选择文件" nm "dxf" 2))
(command "dxfin" nm)
)
(princ)
)
踅摸
d
感谢quanguang感谢zzxx