哪位大师方便帮忙修改一下外发分图程序

669423907

把选择名字放在前面，谢谢了
(defun c:fw()
(princ "\n请选择输出对象: ")
(setq ss(ssget":s" '((0 . "~xline")))
date (rtos (getvar "cdate") 2 6)
年(substr date 3 2);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 2)
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))

669423907

Andyhon 发表于 2016-7-20 15:19
应是不难,
但...
选择名字???  

就是让程序运行时：
先提示选取图形名称，如果没选取则提示输入名称，，，，，，，，
最后再选择图形输出

gzbccy

老会员了，自己动手

669423907

老了，，，，，，不会

Andyhon

应是不难,
但...
选择名字???  
放在前面???  (放在 ??? 前面)
猜不透

Andyhon

2. 
   
3. (defun c:fw ()
   
4.   (cond
   
5.     ((setq na (entsel "\n选取图形名称:"))
   
6.      (setq na (cdr (assoc 1 (entget (car na)))))
   
7.     )
   
8.     (T (setq na (getstring "\n输入图形名称:")))
   
9.   )
   
10. 
    
11.   (princ "\n请选择输出对象: ")
    
12.   (setq        ss     (ssget ":s" '((0 . "~xline")))
    
13.         date   (rtos (getvar "cdate") 2 6)
    
14.         年     (substr date 3 2)        ;1 4
    
15.         月     (substr date 5 2)
    
16.         日     (substr date 7 2)
    
17.         tim    (substr date 10)
    
18.         时     (substr tim 1 2)
    
19.         分     (substr tim 3 2)
    
20.         秒     (substr tim 5 2)
    
21.         datime (strcat "(" 年 "" 月 "" 日 "_" 时 "" 分 "" 秒 ")")
    
22. 
    
23.         desk   (strcat "E:/00/送线割图纸/" na datime)
    
24.   )
    
25.   (command "WBLOCK" desk "" '(0 0 0) ss "")
    
26.   ;; 把选择
    
27.   (command "oops")
    
28.   (princ "\n选择的对象已完成输出")
    
29.   (vlax-invoke
    
30.     (vlax-create-object "wscript.shell")
    
31.     'run
    
32.     "E:\\00\\送线割图纸"
    
33.   )
    
34.   (princ)
    
35. )
    

<br /> (defun c:fw ()<br />   (cond<br />     ((setq na (entsel "\n选取图形名称:"))<br />      (setq na (cdr (assoc 1 (entget (car na)))))<br />     )<br />     (T (setq na (getstring "\n输入图形名称:")))<br />   )<br /> <br />   (princ "\n请选择输出对象: ")<br />   (setq        ss     (ssget ":s" '((0 . "~xline")))<br />         date   (rtos (getvar "cdate") 2 6)<br />         年     (substr date 3 2)        ;1 4<br />         月     (substr date 5 2)<br />         日     (substr date 7 2)<br />         tim    (substr date 10)<br />         时     (substr tim 1 2)<br />         分     (substr tim 3 2)<br />         秒     (substr tim 5 2)<br />         datime (strcat "(" 年 "" 月 "" 日 "_" 时 "" 分 "" 秒 ")")<br /> <br />         desk   (strcat "E:/00/送线割图纸/" na datime)<br />   )<br />   (command "WBLOCK" desk "" '(0 0 0) ss "")<br />   ;; 把选择<br />   (command "oops")<br />   (princ "\n选择的对象已完成输出")<br />   (vlax-invoke<br />     (vlax-create-object "wscript.shell")<br />     'run<br />     "E:\\00\\送线割图纸"<br />   )<br />   (princ)<br /> )<br />

my258

很好用谢谢