[编程交流] grread，动态拖动选择

(defun c:tt ()
(vl-load-com)
(setq *error_bak* *error*)
(setq pt (cadr (grread T ))
(vl-cmdf "-insert" "add blok name" pt "" "" "0");add block name
(setq ss (entlast))
(setq entdb (entget ss))
(setq ang 0)
(setq loop T)
(setq *error* *error*_non)
(while loop
(setq code (grread T )
(cond
((or (= (car code) 5) (= (car code) 3))
(if (= (car code) 3)
(setq loop nil)
)
(setq sendpt (cadr code))
(vla-put-Visible (vlax-ename->vla-object ss) :vlax-false)
(setq endpt (osnap sendpt "endp,center,int,mid"))
(vla-put-Visible (vlax-ename->vla-object ss) :vlax-true)
(if endpt
(progn
(vla-put-InsertionPoint
(vlax-ename->vla-object ss)
(vlax-3D-point endpt)
)
)
(progn
(vla-put-InsertionPoint
(vlax-ename->vla-object ss)
(vlax-3D-point sendpt)
)
)
)
)
((or (equal code '(2 65)) (equal code '(2 97)))
(progn
(setq ang (+ ang (* pi 0.5)))
(vla-put-Rotation (vlax-ename->vla-object ss) ang)
)
)
)
)
(setq *error* *error_bak*)
)
(defun *error*_non (msg)
(setq *error* *error_bak*)
(entdel (entlast))
)