[LISP]如何在LISP中打开一个.dwg文件并另存之

cadfqd

版主真是厉害！我也在学习lisp，但总觉得找不到方向，不懂的东西太多了！！！不知道版主刚学习lisp时是怎么学的？能否指点一下迷津？！！！谢谢！我是做测绘的，想要做一些cad方面的二次开发，初学也没有经验，简单的小程序还能写写，但遇到麻烦一点的就不知道从何处下手了。

chen4

(COMMAND "Y") ? Y Unknown command "Y". Press F1 for help.
另外我想按上面高手提示的试图改变系统变量，但出错了。CMDACTIVE变量书上和帮助上说默认为1，但我的机器却是0，怎么也没有找到它为0的含义，不知何故？ Command: (setvar "CMDACTIVE" 2)
; error: AutoCAD variable setting rejected: "CMDACTIVE" 2

ZZXXQQ

如果不行，将程序从
(COMMAND "_WBLOCK" NMM1 "" '(0 0) "C" P1 P2 "")
改为
(COMMAND "_WBLOCK" NMM1 "" '(0 0) "C" P1 P2 "")
(WHILE (NOT (ZEROP (GETvar "CMDACTIVE"))) (COMMAND "Y"))
再试一下。 另外：变量CMDACTIVE是只读的，不能用SETVAR来设定。其含义如下： 1=激活普通命令
2=激活普通命令和一个透明命令
4=激活命令组
8=激活对话框 所以通常该变量为零。

chen4

改为
(COMMAND "_WBLOCK" NMM1 "" '(0 0) "C" P1 P2 "")
(WHILE (NOT (ZEROP (GETvar "CMDACTIVE"))) (COMMAND "Y"))
试验了一下，如果文件已经存在于目录，仍然不能替换原来的文件存盘。不知何故？

ZZXXQQ

再改一下。在R14上调试通过。

1.   (DEFUN C:SAVETO ()
2.   (SETVAR "CMDECHO" 0)
3.   (COMMAND "UNDO" "C" "N")
4.   (SETQ NMM (GETFILED "Select First File Name" "" "dwg" 8))
5.   (SETQ NMM1 (GETFILED "Select Second File Name" "" "dwg" 9))
6.   (IF (> (STRLEN NMM) 0) (PROGN
7.    (COMMAND "_INSERT" (STRCAT "*" NMM) '(0 0) "" "")
8.    (COMMAND "ZOOM" "E" "REGEN")
9.    (SETQ P1 (GETVAR "EXTMIN") P2 (GETVAR "EXTMAX"))
10. ;...... Add your process.
11. ;......
12.    (IF (FINDFILE NMM1)
13.      (COMMAND "_WBLOCK" NMM1 "Y" "" '(0 0) "C" P1 P2 "")
14.      (COMMAND "_WBLOCK" NMM1 "" '(0 0) "C" P1 P2 "")
15.    )
16.   ))
17.   (COMMAND "UNDO" "A")
18.   (SETVAR "CMDECHO" 1)
19.   (PRINC)
20. )

复制代码

chen4

谢谢楼上的ZZXXQQ朋友，经过多日的思索，我已经另避新径将此问题解决： 很简单，将原先的文件删除后将新文件存入其中就是。 虽然如此，但我仍要此感谢各位热心的帮助，特别是ZZXXQQ朋友，使我的思路能够开放而活跃。 同时也欢迎各位与我联系。 陈四清 chen4@py.gov.cn