选择对象输出到指定目录，求帮修改操作顺序
http://bbs.yxcax.com/thread-79329-4-1.html;选择图形输出到指定文件夹
哪位大侠方便帮改一下选择顺序
先选取图形名称（无选择则以时间为名）再选择输出对象，谢谢了
(defun c:fw()
(princ "\n请选择输出对象: ")
(setq ss(ssget":s" '((0 . "~xline")))
date (rtos (getvar "cdate") 2 6)
;年(substr date 1 4)
月(substr date 5 2)
日(substr date 7 2)
tim(substr date 10)
时(substr tim 1 2)
分(substr tim 3 2)
秒(substr tim 5)
datime (strcat "("月"."日"-"时"."分"."秒")")
na (car (entsel "\n选取图形名称:")))
(if (/= na nil)
(setq en (entget na)
na (cdr (assoc 1 en)))
(setq na (getstring "\n输入图形名称:")))
(setq desk (strcat "E:/00/送线割图纸/"na datime))
(command "WBLOCK"desk""'(0 0 0)ss"")
(command "oops")
(princ "\n选择的对象已完成输出")
(vlax-invoke (vlax-create-object "wscript.shell")'run
"E:\\00\\送线割图纸"
)
(princ))
页:
[1]