请教另存选择图像到文件的办法

zhhunicorn

一个CAD文件中有好多零散的零件图，需要把各个零件图单个存成独立的文件。
预计效果：
1、输入执行命令，如：sel-save
2、提示：请选择图形或按“q”键退出
3、用户选择图形
4、提示：已发现选择图形，继续选择请按“J”，保存图形请按“Enter”键
5、用户输入“J”返回3，按“enter”键进入6
6、提示：请输入保存文件名称：
7、系统保存图形至文件名.dwg，返回2继续。
8、按“q“退出。

Gu_xl

用不着那么繁琐的条件输入吧！

1. (defun c:tt(/ ss cmdecho name expert)
   
2.   (setq cmdecho (getvar "cmdecho" ))
   
3.   (setq expert (getvar "expert" ))
   
4.   (setvar "cmdecho" 0)
   
5.   (setvar "expert" 5)
   
6.   (while (setq ss (ssget ":L"))
   
7.     (command "undo" "be")
   
8.     (setq name (getstring "\n保存文件名: "))
   
9.     (if (/= name "")
   
10.       (progn
    
11.         (command "wblock" (setq name (strcat (getvar "DWGPREFIX") name)))
    
12.         (if (findfile name) (command "y"))
    
13.           (command "")
    
14.           (command '(0 0 0))
    
15.           (command ss "")
    
16.           (command "undo" "end")
    
17.         (command "u")
    
18.         (princ "\n***继续选择，回车结束***")
    
19.         )
    
20.       )
    
21.     )
    
22.   (setvar "cmdecho" cmdecho)
    
23. (setvar "expert" expert)
    
24. 
    
25.   (princ)
    
26.   )
    

(defun c:tt(/ ss cmdecho name expert)<br />   (setq cmdecho (getvar "cmdecho" ))<br />   (setq expert (getvar "expert" ))<br />   (setvar "cmdecho" 0)<br />   (setvar "expert" 5)<br />   (while (setq ss (ssget ":L"))<br />     (command "undo" "be")<br />     (setq name (getstring "\n保存文件名: "))<br />     (if (/= name "")<br />       (progn<br />         (command "wblock" (setq name (strcat (getvar "DWGPREFIX") name)))<br />         (if (findfile name) (command "y"))<br />           (command "")<br />           (command '(0 0 0))<br />           (command ss "")<br />           (command "undo" "end")<br />         (command "u")<br />         (princ "\n***继续选择，回车结束***")<br />         )<br />       )<br />     )<br />   (setvar "cmdecho" cmdecho)<br /> (setvar "expert" expert)<br /> <br />   (princ)<br />   )<br />

zhhunicorn

版主果然是高人，非常感谢~