cad14不支持(vl-load-com)吗？？？

mandala

需要在cad14里运行下边这个函数，但（vl-load-com）之后就显示error:null function*Cancel*。

难道cad14完全不支持vlsp吗？？？cad2007下运行正常！

2. 
   
3. (defun c:copy430(/ file)
   
4. (vl-load-com)
   
5. (setq file (strcat (getvar "dwgprefix")(getvar "dwgname")))
   
6. (setq file (vl-string-subst ".plt" ".dwg" file))
   
7. (vl-file-copy  file "\\\\clpnt\\\\hp430")
   
8. )

<br /> (defun c:copy430(/ file)<br /> (vl-load-com)<br /> (setq file (strcat (getvar "dwgprefix")(getvar "dwgname")))<br /> (setq file (vl-string-subst ".plt" ".dwg" file))<br /> (vl-file-copy  file "\\\\clpnt\\\\hp430")<br /> )

mandala

哦，查了下，似乎cad2000以下就不支持vl-load-com了。唉。

Andyhon

you might try
http://www.google.com/search?q=V ... mages&tbs=qdr:y

mandala

谢谢楼上。

mandala

改成alisp程序：

2. (defun c:bbb (/ file n num)
   
3. (setq file(getvar "dwgname"))
   
4. (setq n 1 num nil)
   
5. (while (not (equal num "."))
   
6.   (setq num (substr file n 1) n (1+ n))
   
7. )
   
8. (setq file(strcat (substr file 1 (1- n)) "plt"))
   
9. (setq file  (strcat (getvar "dwgprefix") file))
   
10. (command "shell" (strcat "copy "  file " " "\\\\clpnt\\hp430"))
    
11. (princ)
    
12. )
    

(defun c:bbb (/ file n num)<br /> (setq file(getvar "dwgname"))<br /> (setq n 1 num nil)<br /> (while (not (equal num "."))<br />   (setq num (substr file n 1) n (1+ n))<br /> )<br /> (setq file(strcat (substr file 1 (1- n)) "plt"))<br /> (setq file  (strcat (getvar "dwgprefix") file))<br /> (command "shell" (strcat "copy "  file " " "\\\\clpnt\\hp430"))<br /> (princ)<br /> )<br />