(defun c:DynDrawTest (/ step blk Obj point)
(setq step 1e-6)
(setq blk (car (entsel "\nSelect a block: "))
;;; pt (dxf 10 (entget blk)) ;_ fim de dxf
;;; LastPt pt
Obj (vlax-ename->vla-object blk)
) ;_ fim de setq
(defun JoyCallBackTest (point /)
(setvar "nomutt" 1) ;_ suppresses the "regen ..." prompt
(cond
((= (type point) 'STR)
(vla-update Obj)
)
((vl-consp point)
(or prev (setq prev point))
(if (< step (distance prev point))
(progn
(setq prev point)
(vla-put-InsertionPoint Obj (vlax-3D-point point))
(vla-update Obj)
) ;_ fim de progn
) ;_ fim de if
)
) ;_ fim de cond
(setvar "nomutt" 0)
point
) ;_ fim de defun
;;;
;;;Define a funcao p/ DynDraw.arx
(vl-acad-defun 'JoyCallBackTest)
(setq
point
(dyndraw "JoyCallBackTest"
"\nSpecify insertion point: [Enter Exit]: "
"" ;_ Keyword string
(+ 2 128 2048)
-1
nil
) ;_ fim de dyndraw
) ;_ fim de setq
;;;
(if (vl-consp point)
(progn
(vla-put-InsertionPoint Obj (vlax-3D-point point))
(vla-update Obj)
) ;_ fim de progn
) ;_ fim de if
;;;
(vl-acad-undefun 'JoyCallBackTest)
(princ)
)
The above code works well with DynDraw 2010 x64.arx in AutoCAD 2010.
But with higher versions the object is not shown during the drag.
Can anyone tell me why?