[编程交流] 旋转参考

; Rotate Reference Test
(defun C:test ( / o bp sp dp )
 (and 
   (setq o (car (entsel "\nSelect object to rotate: ")))
   (setq o (vlax-ename->vla-object o))
   (setq bp (getpoint "\nSpecify base point for rotation: "))
   (setq sp (getpoint "\nSpecify source point: " bp))
   (not (grdraw bp sp 2 1))
   (setq dp (getpoint "\nSpecify dest point: " bp))
   ; (vlax-invoke o 'Rotate ..?)
 )
 (princ)
)

; Rotate Reference Test
(defun C:test ( / o bp sp dp )
 (and 
   (setq o (car (entsel "\nSelect object to rotate: ")))
   (setq o (vlax-ename->vla-object o))
   (setq bp (getpoint "\nSpecify base point for rotation: "))
   (setq sp (getpoint "\nSpecify source point: " bp))
   (not (grdraw bp sp 2 1))
   (setq dp (getpoint "\nSpecify dest point: " bp))
   (vla-Rotate o (vlax-3D-point bp) (- (angle bp dp) (angle bp sp)))
 )
 (princ)
)

Command: rotate
Current positive angle in UCS:  ANGDIR=counterclockwise  ANGBASE=0
Select objects: 1 found
Specify base point:
Specify rotation angle or [Copy/[color=red]Reference[/color]] <0>: