关于cmdactive，LISPLINK中单步调试没有问题，但加载后运行TT2就不行了
本帖最后由 mrhvslisp 于 2012-5-8 09:55 编辑(defun C:tt2( / color constantwidth e1 elevation layer lst_e_p lst_pt1 obj1 pause pt_start ss)
(setq lst_e_p (entsel "\n选择等高线:"))
(princ "\n lst_e_P = ") (princ lst_e_P);Erase_DV
(getstring "\nPress Enter to continue...");Erase_DV
(getstring "\nBreakpoint 1, press Enter to continue...");Erase_BP
(setq obj1 (vlax-ename->vla-object(setq e1 (car lst_e_p))))
(princ "\n obj1 = ") (princ obj1);Erase_DV
(getstring "\nPress Enter to continue...");Erase_DV
(setq pt_start (osnap (cadr lst_e_p)"nea"));起点pt_start，位于obj1上
(princ "\n pt_start = ") (princ pt_start);Erase_DV
(getstring "\nPress Enter to continue...");Erase_DV
(setq layer (vlax-get obj1 'layer))
(setq color (vlax-get obj1 'color))
(setq ConstantWidth (vlax-get obj1 'ConstantWidth))
(princ "\n constantwidth = ") (princ constantwidth);Erase_DV
(getstring "\nPress Enter to continue...");Erase_DV
(setq Elevation (vlax-get obj1 'Elevation))
(princ "\n elevation = ") (princ elevation);Erase_DV
(getstring "\nPress Enter to continue...");Erase_DV
(command "pline" '(0 0))
(while (= (setq cmdd(getvar "cmdactive")) 1)
;(princ "\n cmdd = ") (princ cmdd);Erase_DV
;(getstring "\nPress Enter to continue...");Erase_DV
;(princ "\n选点/U回退:")
(command pause)
)
)
页:
[1]