https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/rotate3d-with-reference-line/m-p/1749264#M150261 Hello,<BR /> I am trying to create a rotate3d lisp routine with the ability to rotate an object by defining a base point, a reference angle from a 3d line (or two 3d points), and a new angle defined in the same manner.<BR /> Has anybody been down this path before? Tue, 29 Aug 2006 14:16:05 GMT james_hough 2006-08-29T14:16:05Z https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/rotate3d-with-reference-line/m-p/1749264#M150261 Hello,<BR /> I am trying to create a rotate3d lisp routine with the ability to rotate an object by defining a base point, a reference angle from a 3d line (or two 3d points), and a new angle defined in the same manner.<BR /> Has anybody been down this path before? Tue, 29 Aug 2006 14:16:05 GMT https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/rotate3d-with-reference-line/m-p/1749264#M150261 james_hough 2006-08-29T14:16:05Z https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/rotate3d-with-reference-line/m-p/1749265#M150262 Hi james_hough,<BR /> Here a sample to create rotate3d in 3d object.<BR /> <BR /> [code]<BR /> (defun c:test (/ el1 el2 frad len loc p1 rad)<BR /> (command "_vpoint" "r" 275 35 "")<BR /> (setq loc '(0 0 0))<BR /> (setq rad 3)<BR /> (command "_circle" loc rad "")<BR /> (setq el1 (entlast))<BR /> (setq len 10)<BR /> (command "_extrude" el1 "" len 0 "")<BR /> (setq el2 (entlast))<BR /> (setq p1 (polar loc 0 2.5))<BR /> (setq p2 (polar p1 (* pi 0.25) 0.7071))<BR /> (setq p3 (polar p2 0 0.5))<BR /> (setq p4 (polar p3 (* pi 1.5) 1))<BR /> (setq p5 (polar p4 pi 1))<BR /> (command "_pline" p1 p2 p3 p4 p5 "c" "")<BR /> (setq el3 (entlast))<BR /> (if<BR /> (not (member "geom3d.arx" (arx)))<BR /> (arxload "geom3d")<BR /> )<BR /> (rotate3d el3 "x" p1 "r" 0 90)<BR /> (setq el4 (entlast))<BR /> (setq p6 (list (car loc)(cadr loc) 10))<BR /> (command "_line" loc p6 "")<BR /> (setq el5 (entlast))<BR /> (command "_revolve" el4 "" "o" el5 "")<BR /> (setq el6 (entlast))<BR /> (command "_erase" el5 "")<BR /> (command "_subtract" el2 "" el6 "")<BR /> (command "_shademode" "g")<BR /> (command "_3dorbit")<BR /> (princ)<BR /> )<BR /> [/code]<BR /> <BR /> <BR /> <JAMES_HOUGH> wrote in message news:5310852@discussion.autodesk.com...<BR /> Hello,<BR /> I am trying to create a rotate3d lisp routine with the ability to rotate an <BR /> object by defining a base point, a reference angle from a 3d line (or two 3d <BR /> points), and a new angle defined in the same manner.<BR /> Has anybody been down this path before?</JAMES_HOUGH> Wed, 30 Aug 2006 00:21:35 GMT https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/rotate3d-with-reference-line/m-p/1749265#M150262 Anonymous 2006-08-30T00:21:35Z