CAD\u4e2d\u5e73\u9f50\u7269\u4f53\u7684\u5b9e\u73b0\u662f\u901a\u8fc7align\u547d\u4ee4\u6765\u5b9e\u73b0\u7684\u3002
\n\u4f46\u5728CAD\u7f16\u7a0b\u4e2d\u6709\u65f6\u5019\u9700\u8981\u5bf9\u8fd9\u4e2a\u547d\u4ee4\u81ea\u5b9a\u4e49\uff0c\u800c\u4e14\u5728\u67d0\u4e9b\u60c5\u51b5\u4e0b\u4e0d\u9002\u5408\u7528\u547d\u4ee4\u5f62\u5f0f\u3002
\n\u6240\u4ee5\u6211\u7f16\u5199\u4e86\u4e00\u4e2alisp\u7a0b\u5e8f\uff0c\u7528\u6237\u4e5f\u53ef\u4ee5\u6839\u636e\u8fd9\u4e2a\u7a0b\u5e8f\u5b9a\u4e49\u66f4\u9ad8\u7ea7\u7684\u5e73\u9f50\u3002
\n\u4e0b\u9762\u662f\u5b9e\u73b0\u7684\u4ee3\u7801\u3002
\n
\n[codesyntax lang=”lisp”];;;———————————————————–;;
\n;;; To simulate the command: “align” ;;
\n;;; Command:Align3d ;;
\n;;; Use in some cases: command can’t be applied or you don’t ;;
\n;;; want to use them; or improve the efficiency,etc.and here ;;
\n;;; are some useful functions,e.g. “Mat:Get3PMatrix”;Or even ;;
\n;;; you can customize “align” command. ;;
\n;;; Author: Highflybird, Date:2012-8-6. ;;
\n;;; All copyrights reserved. ;;
\n;;;———————————————————–;;
\n(defun C:Align3d (\/ sel sP1 sP2 sP3 dP1 dP2 dP3 sclp scl
\n mat0 mat1 mat2 mat i ent obj app doc)
\n ;;input
\n (setq sel (ssget))
\n (initget 9)
\n (setq sP1 (getpoint “nSpecify first source point:”))
\n (initget 9)
\n (setq dP1 (getpoint “nSpecify first destination point:”))
\n (initget 9)
\n (setq sP2 (getpoint “nSpecify second source point:”))
\n (initget 9)
\n (setq dP2 (getpoint “nSpecify second destination point:”))
\n (initget 8)
\n (setq sP3 (getpoint “nSpecify third source point or <continue>:”))
\n (initget 9)
\n (if (null sP3)
\n (setq sP3 (Mat:Rotate90 sP2 sP1)
\n dP3 (Mat:Rotate90 dP2 dP1)
\n )
\n (setq dP3 (getpoint “nSpecify third destination point:”))
\n )
\n (foreach x ‘(sP1 sP2 sP3 dP1 dP2 dP3)
\n (set x (trans (eval x) 1 0))
\n )
\n (initget “Yes No”)
\n (setq sclp (getkword “nScale objects based on alignment points? [Yes\/No] <N>:”))<\/p>\n
;;Get the transformation matrix
\n (setq mat1 (Mat:3PMatrix sP1 sP2 sP3 nil))
\n (setq mat2 (Mat:3PMatrix dP1 dP2 dP3 T))
\n (if (= “Yes” sclp)
\n (setq scl (\/ (distance dP1 dP2) (distance sP2 sP1))
\n mat0 (list (list scl 0 0 0)(list 0 scl 0 0) (list 0 0 scl 0) ‘(0 0 0 1))
\n mat (Mat:mxm mat2 (Mat:mxm mat0 mat1))
\n )
\n (setq mat (Mat:mxm mat2 mat1))
\n )<\/p>\n
;;Apply the transformation.
\n (setq app (vlax-get-acad-object))
\n (setq doc (vla-get-ActiveDocument app))
\n (vla-StartUndoMark doc)
\n (setq i 0)
\n (if sel
\n (repeat (sslength sel)
\n (setq ent (ssname sel i))
\n (setq obj (vlax-ename->vla-object ent))
\n (vla-transformby obj (vlax-tmatrix mat))
\n (setq i (1+ i))
\n )
\n )
\n (vla-EndUndoMark doc)
\n (vlax-release-object doc)
\n (vlax-release-object app)
\n (princ)
\n)<\/p>\n
;;;———————————————————–;;
\n;;; Mat:Rotate90 Rotate a point 90 degree by a basepoint ;;
\n;;;———————————————————–;;
\n(defun Mat:Rotate90 (Pt BasePt \/ a)
\n (setq a (+ (\/ pi 2) (angle BasePt Pt)))
\n (polar BasePt a (distance pt basePt))
\n)
\n(prompt “Command is: Align3d”)
\n(princ)
\n[\/codesyntax]<\/p>\n","protected":false},"excerpt":{"rendered":"
CAD\u4e2d\u5e73\u9f50\u7269\u4f53\u7684\u5b9e\u73b0\u662f\u901a\u8fc7align\u547d\u4ee4\u6765\u5b9e\u73b0\u7684\u3002 \u4f46\u5728CAD\u7f16\u7a0b\u4e2d\u6709\u65f6\u5019\u9700\u8981\u5bf9\u8fd9\u4e2a\u547d\u4ee4\u81ea\u5b9a\u4e49\uff0c\u800c\u4e14\u5728\u67d0\u4e9b\u60c5<\/p>\n