[ARX程序]：问大家一个编译时的问题

solepower

一个sample 里面的程序，为什么第一次编译成功了，生成了**.arx 文件。对文件稍微修改一下（或者不作任何修改），再次编译，结果就出现 can not open **.arx for writing.

请问大家怎么解决这个问题的。谢谢。。。

yusongrong

你要关闭AutoCAD才行。

fylinwater

不用关闭 只要卸载**.arx 就可以了
在发一次这个lisp，方便调试arx
默认路径自己修改

2. 
   
3. 
   
4. (defun  c:testarx(  / GETKW  )
   
5.   (princ "  可控加载调试用arx: ")
   
6.   (if (null dd*testarxfile*)
   
7.     ;;(setq dd*testarxfile* (getfiled "请选择ARX文件" "G:\\Ddcad\\草稿\\ClassTest\\Debug\" "arx"  0))
   
8.     (setq dd*testarxfile* (getfiled "请选择ARX文件" "L:\\TsDevelop\\PipeDev\\OXARX\\develope\\OXATest\\DEBUG\" "arx"  0))
   
9.     (progn (initget "Yes No") (setq getkw (GETKWORD "是否另外选择新的arx调试[Yes/No]<No> ")))
   
10.     )
    
11.   (if (= getkw "Yes")
    
12.     (progn
    
13.       (if dd*testarxisload* (princ (strcat "  注意: " dd*testarxfile* " 没有被卸载\n")))
    
14.       (setq dd*testarxfile* nil)
    
15.       (c:testarx) (exit)
    
16.       )
    
17.     )
    
18.   (if dd*testarxisload*
    
19.     (progn (ARXUNLOAD dd*testarxfile*) (princ (strcat   dd*testarxfile* " unload ")))
    
20.     (progn (ARXLOAD dd*testarxfile*)(princ (strcat dd*testarxfile*  " load " )))
    
21.     )
    
22. (if dd*testarxisload* (setq dd*testarxisload* nil)  (setq dd*testarxisload* t) )
    
23.   
    
24. (princ)
    
25.   )
    
26. 
    
27. (defun  c:fff( )
    
28. (c:testarx)
    
29.   )
    
30. 
    

<br /> <br /> (defun  c:testarx(  / GETKW  )<br />   (princ "  可控加载调试用arx: ")<br />   (if (null dd*testarxfile*)<br />     ;;(setq dd*testarxfile* (getfiled "请选择ARX文件" "G:\\Ddcad\\草稿\\ClassTest\\Debug\" "arx"  0))<br />     (setq dd*testarxfile* (getfiled "请选择ARX文件" "L:\\TsDevelop\\PipeDev\\OXARX\\develope\\OXATest\\DEBUG\" "arx"  0))<br />     (progn (initget "Yes No") (setq getkw (GETKWORD "是否另外选择新的arx调试[Yes/No]<No> ")))<br />     )<br />   (if (= getkw "Yes")<br />     (progn<br />       (if dd*testarxisload* (princ (strcat "  注意: " dd*testarxfile* " 没有被卸载\n")))<br />       (setq dd*testarxfile* nil)<br />       (c:testarx) (exit)<br />       )<br />     )<br />   (if dd*testarxisload*<br />     (progn (ARXUNLOAD dd*testarxfile*) (princ (strcat   dd*testarxfile* " unload ")))<br />     (progn (ARXLOAD dd*testarxfile*)(princ (strcat dd*testarxfile*  " load " )))<br />     )<br /> (if dd*testarxisload* (setq dd*testarxisload* nil)  (setq dd*testarxisload* t) )<br />   <br /> (princ)<br />   )<br /> <br /> (defun  c:fff( )<br /> (c:testarx)<br />   )<br /> <br />

xunix

arx可以卸载,用vb写的程序怎么卸载?