关于cmdactive，LISPLINK中单步调试没有问题，但加载后运行TT2就不行了

mrhvslisp

2. (defun C:tt2( / color constantwidth e1 elevation layer lst_e_p lst_pt1 obj1 pause pt_start ss)
   
3. (setq lst_e_p (entsel "\n选择等高线:"))
   
4. (princ "\n         lst_e_P = ") (princ lst_e_P);Erase_DV
   
5. (getstring "\nPress Enter to continue...");Erase_DV
   
6. (getstring "\nBreakpoint 1, press Enter to continue...");Erase_BP
   
7. 
   
8. (setq obj1 (vlax-ename->vla-object(setq e1 (car lst_e_p))))
   
9. (princ "\n            obj1 = ") (princ obj1);Erase_DV
   
10. (getstring "\nPress Enter to continue...");Erase_DV
    
11. 
    
12. (setq pt_start (osnap (cadr lst_e_p)"nea"));起点pt_start，位于obj1上
    
13. (princ "\n        pt_start = ") (princ pt_start);Erase_DV
    
14. (getstring "\nPress Enter to continue...");Erase_DV
    
15. 
    
16. 
    
17. (setq layer (vlax-get obj1 'layer))
    
18. (setq color (vlax-get obj1 'color))
    
19. (setq ConstantWidth (vlax-get obj1 'ConstantWidth))
    
20. (princ "\n   constantwidth = ") (princ constantwidth);Erase_DV
    
21. (getstring "\nPress Enter to continue...");Erase_DV
    
22. 
    
23. (setq Elevation (vlax-get obj1 'Elevation))
    
24. (princ "\n       elevation = ") (princ elevation);Erase_DV
    
25. (getstring "\nPress Enter to continue...");Erase_DV
    
26. 
    
27. (command "pline" '(0 0))
    
28. (while (= (setq cmdd(getvar "cmdactive")) 1)
    
29. ;  (princ "\n            cmdd = ") (princ cmdd);Erase_DV
    
30. ;  (getstring "\nPress Enter to continue...");Erase_DV
    
31.   
    
32. ;  (princ "\n选点/U回退:")
    
33.   (command pause)
    
34. )
    
35. )

(defun C:tt2( / color constantwidth e1 elevation layer lst_e_p lst_pt1 obj1 pause pt_start ss)<br /> (setq lst_e_p (entsel "\n选择等高线:"))<br /> (princ "\n         lst_e_P = ") (princ lst_e_P);Erase_DV<br /> (getstring "\nPress Enter to continue...");Erase_DV<br /> (getstring "\nBreakpoint 1, press Enter to continue...");Erase_BP<br /> <br /> (setq obj1 (vlax-ename->vla-object(setq e1 (car lst_e_p))))<br /> (princ "\n            obj1 = ") (princ obj1);Erase_DV<br /> (getstring "\nPress Enter to continue...");Erase_DV<br /> <br /> (setq pt_start (osnap (cadr lst_e_p)"nea"));起点pt_start，位于obj1上<br /> (princ "\n        pt_start = ") (princ pt_start);Erase_DV<br /> (getstring "\nPress Enter to continue...");Erase_DV<br /> <br /> <br /> (setq layer (vlax-get obj1 'layer))<br /> (setq color (vlax-get obj1 'color))<br /> (setq ConstantWidth (vlax-get obj1 'ConstantWidth))<br /> (princ "\n   constantwidth = ") (princ constantwidth);Erase_DV<br /> (getstring "\nPress Enter to continue...");Erase_DV<br /> <br /> (setq Elevation (vlax-get obj1 'Elevation))<br /> (princ "\n       elevation = ") (princ elevation);Erase_DV<br /> (getstring "\nPress Enter to continue...");Erase_DV<br /> <br /> (command "pline" '(0 0))<br /> (while (= (setq cmdd(getvar "cmdactive")) 1)<br /> ;  (princ "\n            cmdd = ") (princ cmdd);Erase_DV<br /> ;  (getstring "\nPress Enter to continue...");Erase_DV<br />   <br /> ;  (princ "\n选点/U回退:")<br />   (command pause)<br /> )<br /> )