https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/angle-mismatch-dynamic-block/m-p/13392836#M1501 <P>try these modifications:</P><LI-CODE lang="general">(defun c:SB(/ o pt va di dx dy ang params paramName) (setq pt (getpoint "\nPick a first point:") va (getpoint pt "\nPick a second point:") di (distance pt va) ang (angle pt va) dx (- (car va) (car pt)) ; deltax dy (- (cadr va) (cadr pt)) ; deltay ) (command "ZOOM" "S" pt va) (command "_.Insert" "D:/kk/OTHERS/1.DWG" pt "" "" "") (setq o (vlax-ename-&gt;vla-object (entlast))) ; (vla-rotate o (vlax-3d-point pt) ang) (setq params (vlax-safearray-&gt;list (vlax-variant-value (vla-GetDynamicBlockProperties o)))) (foreach a params (setq paramName (vla-get-PropertyName a)) (if (wcmatch paramName "*X*") ; (vla-put-value a (vlax-make-variant di 5)) (vla-put-value a (vlax-make-variant dx 5)) ; deltax ) (if (wcmatch paramName "*Y*") (vla-put-value a (vlax-make-variant dy 5)) ; deltay ) ) (command "ZOOM" "P") (princ) )</LI-CODE> Wed, 26 Mar 2025 21:55:00 GMT paullimapa 2025-03-26T21:55:00Z https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/angle-mismatch-dynamic-block/m-p/13392684#M1500 <LI-CODE lang="general">(defun c:SB(/ o pt va di ang params paramName) (setq pt (getpoint "\nPick a first point:") va (getpoint pt "\nPick a second point:") di (distance pt va) ang (angle pt va) ) (command "ZOOM" "S" pt va) (command "_.Insert" "D:/kk/OTHERS/1.DWG" pt "" "" "") (setq o (vlax-ename-&gt;vla-object (entlast))) (vla-rotate o (vlax-3d-point pt) ang) (setq params (vlax-safearray-&gt;list (vlax-variant-value (vla-GetDynamicBlockProperties o)))) (foreach a params (setq paramName (vla-get-PropertyName a)) (if (wcmatch paramName "*X*") (vla-put-value a (vlax-make-variant di 5)) ) ) (command "ZOOM" "P") (princ) )</LI-CODE><P><BR />i pick two points distance is ok but angle is mismatch that is i pick first point second point i pick 0 angle side but its come angle is 45</P> Wed, 26 Mar 2025 19:54:47 GMT https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/angle-mismatch-dynamic-block/m-p/13392684#M1500 jaimuthu 2025-03-26T19:54:47Z https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/angle-mismatch-dynamic-block/m-p/13392836#M1501 <P>try these modifications:</P><LI-CODE lang="general">(defun c:SB(/ o pt va di dx dy ang params paramName) (setq pt (getpoint "\nPick a first point:") va (getpoint pt "\nPick a second point:") di (distance pt va) ang (angle pt va) dx (- (car va) (car pt)) ; deltax dy (- (cadr va) (cadr pt)) ; deltay ) (command "ZOOM" "S" pt va) (command "_.Insert" "D:/kk/OTHERS/1.DWG" pt "" "" "") (setq o (vlax-ename-&gt;vla-object (entlast))) ; (vla-rotate o (vlax-3d-point pt) ang) (setq params (vlax-safearray-&gt;list (vlax-variant-value (vla-GetDynamicBlockProperties o)))) (foreach a params (setq paramName (vla-get-PropertyName a)) (if (wcmatch paramName "*X*") ; (vla-put-value a (vlax-make-variant di 5)) (vla-put-value a (vlax-make-variant dx 5)) ; deltax ) (if (wcmatch paramName "*Y*") (vla-put-value a (vlax-make-variant dy 5)) ; deltay ) ) (command "ZOOM" "P") (princ) )</LI-CODE> Wed, 26 Mar 2025 21:55:00 GMT https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/angle-mismatch-dynamic-block/m-p/13392836#M1501 paullimapa 2025-03-26T21:55:00Z https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/angle-mismatch-dynamic-block/m-p/13393060#M1502 <P>its work fine Thanks&nbsp;</P> Thu, 27 Mar 2025 01:49:20 GMT https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/angle-mismatch-dynamic-block/m-p/13393060#M1502 jaimuthu 2025-03-27T01:49:20Z https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/angle-mismatch-dynamic-block/m-p/13393066#M1503 <P>You are welcome…cheers!!!</P> Thu, 27 Mar 2025 01:54:18 GMT https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/angle-mismatch-dynamic-block/m-p/13393066#M1503 paullimapa 2025-03-27T01:54:18Z