选物另存为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))
♂此处空白♂ 发表于 2015-2-6 10:12 static/image/common/back.gif
问一下，我这程序在另存的名称没有时可以完成另存，但是如果这个名称以经有了话另存就不成功，这是什么原因 ...
(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))
(if (findfile name)
(command "-wblock" NAME "y" "" "0,0,0" GRP "" "oops")
(command "-wblock" NAME "" "0,0,0" GRP "" "oops")
)
(SETVAR "CMDECHO" 1)
(PRINC "\n OK !!!")
(PRINC)
)
选物另存为Dwg文档
(defun c:dwg (/ ss filename)
(setvar "cmdecho" 0) ;指令执行过程不响应
(setq ss (ssget))
(setq filename (getfiled "保存文件名" "" "dwg" 1))
(if (findfile filename)
(command "wblock" filename "Y" "" "0,0,0" ss "")
(command "wblock" filename "" "0,0,0" ss "")
)
(command "oops")
(setvar "cmdecho" 1)
(PRINC)
)
感谢大大 感谢大大 ZZXXQQ 发表于 2015-2-6 11:29
能否麻烦您改下代码，选择图形另存后，在原图中删除已经选择的图形吗，这样好区分些 sunny_8848 发表于 2018-3-14 12:56
能否麻烦您改下代码，选择图形另存后，在原图中删除已经选择的图形吗，这样好区分些
多谢帮忙，效果很好。
不知道能否做到，选择确定要保存的图形后，下一步点选一个文本，文本内容作为文件名称？
页:
[1]