选物另存为DWG

♂此处空白♂

选物另存为DWG下面程序那里错了
(DEFUN C:DWG( / GRP PATH NAME)
(SETVAR "CMDECHO" 0)
(PROMPT "\n请选择dwg输出的实体:")
(SETQ GRP (SSGET))
(SETQ PATH (GETVAR "DWGPREFIX")) ;获取FILEPATH
(SETQ NAME (GETFILED "DWG档案输出快选" PATH "DWG" 15))
(SETVAR "FILEDIA" 0)
    (command "-wblock" NAME "y" "" "0,0,0" GRP "" "oops")
    (command "-wblock" NAME "" "0,0,0" GRP "" "oops")
(SETVAR "FILEDIA" 1)
(SETVAR "CMDECHO" 1)
(PRINC "\n OK !!!")
(PRINC)
)

♂此处空白♂

问一下，我这程序在另存的名称没有时可以完成另存，但是如果这个名称以经有了话另存就不成功，这是什么原因。
错误显示:选择对象: 指定对角点: 找到 1 个
选择对象:  未知命令“0,0,0”。按 F1 查看帮助。
<选择集: 45>


;选物另存为Dwg文档
(defun c:dwg (/ ss filename)
     (setvar "cmdecho" 0) ;指令执行过程不响应
     (setq ss (ssget))
      (setq filename (getfiled "保存文件名" "" "dwg" 1))
       (command "wblock" filename "" "0,0,0" ss "")
     (command "oops")
   (setvar "cmdecho" 1)
(PRINC))

ZZXXQQ

♂此处空白♂ 发表于 2015-2-6 10:12
问一下，我这程序在另存的名称没有时可以完成另存，但是如果这个名称以经有了话另存就不成功，这是什么原因 ...

2. (DEFUN C:DWG( / GRP PATH NAME)
   
3. (SETVAR "CMDECHO" 0)
   
4. (PROMPT "\n请选择dwg输出的实体:")
   
5. (SETQ GRP (SSGET))
   
6. (SETQ PATH (GETVAR "DWGPREFIX")) ;获取FILEPATH
   
7. (SETQ NAME (GETFILED "DWG档案输出快选" PATH "DWG" 15))
   
8. (if (findfile name)
   
9.   (command "-wblock" NAME "y" "" "0,0,0" GRP "" "oops")
   
10.   (command "-wblock" NAME "" "0,0,0" GRP "" "oops")
    
11. )
    
12. (SETVAR "CMDECHO" 1)
    
13. (PRINC "\n OK !!!")
    
14. (PRINC)
    
15. )
    

(DEFUN C:DWG( / GRP PATH NAME)<br /> (SETVAR "CMDECHO" 0)<br /> (PROMPT "\n请选择dwg输出的实体:")<br /> (SETQ GRP (SSGET))<br /> (SETQ PATH (GETVAR "DWGPREFIX")) ;获取FILEPATH<br /> (SETQ NAME (GETFILED "DWG档案输出快选" PATH "DWG" 15))<br /> (if (findfile name)<br />   (command "-wblock" NAME "y" "" "0,0,0" GRP "" "oops") <br />   (command "-wblock" NAME "" "0,0,0" GRP "" "oops")<br /> )<br /> (SETVAR "CMDECHO" 1)<br /> (PRINC "\n OK !!!")<br /> (PRINC)<br /> )<br />

2. 选物另存为Dwg文档
   
3. (defun c:dwg (/ ss filename)
   
4. (setvar "cmdecho" 0) ;指令执行过程不响应
   
5. (setq ss (ssget))
   
6. (setq filename (getfiled "保存文件名" "" "dwg" 1))
   
7. (if (findfile filename)
   
8.   (command "wblock" filename "Y" "" "0,0,0" ss "")
   
9.   (command "wblock" filename "" "0,0,0" ss "")
   
10. )
    
11. (command "oops")
    
12. (setvar "cmdecho" 1)
    
13. (PRINC)
    
14. )
    

选物另存为Dwg文档<br /> (defun c:dwg (/ ss filename)<br /> (setvar "cmdecho" 0) ;指令执行过程不响应<br /> (setq ss (ssget))<br /> (setq filename (getfiled "保存文件名" "" "dwg" 1))<br /> (if (findfile filename)<br />   (command "wblock" filename "Y" "" "0,0,0" ss "")<br />   (command "wblock" filename "" "0,0,0" ss "")<br /> )<br /> (command "oops")<br /> (setvar "cmdecho" 1)<br /> (PRINC)<br /> )<br />

♂此处空白♂

感谢大大

yuxin6618

感谢大大

sunny_8848

ZZXXQQ 发表于 2015-2-6 11:29

能否麻烦您改下代码，选择图形另存后，在原图中删除已经选择的图形吗，这样好区分些

sunny_8848

sunny_8848 发表于 2018-3-14 12:56
能否麻烦您改下代码，选择图形另存后，在原图中删除已经选择的图形吗，这样好区分些

多谢帮忙，效果很好。
不知道能否做到，选择确定要保存的图形后，下一步点选一个文本，文本内容作为文件名称？