\u5bf9CAD\u4e2d\u77e9\u9635\u53ca\u5176\u76f8\u5173\u77e5\u8bc6\u7684\u7814\u7a76.
\n\u5305\u62ec\u4e86\u7ebf\u6027\u4ee3\u6570\u7684\u4e00\u4e9b\u57fa\u672c\u77e5\u8bc6\uff1b
\n\u77e9\u9635\u7684\u57fa\u672c\u8fd0\u7b97\uff1b
\n\u77e9\u9635\u7684\u57fa\u672c\u53d8\u6362\uff1b
\n\u5b9e\u4f53\u7684\u77e9\u9635\u53ca\u5176\u53d8\u6362\uff1b
\n\u65b9\u7a0b\u6c42\u89e3\u548c\u77e9\u9635\u7684\u6c42\u9006\u3001\u77e9\u9635\u7684\u7279\u5f81\u89e3\uff1b
\n\u7b49\u7b49\u3002<\/p>\n
\u4e0b\u9762\u662f\u5176\u5b9e\u73b0\u7684\u76f8\u5173\u4ee3\u7801\uff1a
\n
\n[codesyntax lang=”lisp”]
\n;|*********************************************************************************************;
\n\u8f6f\u4ef6\u4f5c\u8005: Highflybird ;
\n\u8f6f\u4ef6\u7528\u9014: \u4e3aAutoCAD \u7684LISP\u5b9a\u5236\u7684\u4e00\u4e9b\u7b97\u6cd5\u548c\u51fd\u6570 ;
\n\u65e5\u671f\u5730\u70b9: 2012.12.12 \u6df1\u5733 ;
\n\u7a0b\u5e8f\u8bed\u8a00: AutoLISP,Visual LISP ;
\n\u7248\u672c\u53f7: Ver. 1.0.121212 ;
\n**********************************************************************************************|;
\n(setq MatLibSymbols
\n ‘(MAT:v+v MAT:v-v MAT:v*v
\n MAT:v\/v MAT:vxs MAT:Dot
\n MAT:vxv MAT:SxVs MAT:norm
\n MAT:Norm3D MAT:Unitization MAT:unit
\n MAT:Det2 MAT:Det3 MAT:Det2V
\n MAT:Rot90 MAT:Rot2D MAT:TransU2W
\n MAT:TransW2U MAT:trp MAT:mxv
\n MAT:mxp MAT:mxs MAT:m+m
\n MAT:m-m MAT:mxm MAT:Translation
\n MAT:TranslateBy2P MAT:Scaling MAT:Rotation
\n MAT:Rotation3D MAT:RotateBy2P MAT:Reflect
\n MAT:Reflect3D MAT:TransNested MAT:RefGeom
\n MAT:RevRefGeom MAT:AttGeom Mat:DispToMatrix
\n MAT:Trans MAT:u2w MAT:w2u
\n MAT:Align MAT:2VMatrix Mat:3PMatrix
\n Mat:EntityMatrix MAT:ISO Mat:OcsMatrix
\n MAT:TransList Mat:3VLE Mat:Detm
\n Mat:3dPolarArray Mat:Normal_Origin LM:ReflectByMatrix
\n LM:Rotate3D LM:Reflect3D LM:TranslateByMatrix
\n LM:RotateByMatrix LM:ScaleByMatrix LM:ApplyMatrixTransformation
\n )
\n)<\/p>\n
;;;———————————————————–;;
\n;;;\u7b26\u53f7\u4fdd\u62a4 ;;
\n;;;———————————————————–;;
\n(defun protect-assign (syms)
\n (eval (list ‘pragma
\n (list ‘quote (list (cons ‘protect-assign syms)))
\n )
\n )
\n)<\/p>\n
;;;———————————————————–;;
\n;;;\u7b26\u53f7\u89e3\u9664\u4fdd\u62a4 ;;
\n;;;———————————————————–;;
\n(defun unprotect-assign (syms)
\n (eval
\n (list ‘pragma
\n (list ‘quote (list (cons ‘unprotect-assign syms)))
\n )
\n )
\n)
\n(unProtect-assign MatLibSymbols)<\/p>\n
;;;***********************************************************;;
\n;;; \u77e9\u9635\u90e8\u5206 ;;
\n;;;***********************************************************;;<\/p>\n
;;;———————————————————–;;
\n;;; \u4e24\u5411\u91cf\u76f8\u52a0 addition ;;
\n;;; Input: v1,v2 -vectors in R^n ;;
\n;;; OutPut: A vector ;;
\n;;;———————————————————–;;
\n(defun MAT:v+v (v1 v2)
\n (mapcar ‘+ v1 v2)
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u4e24\u5411\u91cf\u76f8\u51cf subtraction ;;
\n;;; Input: v1,v2 -vectors in R^n ;;
\n;;; OutPut: A vector ;;
\n;;;———————————————————–;;
\n(defun MAT:v-v (v1 v2)
\n (mapcar ‘- v1 v2)
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u4e24\u5411\u91cf\u76f8\u4e58 multiplication ;;
\n;;; Input: v1,v2 -vectors in R^n ;;
\n;;; OutPut: A vector ;;
\n;;;———————————————————–;;
\n(defun MAT:v*v (v1 v2)
\n (mapcar ‘* v1 v2)
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u4e24\u5411\u91cf\u76f8\u9664 division ;;
\n;;; Input: v1,v2 -vectors in R^n ;;
\n;;; OutPut: A vector ;;
\n;;;———————————————————–;;
\n(defun MAT:v\/v (v1 v2)
\n (mapcar ‘\/ v1 v2)
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u5411\u91cf\u4e58\u6807\u91cf(\u7cfb\u6570) ;;
\n;;; Vector x Scalar – Lee Mac ;;
\n;;; Args: v – vector in R^n, s – real scalar ;;
\n;;;———————————————————–;;
\n(defun MAT:vxs ( v s )
\n (mapcar (function (lambda ( n ) (* n s))) v)
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u5411\u91cf\u9664\u4ee5\u6807\u91cf(\u7cfb\u6570) ;;
\n;;; Vector x Scalar – Lee Mac ;;
\n;;; Args: v – vector in R^n, s – real scalar ;;
\n;;;———————————————————–;;
\n(defun MAT:v\/s ( v s )
\n (if (not (zerop s))
\n (mat:vxs v (\/ 1.0 s))
\n )
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u4e24\u5411\u91cf\u7684\u70b9\u79ef ;;
\n;;; Vector Dot Product ;;
\n;;; Input: v1,v2 -vectors in R^n ;;
\n;;;———————————————————–;;
\n(defun MAT:Dot (v1 v2)
\n (apply ‘+ (mapcar ‘* v1 v2))
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u4e24\u5411\u91cf\u7684\u53c9\u79ef ;;
\n;;; Vector Cross Product ;;
\n;;; Args: u,v – vectors in R^3 ;;
\n;;;———————————————————–;;
\n(defun MAT:vxv ( u v )
\n (list
\n (- (* (cadr u) (caddr v)) (* (cadr v) (caddr u)))
\n (- (* (car v) (caddr u)) (* (car u) (caddr v)))
\n (- (* (car u) (cadr v)) (* (car v) (cadr u)))
\n )
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u7ebf\u6027\u7ec4\u5408 \u6807\u91cf\u7ec4\u4e58\u5411\u91cf\u7ec4 ;;
\n;;; Linear combination – highflybird ;;
\n;;; Input: Vectors – vectors, Scalars, – a real number list ;;
\n;;; Output: a vector ;;
\n;;;———————————————————–;;
\n(defun MAT:SxVs (Vectors Scalars)
\n (apply ‘mapcar (cons ‘+ (mapcar ‘MAT:vxs Vectors Scalars)))
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u5411\u91cf\u7684\u6a21(\u957f\u5ea6) ;;
\n;;; Vector Norm – Lee Mac ;;
\n;;; Args: v – vector in R^n ;;
\n;;;———————————————————–;;
\n(defun MAT:norm ( v )
\n (sqrt (apply ‘+ (mapcar ‘* v v)))
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u5411\u91cf\u7684\u6a21(\u957f\u5ea6) ;;
\n;;; Vector Norm – highflybird ;;
\n;;; Args: v – vector in R^3 ;;
\n;;;———————————————————–;;
\n(defun MAT:Norm3D ( v )
\n (distance ‘(0 0 0) v)
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u5355\u4f4d\u5411\u91cf ;;
\n;;; Unit Vector – Lee Mac ;;
\n;;; Args: v – vector in R^n ;;
\n;;;———————————————————–;;
\n(defun MAT:Unitization (v)
\n ( (lambda (n)
\n (if (equal 0.0 n 1e-14)
\n nil
\n (MAT:vxs v (\/ 1.0 n))
\n )
\n )
\n (MAT:norm v)
\n )
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u5355\u4f4d\u5411\u91cf ;;
\n;;; Unit Vector – highflybird ;;
\n;;; Args: v – vector in R^3 ;;
\n;;;———————————————————–;;
\n(defun MAT:unit ( v \/ l)
\n (cond
\n ( (= (setq l (distance ‘(0 0 0) v)) 1.0 ) v)
\n ( (> l 1e-14) (mapcar ‘\/ v (list l l l)))
\n )
\n) <\/p>\n
;;;———————————————————–;;
\n;;; \u4e24\u4e2a2d\u5411\u91cf\u7684\u53c9\u79ef\u7684\u6570\u503c ;;
\n;;; \u8f93\u5165: \u4e24\u4e2a\u70b9\uff08\u6216\u8005\u4e24\u4e2a\u5411\u91cf\uff09 ;;
\n;;; \u8f93\u51fa: \u4e00\u4e2a\u6570\u503c.\u5982\u679c\u4e3a\u6b63\u5219\u662f\u9006\u65f6\u9488,\u4e24\u5411\u91cf\u5f62\u6210\u7684\u5e73\u9762\u6cd5\u7ebf\u5411\u91cf;;
\n;;; \u5411\u4e0a\uff0c\u4e3a\u8d1f\u5219\u662f\u987a\u65f6\u9488\uff0c\u4e3a\u96f6\u5219\u4e24\u5411\u91cf\u5171\u7ebf\u6216\u5e73\u884c\u3002 ;;
\n;;; \u8fd9\u4e2a\u6570\u503c\u4e5f\u4e3a\u539f\u70b9,P1,P2\u4e09\u70b9\u9762\u79ef\u7684\u4e24\u500d\u3002 ;;
\n;;;———————————————————–;;
\n(defun MAT:Det2V (v1 v2)
\n (- (* (car v1) (cadr v2)) (* (car v2) (cadr v1)))
\n)<\/p>\n
;;;———————————————————–;;
\n;;; 2d\u884c\u5217\u5f0f determinant in R^2 ;;
\n;;; Args: 4 numbers ;;
\n;;;———————————————————–;;
\n(defun MAT:Det2 (x1 y1 x2 y2)
\n (- (* x1 y2) (* x2 y1))
\n)<\/p>\n
;;;———————————————————–;;
\n;;; 3d\u884c\u5217\u5f0f determinant in R^3 ;;
\n;;; Args: 9 numbers ;;
\n;;;———————————————————–;;
\n(defun MAT:Det3 (a1 b1 c1 a2 b2 c2 a3 b3 c3)
\n (+ (* a1 (- (* b2 c3) (* b3 c2)))
\n (* a2 (- (* b3 c1) (* b1 c3)))
\n (* a3 (- (* b1 c2) (* b2 c1)))
\n )
\n)<\/p>\n
;;;———————————————————–;;
\n;;; n\u9636\u884c\u5217\u5f0f determinant in R^n ;;
\n;;; Args: n*n \u77e9\u9635 ;;
\n;;; Matrix Determinant – ElpanovEvgeniy ;;
\n;;; Last edit 2013.11.13 ;;
\n;;; Args: m – nxn matrix ;;
\n;;; (mat:detm ‘((0 1) (1 0))) ;;
\n;;;———————————————————–;;
\n(defun mat:detm (m \/ r i)
\n (cond
\n ((null m) 1)
\n ((and
\n (zerop (setq i (caar m)))
\n (setq r (car (vl-member-if-not
\n (function (lambda (a) (zerop (car a))))
\n (cdr m)
\n )
\n )
\n )
\n )
\n (mat:detm (cons (mapcar ‘+ (car m) r) (cdr m)))
\n )
\n ((zerop i) 0)
\n ((setq i (float i))
\n (setq r (cdar m))
\n (* i
\n (mat:detm
\n (mapcar
\n (function
\n (lambda (a \/ d)
\n (setq d (\/ (car a) i))
\n (mapcar
\n (function (lambda (b c) (- b (* c d))))
\n (cdr a)
\n r
\n )
\n )
\n )
\n (cdr m)
\n )
\n )
\n )
\n )
\n )
\n)<\/p>\n
;;;=====================================================
\n;;;\u4e09\u5143\u4e00\u6b21\u65b9\u7a0b\u7ec4\u7684\u89e3
\n;;;The solution of a Three-variable linear equations
\n;;;=====================================================
\n(defun Mat:3VLE (a b c d e f g h i j k l \/ d1)
\n (setq d1 (float (Mat:DET3 a b c d e f g h i)))
\n (if (\/= d1 0.0)
\n (list
\n (\/ (Mat:DET3 j b c k e f l h i) d1)
\n (\/ (Mat:DET3 a j c d k f g l i) d1)
\n (\/ (Mat:DET3 a b j d e k g h l) d1)
\n )
\n )
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u65cb\u8f6c\u4e00\u4e2a\u5411\u91cf\u6216\u8005\u70b990\u5ea6 ;;
\n;;; \u8f93\u5165: \u4e00\u4e2a\u5411\u91cf ;;
\n;;; \u8f93\u51fa: \u88ab\u65cb\u8f6c90\u5ea6\u540e\u7684\u5411\u91cf ;;
\n;;;———————————————————–;;
\n(defun MAT:Rot90 (vec)
\n (vl-list* (- (cadr vec)) (car vec) (cddr vec))
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u65cb\u8f6c\u5411\u91cf\u5230\u6307\u5b9a\u89d2\u5ea6 ;;
\n;;; \u8f93\u5165: \u4e00\u4e2a\u5411\u91cf\u548c\u6307\u5b9a\u7684\u89d2\u5ea6 ;;
\n;;; \u8f93\u51fa: \u88ab\u65cb\u8f6c\u540e\u7684\u5411\u91cf ;;
\n;;;———————————————————–;;
\n(defun MAT:Rot2D (v a \/ c s x y)
\n (setq c (cos a) s (sin a))
\n (setq x (car v) y (cadr v))
\n (list (- (* x c) (* y s)) (+ (* x s) (* y c)))
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u77e9\u9635\u8f6c\u7f6e ;;
\n;;; MAT:trp Transpose a matrix -Doug Wilson- ;;
\n;;; \u8f93\u5165\uff1a\u77e9\u9635 ;;
\n;;; \u8f93\u51fa\uff1a\u8f6c\u7f6e\u540e\u7684\u77e9\u9635 ;;
\n;;;———————————————————–;;
\n(defun MAT:trp (m)
\n (apply ‘mapcar (cons ‘list m))
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u77e9\u9635\u76f8\u52a0 ;;
\n;;; Matrix + Matrix – Lee Mac ;;
\n;;; Args: m,n – nxn matrices ;;
\n;;;———————————————————–;;
\n(defun MAT:m+m ( m n )
\n (mapcar ‘(lambda ( r s ) (mapcar ‘+ r s)) m n)
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u77e9\u9635\u76f8\u51cf ;;
\n;;; Matrix – Matrix – Lee Mac ;;
\n;;; Args: m,n – nxn matrices ;;
\n;;;———————————————————–;;
\n(defun MAT:m-m ( m n )
\n (mapcar ‘(lambda ( r s ) (mapcar ‘- r s)) m n)
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u77e9\u9635\u76f8\u4e58 ;;
\n;;; MAT:mxm Multiply two matrices -Vladimir Nesterovsky- ;;
\n;;;———————————————————–;;
\n(defun MAT:mxm (m q)
\n (mapcar (function (lambda (r) (MAT:mxv (MAT:trp q) r))) m)
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u5411\u91cf\u6216\u70b9\u7684\u77e9\u9635\u53d8\u6362(\u5411\u91cf\u4e58\u77e9\u9635) ;;
\n;;; Matrix x Vector – Vladimir Nesterovsky ;;
\n;;; Args: m – nxn matrix, v – vector in R^n ;;
\n;;;———————————————————–;;
\n(defun MAT:mxv (m v)
\n (mapcar (function (lambda (r) (apply ‘+ (mapcar ‘* r v)))) m)
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u70b9\u7684\u77e9\u9635(4×4 matrix) \u53d8\u6362 ;;
\n;;; \u8f93\u5165\uff1a\u77e9\u9635m\u548c\u4e00\u4e2a\u4e09\u7ef4\u70b9p ;;
\n;;; \u8f93\u51fa\uff1a\u70b9\u53d8\u6362\u540e\u7684\u4f4d\u7f6e ;;
\n;;;———————————————————–;;
\n(defun MAT:mxp (m p)
\n (reverse (cdr (reverse (MAT:mxv m (append p ‘(1.0))))))
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u77e9\u9635\u4e58\u6807\u91cf ;;
\n;;; Matrix x Scalar – Lee Mac ;;
\n;;; Args: m – nxn matrix, n – real scalar ;;
\n;;;———————————————————–;;
\n(defun MAT:mxs ( m s )
\n (mapcar (function (lambda ( v )(MAT:VxS v s))) m)
\n)<\/p>\n
;;;———————————————————–;;
\n;;;\u9ad8\u65af\u6d88\u5143\u6cd5\u4e4b\u77e9\u9635\u5206\u89e3 ;;
\n;;;Mat:Gauss_Elimination, use Safearray to express a matrix ;;
\n;;;———————————————————–;;
\n(defun Mat:Gauss_Elimination (m \/ r v i a)
\n (if (car m)
\n (progn
\n (setq v (mapcar (function (lambda (x) (abs (car x)))) m)) ;\u9996\u5217\u7684\u7edd\u5bf9\u503c
\n (setq i (vl-position (apply ‘max v) v)) ;\u5176\u6700\u5927\u503c\u6240\u5728\u7684\u884c\u53f7
\n (setq r (nth i m)) ;\u5f97\u5230\u7edd\u5bf9\u503c\u7684\u6700\u5927\u503c\u6240\u5728\u7684\u884c
\n (setq a (float (car r))) ;\u9700\u8f6c\u5316\u4e3a\u6d6e\u70b9\u6570\uff0c\u9632\u6b62\u6574\u9664
\n (if (equal a 0 1e-14)
\n (Mat:Gauss_Elimination (mapcar ‘cdr m)) ;\u53bb\u6389\u5168\u90e8\u4e3a\u96f6\u7684\u5217
\n (progn
\n (setq m (vl-remove r m)) ;\u53bb\u6389\u76f8\u540c\u7684\u884c
\n (setq r (mat:vxs r (\/ 1.0 a))) ;\u5f52\u4e00\u5316
\n (setq m
\n (mapcar
\n (function
\n (lambda (z)
\n (mapcar
\n (function
\n (lambda (x y)
\n (- x (* (car z) y)) ;\u6d88\u5143
\n )
\n )
\n z
\n r
\n )
\n )
\n )
\n m
\n )
\n )
\n (cons r (Mat:Gauss_Elimination (mapcar ‘cdr m)))
\n )
\n )
\n )
\n )
\n)<\/p>\n
;;;———————————————————–;;
\n;;;LU\u4e09\u89d2\u5f62\u5206\u89e3\uff0c\u6ca1\u8003\u8651\u9664\u96f6\u60c5\u51b5 ;;
\n;;;———————————————————–;;
\n(defun Mat:LUDcmp (mat \/ A I J K M N SUM)
\n (setq m (length mat))
\n (setq n (length (car mat)))
\n (setq a (vlax-make-safearray 5 (cons 0 (1- m)) (cons 0 (1- n))))
\n (vlax-safearray-fill a mat)<\/p>\n
(setq j 0)
\n (repeat n
\n (setq i 0)
\n (repeat m
\n (if (<= i j)
\n (progn
\n (setq sum 0)
\n (setq k 0)
\n (repeat i
\n (setq sum (+ sum (* (vlax-safearray-get-element a i k) (vlax-safearray-get-element a k j))))
\n (setq k (1+ k))
\n )
\n (vlax-safearray-put-element a i j (- (vlax-safearray-get-element a i j) sum))
\n )
\n (progn
\n (setq sum 0)
\n (setq k 0)
\n (repeat j
\n (setq sum (+ sum (* (vlax-safearray-get-element a i k) (vlax-safearray-get-element a k j))))
\n (setq k (1+ k))
\n )
\n (vlax-safearray-put-element a i j
\n (\/ (- (vlax-safearray-get-element a i j) sum) (float (vlax-safearray-get-element a j j)))
\n )
\n )
\n )
\n (setq i (1+ i))
\n )
\n (setq j (1+ j))
\n )
\n (vlax-safearray->list a)
\n)<\/p>\n
;;;———————————————————–;;
\n;;;\u4ece\u9ad8\u65af\u6d88\u5143\u6cd5\u5f97\u5230\u7684\u4e09\u89d2\u5f62\u77e9\u9635\u56de\u4ee3\u89e3\u65b9\u7a0b ;;
\n;;;———————————————————–;;
\n(defun Mat:TriangularForm (m \/ I L R X Y Z)
\n (if (= (- (length (car m)) (length m)) 1)
\n (progn
\n (setq m (mapcar ‘reverse (reverse m)))
\n (setq i 1)
\n (setq L (cons (caar m) L))
\n (while (setq m (cdr m))
\n (setq r (car m))
\n (setq y 0)
\n (setq z (reverse L))
\n (repeat i
\n (setq r (cdr r))
\n (setq x (car r))
\n (setq y (+ y (* x (car z))))
\n (setq z (cdr z))
\n )
\n (setq y (- (caar m) y))
\n (setq L (cons y L))
\n (setq i (1+ i))
\n )
\n L
\n )
\n )
\n)<\/p>\n
;;;———————————————————–;;
\n;;;\u89e3\u4e00\u6b21\u65b9\u7a0b\u7ec4 ;;
\n;;;———————————————————–;;
\n(defun Mat:Gauss_Equations (mat)
\n (Mat:TriangularForm (Mat:Gauss_Elimination mat))
\n)<\/p>\n
;;;———————————————————–;;
\n;;;\u9a8c\u8bc1\u89e3 ;;
\n;;;———————————————————–;;
\n(defun Mat:Verify (mat ans fuzz)
\n (equal (mat:mxv mat ans) (mapcar ‘last mat) fuzz)
\n)<\/p>\n
;;;———————————————————–;;
\n;;;\u968f\u673a\u51fd\u6570 ;;
\n;;;———————————————————–;;
\n(defun Misc:Rand (nMin nMax \/ seed)
\n (setq seed (getvar “USERR4”))
\n (if (= seed 0.)
\n (setq seed (getvar “TDUSRTIMER”)
\n seed (- seed (fix seed))
\n seed (rem (* seed 86400) 1)
\n )
\n )
\n (setq seed (rem (+ (* seed 15625.7) 0.21137152) 1))
\n (setvar “USERR4” seed)
\n (+ nMin (* seed (- nMax nMin)))
\n)<\/p>\n
;;;———————————————————–;;
\n;;;\u968f\u673a\u77e9\u9635 ;;
\n;;;———————————————————–;;
\n(defun Mat:RandomMatrix (len imax \/ m n)
\n (repeat len
\n (setq n nil)
\n (repeat (1+ len)
\n (setq n (cons (Misc:Rand (- imax) imax) n))
\n )
\n (setq m (cons n m))
\n )
\n)<\/p>\n
;;;***********************************************************;;
\n;;;\u77e9\u9635\u4e4b\u53d8\u6362\u90e8\u5206 ;;
\n;;;***********************************************************;;<\/p>\n
;;;———————————————————–;;
\n;;; \u5e73\u79fb\u53d8\u6362\u77e9\u9635\u65b9\u5f0f1 ;;
\n;;; \u53c2\u6570: ;;
\n;;; v – \u4f4d\u79fb\u77e2\u91cf ;;
\n;;;———————————————————–;;
\n;;;—————=={ Translate by Matrix }==—————–;;
\n;;; ;;
\n;;; Translation Matrix ;;
\n;;;———————————————————–;;
\n;;; Author: highflybird, Copyright ? 2012 ;;
\n;;;———————————————————–;;
\n;;; Arguments: ;;
\n;;; v – Displacement vector by which to translate ;;
\n;;;———————————————————–;;
\n(defun MAT:Translation ( v )
\n (list
\n (list 1. 0. 0. (car v))
\n (list 0. 1. 0. (cadr v))
\n (list 0. 0. 1. (caddr v))
\n (list 0. 0. 0. 1.)
\n )
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u5e73\u79fb\u53d8\u6362\u77e9\u9635\u65b9\u5f0f2 ;;
\n;;; \u53c2\u6570: ;;
\n;;; p1 – \u57fa\u70b9 ;;
\n;;; p2 – \u76ee\u6807\u70b9 ;;
\n;;;———————————————————–;;
\n;;;—————=={ Translate by Matrix }==—————–;;
\n;;; ;;
\n;;; Translation Matrix ;;
\n;;;———————————————————–;;
\n;;; Author: highflybird, Copyright ? 2012 ;;
\n;;;———————————————————–;;
\n;;; Arguments: ;;
\n;;; p1, p2 – Points representing vector by which to translate ;;
\n;;;———————————————————–;;
\n(defun MAT:TranslateBy2P ( p1 p2 )
\n (MAT:Translation (mapcar ‘- p2 p1))
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u6bd4\u4f8b\u7f29\u653e\u77e9\u9635 ;;
\n;;; \u53c2\u6570: ;;
\n;;; Cen – \u57fa\u70b9 ;;
\n;;; scale – \u7f29\u653e\u6bd4\u4f8b ;;
\n;;;———————————————————–;;
\n;;;—————–=={ Scale by Matrix }==——————-;;
\n;;; ;;
\n;;; Scaling Matrix ;;
\n;;;———————————————————–;;
\n;;; Author: highflybird, Copyright ? 2012 ;;
\n;;;———————————————————–;;
\n;;; Arguments: ;;
\n;;; Cen – Base Point for Scaling Transformation ;;
\n;;; scale – Scale Factor by which to scale object ;;
\n;;;———————————————————–;;
\n(defun MAT:Scaling ( Cen scale \/ s)
\n (setq s (- 1 scale))
\n (list
\n (list scale 0. 0. (* s (car Cen)))
\n (list 0. scale 0. (* s (cadr Cen)))
\n (list 0. 0. scale (* s (caddr Cen)))
\n ‘(0. 0. 0. 1.)
\n )
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u4e8c\u7ef4\u65cb\u8f6c\u53d8\u6362\u77e9\u9635 ;;
\n;;; \u53c2\u6570: ;;
\n;;; Cen – \u57fa\u70b9 ;;
\n;;; ang – \u65cb\u8f6c\u89d2\u5ea6 ;;
\n;;;———————————————————–;;
\n;;;—————–=={ Rotate by Matrix }==——————;;
\n;;; ;;
\n;;; Rotation Matrix ;;
\n;;;———————————————————–;;
\n;;; Author: highflybird, Copyright ? 2012 ;;
\n;;;———————————————————–;;
\n;;; Arguments: ;;
\n;;; Cen – Base Point for Rotation Transformation ;;
\n;;; ang – Angle through which to rotate object ;;
\n;;;———————————————————–;;
\n(defun MAT:Rotation ( Cen ang \/ c s x y)
\n (setq c (cos ang) s (sin ang))
\n (setq x (car Cen) y (cadr Cen))
\n (list
\n (list c (- s) 0. (- x (- (* c x) (* s y))))
\n (list s c 0. (- y (+ (* s x) (* c y))))
\n ‘(0. 0. 1. 0.)
\n ‘(0. 0. 0. 1.)
\n )
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u4e09\u7ef4\u65cb\u8f6c\u53d8\u6362\u77e9\u9635 ;;
\n;;; \u53c2\u6570: ;;
\n;;; Cen – \u57fa\u70b9 ;;
\n;;; Axis – \u65cb\u8f6c\u8f74 ;;
\n;;; ang – \u65cb\u8f6c\u89d2 ;;
\n;;;———————————————————–;;
\n;;;—————=={ 3D Rotate by Matrix }==—————–;;
\n;;; Author: highflybird. ;;
\n;;; Arguments: ;;
\n;;; Cen —Input origin point of rotation ;;
\n;;; Axis—Input axis vector of rotation ;;
\n;;; Ang —Input angle of rotation ;;
\n;;;———————————————————–;;
\n(defun MAT:Rotation3D (Cen Axis Ang \/ A B C D M N P x y z)
\n (setq D (distance ‘(0 0 0) Axis))
\n (if (or (< D 1e-8) (zerop ang))
\n ‘((1. 0. 0. 0.) (0. 1. 0. 0.) (0. 0. 1. 0.) (0. 0. 0. 1.))
\n (setq N (mapcar ‘\/ Axis (list D D D))
\n x (car N)
\n y (cadr N)
\n z (caddr N)
\n A (cos Ang)
\n B (sin Ang)
\n C (- 1 A)
\n M (list (list (+ A (* x x C))
\n (- (* x y C) (* z B))
\n (+ (* y B) (* x z C))
\n )
\n (list (+ (* z B) (* x y C))
\n (+ A (* y y C))
\n (- (* y z C) (* x B))
\n )
\n (list (- (* x z C) (* y B))
\n (+ (* x B) (* y z C))
\n (+ A (* z z C))
\n )
\n )
\n p (mapcar ‘- Cen (Mat:mxv M Cen))
\n M (Mat:DispToMatrix M p)
\n )
\n )
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u4e09\u7ef4\u65cb\u8f6c\u53d8\u6362\u77e9\u9635\uff08\u901a\u8fc7\u4e24\u70b9\u548c\u65cb\u8f6c\u89d2\uff09 ;;
\n;;; \u53c2\u6570: ;;
\n;;; p1,p2 – \u4e24\u70b9\u5b9a\u4e49\u7684\u65cb\u8f6c\u8f74 ;;
\n;;; ang – \u65cb\u8f6c\u89d2\u5ea6 ;;
\n;;;———————————————————–;;
\n;;;—————=={ 3D Rotate by Matrix }==—————–;;
\n;;; Rotation matrix ;;
\n;;;———————————————————–;;
\n;;; Author: highflybird, Copyright ? 2012 ;;
\n;;;———————————————————–;;
\n;;; Arguments: ;;
\n;;; p1,p2 – Two 3D points defining the axis of rotation ;;
\n;;; ang – Rotation Angle ;;
\n;;;———————————————————–;;
\n(defun MAT:RotateBy2P ( p1 p2 ang )
\n (MAT:Rotation3D P1 (mapcar ‘- p2 p1) ang)
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u4e8c\u7ef4\u955c\u50cf\u53d8\u6362\u77e9\u9635 ;;
\n;;; \u53c2\u6570: ;;
\n;;; p1 – \u955c\u50cf\u5411\u91cf\u7b2c\u4e00\u70b9 ;;
\n;;; p2 – \u955c\u50cf\u5411\u91cf\u7b2c\u4e8c\u70b9 ;;
\n;;;———————————————————–;;
\n;;;—————-=={ Reflect by Matrix }==——————;;
\n;;; ;;
\n;;; Reflects a VLA-Object or Point List using a ;;
\n;;; Transformation Matrix ;;
\n;;;———————————————————–;;
\n;;; Author: Lee Mac, Copyright ? 2010 – www.lee-mac.com ;;
\n;;;———————————————————–;;
\n;;; Arguments: ;;
\n;;; target – VLA-Object or Point List to transform ;;
\n;;; p1, p2 – Points representing vector in which to reflect ;;
\n;;;———————————————————–;;
\n(defun MAT:Reflect ( p1 p2 \/ a c s x y)
\n (setq a (angle p1 p2) a (+ a a))
\n (setq c (cos a) s (sin a))
\n (setq x (car p1) y (cadr p1))
\n (list
\n (list c s 0. (- x (+ (* c x) (* s y))))
\n (list s (- c) 0. (- y (- (* s x) (* c y))))
\n ‘(0. 0. 1. 0.)
\n ‘(0. 0. 0. 1.)
\n )
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u4e09\u7ef4\u955c\u50cf\u53d8\u6362\u77e9\u9635 ;;
\n;;; \u53c2\u6570: ;;
\n;;; p1,p2,p3 – \u4e09\u70b9\u5b9a\u4e49\u7684\u955c\u50cf\u5e73\u9762 ;;
\n;;;———————————————————–;;
\n;;;—————=={ 3D Reflect by Matrix }==—————-;;
\n;;; ;;
\n;;; Reflection matrix ;;
\n;;;———————————————————–;;
\n;;; Author: highflybird, Copyright ? 2012- ;;
\n;;;———————————————————–;;
\n;;; Arguments: ;;
\n;;; p1,p2,p3 – Three 3D points defining the reflection plane ;;
\n;;;———————————————————–;;
\n(defun MAT:Reflect3D (p1 p2 p3 \/ m ux uy uz)
\n (mapcar
\n ‘set
\n ‘(ux uy uz)
\n (MAT:unit (MAT:vxv (mapcar ‘- p2 p1) (mapcar ‘- p3 p1)))
\n )
\n (setq m (list (list (- 1. (* 2. ux ux)) (* -2. uy ux) (* -2. ux uz))
\n (list (* -2. ux uy) (- 1. (* 2. uy uy)) (* -2. uy uz))
\n (list (* -2. ux uz) (* -2. uy uz) (- 1. (* 2. uz uz)))
\n )
\n )
\n (Mat:DispToMatrix m (mapcar ‘- p1 (MAT:mxv m p1)))
\n)<\/p>\n
;;;***********************************************************;;
\n;;; \u4ee5\u4e0b\u90e8\u5206\u6765\u81eaLee-Mac,\u7279\u5730\u81f4\u8c22! ;;
\n;;;***********************************************************;;<\/p>\n
;;;—————=={ \u4e8c\u7ef4\u53d8\u6362 }==—————–;;
\n;;;———————————————————–;;<\/p>\n
;;;———————————————————–;;
\n;;; \u6bd4\u4f8b\u7f29\u653e\u77e9\u9635 ;;
\n;;; \u53c2\u6570: ;;
\n;;; target – vla-object \u6216\u8005\u70b9 ;;
\n;;; p1 – \u57fa\u70b9 ;;
\n;;; scale – \u7f29\u653e\u6bd4\u4f8b ;;
\n;;;———————————————————–;;
\n;;;—————–=={ Scale by Matrix }==——————-;;
\n;;; ;;
\n;;; Scales a VLA-Object or Point List using a ;;
\n;;; Transformation Matrix ;;
\n;;;———————————————————–;;
\n;;; Author: Lee Mac, Copyright ? 2010 – www.lee-mac.com ;;
\n;;;———————————————————–;;
\n;;; Arguments: ;;
\n;;; target – VLA-Object or Point List to transform ;;
\n;;; p1 – Base Point for Scaling Transformation ;;
\n;;; scale – Scale Factor by which to scale object ;;
\n;;;———————————————————–;;
\n(defun LM:ScaleByMatrix ( target p1 scale \/ m )
\n (LM:ApplyMatrixTransformation target
\n (setq m
\n (list
\n (list scale 0. 0.)
\n (list 0. scale 0.)
\n (list 0. 0. scale)
\n )
\n )
\n (mapcar ‘- p1 (MAT:mxv m p1))
\n )
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u5e73\u79fb\u53d8\u6362\u77e9\u9635 ;;
\n;;; \u53c2\u6570: ;;
\n;;; target – vla-object \u6216\u8005\u70b9 ;;
\n;;; p1 – \u57fa\u70b9 ;;
\n;;; p2 – \u76ee\u6807\u70b9 ;;
\n;;;———————————————————–;;
\n;;;—————=={ Translate by Matrix }==—————–;;
\n;;; ;;
\n;;; Translates a VLA-Object or Point List using a ;;
\n;;; Transformation Matrix ;;
\n;;;———————————————————–;;
\n;;; Author: Lee Mac, Copyright ? 2010 – www.lee-mac.com ;;
\n;;;———————————————————–;;
\n;;; Arguments: ;;
\n;;; target – VLA-Object or Point List to transform ;;
\n;;; p1, p2 – Points representing vector by which to translate ;;
\n;;;———————————————————–;;
\n(defun LM:TranslateByMatrix ( target p1 p2 )
\n (LM:ApplyMatrixTransformation target
\n (list
\n (list 1. 0. 0.)
\n (list 0. 1. 0.)
\n (list 0. 0. 1.)
\n )
\n (mapcar ‘- p2 p1)
\n )
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u65cb\u8f6c\u53d8\u6362\u77e9\u9635 ;;
\n;;; \u53c2\u6570: ;;
\n;;; target – vla-object \u6216\u8005\u70b9 ;;
\n;;; p1 – \u57fa\u70b9 ;;
\n;;; ang – \u65cb\u8f6c\u89d2\u5ea6 ;;
\n;;;———————————————————–;;
\n;;;—————–=={ Rotate by Matrix }==——————;;
\n;;; ;;
\n;;; Rotates a VLA-Object or Point List using a ;;
\n;;; Transformation Matrix ;;
\n;;;———————————————————–;;
\n;;; Author: Lee Mac, Copyright ? 2010 – www.lee-mac.com ;;
\n;;;———————————————————–;;
\n;;; Arguments: ;;
\n;;; target – VLA-Object or Point List to transform ;;
\n;;; p1 – Base Point for Rotation Transformation ;;
\n;;; ang – Angle through which to rotate object ;;
\n;;;———————————————————–;;
\n(defun LM:RotateByMatrix ( target p1 ang \/ m)
\n (LM:ApplyMatrixTransformation target
\n (setq m
\n (list
\n (list (cos ang) (- (sin ang)) 0.)
\n (list (sin ang) (cos ang) 0.)
\n (list 0. 0. 1.)
\n )
\n )
\n (mapcar ‘- p1 (MAT:mxv m p1))
\n )
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u955c\u50cf\u53d8\u6362\u77e9\u9635 ;;
\n;;; \u53c2\u6570: ;;
\n;;; target – vla-object \u6216\u8005\u70b9 ;;
\n;;; p1 – \u955c\u50cf\u5411\u91cf\u7b2c\u4e00\u70b9 ;;
\n;;; p2 – \u955c\u50cf\u5411\u91cf\u7b2c\u4e8c\u70b9 ;;
\n;;;———————————————————–;;
\n;;;—————-=={ Reflect by Matrix }==——————;;
\n;;; ;;
\n;;; Reflects a VLA-Object or Point List using a ;;
\n;;; Transformation Matrix ;;
\n;;;———————————————————–;;
\n;;; Author: Lee Mac, Copyright ? 2010 – www.lee-mac.com ;;
\n;;;———————————————————–;;
\n;;; Arguments: ;;
\n;;; target – VLA-Object or Point List to transform ;;
\n;;; p1, p2 – Points representing vector in which to reflect ;;
\n;;;———————————————————–;;
\n(defun LM:ReflectByMatrix ( target p1 p2 \/ m)
\n (
\n (lambda ( a \/ m )
\n (LM:ApplyMatrixTransformation target
\n (setq m
\n (list
\n (list (cos a) (sin a) 0.)
\n (list (sin a) (- (cos a)) 0.)
\n (list 0. 0. 1.)
\n )
\n )
\n (mapcar ‘- p1 (MAT:mxv m p1))
\n )
\n )
\n (* 2. (angle p1 p2))
\n )
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u53d8\u6362\u51fd\u6570 ;;
\n;;; \u53c2\u6570: ;;
\n;;; target – vla-object \u6216\u8005\u70b9 ;;
\n;;; matrix – 3×3 \u77e9\u9635 ;;
\n;;; vector – \u79fb\u52a8\u5411\u91cf ;;
\n;;;———————————————————–;;
\n;;;———-=={ Apply Matrix Transformation }==————–;;
\n;;; ;;
\n;;; Transforms a VLA-Object or Point List using a ;;
\n;;; Transformation Matrix ;;
\n;;;———————————————————–;;
\n;;; Author: Lee Mac, Copyright ? 2010 – www.lee-mac.com ;;
\n;;;———————————————————–;;
\n;;; Arguments: ;;
\n;;; target – VLA-Object or Point List to Transform ;;
\n;;; matrix – 3×3 Matrix by which to Transform object ;;
\n;;; vector – 3D translation vector ;;
\n;;;———————————————————–;;
\n(defun LM:ApplyMatrixTransformation ( target matrix vector )
\n (cond
\n ( (eq ‘VLA-OBJECT (type target))<\/p>\n
(vla-TransformBy target
\n (vlax-tMatrix
\n (append (mapcar (function (lambda ( x v ) (append x (list v)))) matrix vector)
\n ‘((0. 0. 0. 1.))
\n )
\n )
\n )
\n )
\n ( (listp target)<\/p>\n
(mapcar
\n (function
\n (lambda ( point ) (mapcar ‘+ (MAT:mxv matrix point) vector))
\n )
\n target
\n )
\n )
\n )
\n)<\/p>\n
;;;—————=={ \u4e09\u7ef4\u53d8\u6362 }==—————–;;
\n;;;———————————————————–;;<\/p>\n
;;;———————————————————–;;
\n;;; \u4e09\u7ef4\u65cb\u8f6c\u53d8\u6362\u77e9\u9635 ;;
\n;;; \u53c2\u6570: ;;
\n;;; target – vla-object \u6216\u8005\u70b9 ;;
\n;;; p1,p2 – \u4e24\u70b9\u5b9a\u4e49\u7684\u65cb\u8f6c\u8f74 ;;
\n;;; ang – \u65cb\u8f6c\u89d2\u5ea6 ;;
\n;;;———————————————————–;;
\n;;;—————=={ 3D Rotate by Matrix }==—————–;;
\n;;; ;;
\n;;; Rotates a VLA-Object or Point List about a 3D axis using ;;
\n;;; a Transformation matrix. ;;
\n;;;———————————————————–;;
\n;;; Author: Lee Mac, Copyright ? 2011 – www.lee-mac.com ;;
\n;;;———————————————————–;;
\n;;; Arguments: ;;
\n;;; target – VLA-Object or Point List to Rotate ;;
\n;;; p1,p2 – Two 3D points defining the axis of rotation ;;
\n;;; ang – Rotation Angle ;;
\n;;;———————————————————–;;
\n(defun LM:Rotate3D ( target p1 p2 ang \/ ux uy uz u m)
\n (mapcar ‘set ‘(ux uy uz) (setq u (MAT:unit (mapcar ‘- p2 p1))))
\n (LM:ApplyMatrixTransformation target
\n (setq m
\n (MAT:m+m
\n (list
\n (list (cos ang) 0. 0.)
\n (list 0. (cos ang) 0.)
\n (list 0. 0. (cos ang))
\n )
\n (MAT:m+m
\n (MAT:mxs
\n (list
\n (list 0. (- uz) uy)
\n (list uz 0. (- ux))
\n (list (- uy) ux 0.)
\n )
\n (sin ang)
\n )
\n (MAT:mxs (mapcar (function (lambda ( e ) (MAT:vxs u e))) u) (- 1. (cos ang)))
\n )
\n )
\n )
\n (mapcar ‘- p1 (MAT:mxv m p1))
\n )
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u4e09\u7ef4\u955c\u50cf\u53d8\u6362\u77e9\u9635 ;;
\n;;; \u53c2\u6570: ;;
\n;;; target – vla-object \u6216\u8005\u70b9 ;;
\n;;; p1,p2,p3 – \u4e09\u70b9\u5b9a\u4e49\u7684\u955c\u50cf\u5e73\u9762 ;;
\n;;;———————————————————–;;
\n;;;—————=={ 3D Reflect by Matrix }==—————-;;
\n;;; ;;
\n;;; Reflects a VLA-Object or Point List in a plane using a ;;
\n;;; Transformation matrix. ;;
\n;;;———————————————————–;;
\n;;; Author: Lee Mac, Copyright ? 2011 – www.lee-mac.com ;;
\n;;;———————————————————–;;
\n;;; Arguments: ;;
\n;;; target – VLA-Object or Point List to Reflect ;;
\n;;; p1,p2,p3 – Three 3D points defining the reflection plane ;;
\n;;;———————————————————–;;
\n(defun LM:Reflect3D ( target p1 p2 p3 \/ m u ux uy uz )
\n (mapcar ‘set ‘(ux uy uz) (setq u (MAT:unit (MAT:vxv (mapcar ‘- p2 p1) (mapcar ‘- p3 p1)))))
\n (LM:ApplyMatrixTransformation target
\n (setq m
\n (list
\n (list (- 1. (* 2. ux ux)) (* -2. uy ux) (* -2. ux uz))
\n (list (* -2. ux uy) (- 1. (* 2. uy uy)) (* -2. uy uz))
\n (list (* -2. ux uz) (* -2. uy uz) (- 1. (* 2. uz uz)))
\n )
\n )
\n (mapcar ‘- p1 (MAT:mxv m p1))
\n )
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u53d8\u6362\u51fd\u6570 ;;
\n;;; \u53c2\u6570: ;;
\n;;; target – vla-object \u6216\u8005\u70b9 ;;
\n;;; matrix – 3×3 \u77e9\u9635 ;;
\n;;; vector – \u79fb\u52a8\u5411\u91cf ;;
\n;;;———————————————————–;;
\n;;;———-=={ Apply Matrix Transformation }==————–;;
\n;;; ;;
\n;;; Transforms a VLA-Object or Point List using a ;;
\n;;; Transformation Matrix ;;
\n;;;———————————————————–;;
\n;;; Author: Lee Mac, Copyright ? 2010 – www.lee-mac.com ;;
\n;;;———————————————————–;;
\n;;; Arguments: ;;
\n;;; target – VLA-Object or Point List to Transform ;;
\n;;; matrix – 3×3 Matrix by which to Transform object ;;
\n;;; vector – 3D translation vector ;;
\n;;;———————————————————–;;
\n(defun LM:ApplyMatrixTransformation ( target matrix vector )
\n (cond
\n ( (eq ‘VLA-OBJECT (type target))<\/p>\n
(vla-TransformBy target
\n (vlax-tMatrix
\n (append (mapcar (function (lambda ( x v ) (append x (list v)))) matrix vector)
\n ‘((0. 0. 0. 1.))
\n )
\n )
\n )
\n )
\n ( (listp target)<\/p>\n
(mapcar
\n (function
\n (lambda ( point ) (mapcar ‘+ (MAT:mxv matrix point) vector))
\n )
\n target
\n )
\n )
\n )
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u5757\u53c2\u7167\u7684\u53d8\u6362\u77e9\u9635\u548c\u9006\u77e9\u9635 ;;
\n;;;———————————————————–;;<\/p>\n
;;;———————————————————–;;
\n;;; \u529f\u80fd\uff1a \u67d0\u70b9\u5728\u5757\u5185\u5750\u6807\u7cfb\u7edf\u548c\u4e16\u754c\u6216\u8005\u7528\u6237\u5750\u6807\u7cfb\u7edf\u7684\u8f6c\u6362 ;;
\n;;; \u53c2\u6570\uff1a pt \u8981\u53d8\u6362\u7684\u70b9\u3002 ;;
\n;;; rlst \u7528 nentselp\u6216\u8005nentsel\u5f97\u5230\u7684\u8868\u7684\u6700\u540e\u4e00\u9879 ;;
\n;;; from \u5750\u6807\u7cfb\uff1a0,WCS; 1,\u5f53\u524dUCS; 2,\u5757\u53c2\u7167\u5750\u6807\u7cfbRCS ;;
\n;;; to \u5750\u6807\u7cfb\uff1a0,WCS; 1,\u5f53\u524dUCS; 2,\u5757\u53c2\u7167\u5750\u6807\u7cfbRCS ;;
\n;;;———————————————————–;;
\n;;; MAT:TransNested (gile) ;;
\n;;; Translates a point coordinates from WCS or UCS to RCS ;;
\n;;; -coordinates system of a ;;
\n;;; reference (xref or block) whatever its nested level- ;;
\n;;; ;;
\n;;; Arguments ;;
\n;;; pt : the point to translate ;;
\n;;; rlst : the parents entities list from the deepest nested ;;
\n;;; to the one inserted in current space -same as ;;
\n;;; (last (nentsel)) or (last (nentselp)) ;;
\n;;; from to : as with trans function: 0.WCS, 1.UCS, 2.RCS ;;
\n;;;———————————————————–;;<\/p>\n
(defun MAT:TransNested (pt rlst from to \/ GEOM)
\n (and (= 1 from) (setq pt (trans pt 1 0)))
\n (and (= 2 to) (setq rlst (reverse rlst)))
\n (and (or (= 2 from) (= 2 to))
\n (while rlst
\n (setq geom (if (= 2 to)
\n (MAT:RevRefGeom (car rlst))
\n (MAT:RefGeom (car rlst))
\n )
\n rlst (cdr rlst)
\n pt (mapcar ‘+ (MAT:mxv (car geom) pt) (cadr geom))
\n )
\n )
\n )
\n (if (= 1 to)
\n (trans pt 0 1)
\n pt
\n )
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u529f\u80fd\uff1a\u56fe\u5757\u7684\u53d8\u6362\u77e9\u9635 ;;
\n;;; \u8f93\u5165\uff1a\u5757\u53c2\u7167\u7684\u56fe\u5143\u540d ;;
\n;;; \u8f93\u51fa\uff1a\u5757\u53c2\u7167\u7684\u53d8\u6362\u77e9\u9635 ;;
\n;;;———————————————————–;;
\n;;; MAT:RefGeom (gile) ;;
\n;;; Returns a list which first item is a 3×3 transformation ;;
\n;;; matrix(rotation,scales normal) and second item the object ;;
\n;;; insertion point in its parent(xref, bloc or space) ;;
\n;;; ;;
\n;;; Argument : an ename ;;
\n;;;———————————————————–;;<\/p>\n
(defun MAT:RefGeom (ename \/ elst ang norm mat)
\n (setq elst (entget ename)
\n ang (cdr (assoc 50 elst))
\n norm (cdr (assoc 210 elst))
\n )
\n (list
\n (setq mat
\n (MAT:mxm
\n (mapcar (function (lambda (v) (trans v 0 norm T)))
\n ‘((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))
\n )
\n (MAT:mxm
\n (list (list (cos ang) (- (sin ang)) 0.0)
\n (list (sin ang) (cos ang) 0.0)
\n ‘(0.0 0.0 1.0)
\n )
\n (list (list (cdr (assoc 41 elst)) 0.0 0.0)
\n (list 0.0 (cdr (assoc 42 elst)) 0.0)
\n (list 0.0 0.0 (cdr (assoc 43 elst)))
\n )
\n )
\n )
\n )
\n (mapcar
\n ‘-
\n (trans (cdr (assoc 10 elst)) norm 0)
\n (MAT:mxv mat
\n (cdr (assoc 10 (tblsearch “BLOCK” (cdr (assoc 2 elst)))))
\n )
\n )
\n )
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u529f\u80fd\uff1a\u56fe\u5757\u7684\u53d8\u6362\u77e9\u9635\u7684\u9006\u77e9\u9635 ;;
\n;;;———————————————————–;;
\n;;; MAT:RevRefGeom (gile) ;;
\n;;; MAT:RefGeom inverse function ;;
\n;;; \u8f93\u5165\uff1a\u5757\u53c2\u7167\u7684\u56fe\u5143\u540d ;;
\n;;; \u8f93\u51fa\uff1a\u5757\u53c2\u7167\u7684\u53d8\u6362\u77e9\u9635\u7684\u9006\u77e9\u9635 ;;
\n;;;———————————————————–;;
\n(defun MAT:RevRefGeom (ename \/ entData ang norm mat)
\n (setq entData (entget ename)
\n ang (- (cdr (assoc 50 entData)))
\n norm (cdr (assoc 210 entData))
\n )
\n (list
\n (setq mat
\n (MAT:mxm
\n (list (list (\/ 1 (cdr (assoc 41 entData))) 0.0 0.0)
\n (list 0.0 (\/ 1 (cdr (assoc 42 entData))) 0.0)
\n (list 0.0 0.0 (\/ 1 (cdr (assoc 43 entData))))
\n )
\n (MAT:mxm
\n (list (list (cos ang) (- (sin ang)) 0.0)
\n (list (sin ang) (cos ang) 0.0)
\n ‘(0.0 0.0 1.0)
\n )
\n (mapcar (function (lambda (v) (trans v norm 0 T)))
\n ‘((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))
\n )
\n )
\n )
\n )
\n (mapcar ‘-
\n (cdr (assoc 10 (tblsearch “BLOCK” (cdr (assoc 2 entData)))))
\n (MAT:mxv mat (trans (cdr (assoc 10 entData)) norm 0))
\n )
\n )
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u5c5e\u6027\u7684\u53d8\u6362\u77e9\u9635Attrib Transformation Matrix. -highflybird ;;
\n;;; \u8f93\u5165\uff1aEname \u5c5e\u6027\u7684\u56fe\u5143\u540d ;;
\n;;; \u8f93\u51fa\uff1a\u5c5e\u6027\u7684\u53d8\u6362\u77e9\u9635 ;;
\n;;;———————————————————–;;
\n(defun MAT:AttGeom (ename \/ ang norm mat elst)
\n (setq elst (entget ename)
\n ang (cdr (assoc 50 elst))
\n norm (cdr (assoc 210 elst))
\n )
\n (list
\n (setq mat
\n (mxm
\n (mapcar (function (lambda (v) (trans v 0 norm T)))
\n ‘((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))
\n )
\n (list (list (cos ang) (- (sin ang)) 0.0)
\n (list (sin ang) (cos ang) 0.0)
\n ‘(0.0 0.0 1.0)
\n )
\n )
\n )
\n (trans (cdr (assoc 10 elst)) norm 0)
\n )
\n)<\/p>\n
;;;———————————————————–;;
\n;;; Append displacement vector to a matrix -Highflybird- ;;
\n;;; \u628a\u4f4d\u79fb\u77e2\u91cf\u6dfb\u52a0\u5230\u77e9\u9635\u4e2d ;;
\n;;; \u8f93\u5165\uff1amat — \u77e9\u9635(3×3)\uff0cdisp — \u4f4d\u79fb\u77e2\u91cf ;;
\n;;; \u8f93\u51fa\uff1a\u4e00\u4e2a4X4\u7684\u53d8\u6362CAD\u7684\u6807\u51c6\u53d8\u6362\u77e9\u9635 ;;
\n;;;———————————————————–;;
\n(defun Mat:DispToMatrix (mat disp)
\n (append
\n (mapcar ‘append mat (mapcar ‘list disp))
\n ‘((0. 0. 0. 1.))
\n )
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u4ece\u4e00\u4e2a\u5750\u6807\u7cfb\u7edf\u5230\u53e6\u4e00\u4e2a\u5750\u6807\u7cfb\u7edf\u7684\u53d8\u6362\u77e9\u9635 ;;
\n;;; \u8f93\u5165\uff1afrom – \u6e90\u5750\u6807\u7cfb\uff1bto – \u76ee\u7684\u5750\u6807\u7cfb ;;
\n;;; \u8f93\u51fa\uff1a\u4e00\u4e2a4X4\u7684CAD\u53d8\u6362\u77e9\u9635 ;;
\n;;;———————————————————–;;
\n(defun MAT:Trans (from to)
\n (append
\n (MAT:trp
\n (list
\n (trans ‘(1 0 0) from to t)
\n (trans ‘(0 1 0) from to t)
\n (trans ‘(0 0 1) from to t)
\n (trans ‘(0 0 0) from to nil)
\n )
\n )
\n ‘((0. 0. 0. 1.))
\n )
\n)<\/p>\n
;;;———————————————————–;;
\n;;; ucs\u5230wcs\u77e9\u9635\uff0c\u4e5f\u53ef\u79f0UCS\u7684\u53d8\u6362\u77e9\u9635 ;;
\n;;;———————————————————–;;
\n(defun MAT:u2w () (MAT:Trans 1 0))<\/p>\n
;;;———————————————————–;;
\n;;; wcs\u5230ucs\u77e9\u9635\uff0c\u4e5f\u53ef\u79f0UCS\u7684\u9006\u53d8\u6362\u77e9\u9635 ;;
\n;;;———————————————————–;;
\n(defun MAT:w2u () (MAT:Trans 0 1))<\/p>\n
;;;———————————————————–;;
\n;;OCS\u7684\u53d8\u6362\u77e9\u9635\uff0c\u6216\u53eb\u6cd5\u7ebf\u77e2\u91cf\u7684\u53d8\u6362\u77e9\u9635 ;;
\n;;;———————————————————–;;
\n(defun Mat:OcsMatrix (zdir \/ xdir)
\n (or (equal 1.0 (distance ‘(0 0 0) zdir) 1e-8)
\n (setq zdir (Mat:Unit zdir)) ; \u5148\u628a\u77e2\u91cf\u5355\u4f4d\u5316\u3002
\n )
\n (if (and (< (abs (car zdir)) 0.015625) ; \u5982\u679c(abs (Nx) < 1\/64)
\n (< (abs (cadr zdir)) 0.015625) ; \u4e14 (abs (Ny) < 1\/64)
\n )
\n (setq xdir (Mat:Unit (Mat:vxv ‘(0 1 0) zdir))) ; Ax = Wy X N \uff08\u53c9\u79ef\uff09
\n (setq xdir (Mat:Unit (Mat:vxv ‘(0 0 1) zdir))) ;\u5426\u5219 Ax = Wz X N\u3002
\n )
\n (list xdir (Mat:Unit (Mat:vxv zdir xdir)) zdir) ;Y\u65b9\u5411\u6ee1\u8db3\u53f3\u624b\u578b\u5750\u6807\u7cfb\u7edf
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u901a\u7528\u53d8\u6362\u77e9\u9635 by highflybird ;;
\n;;; \u8f93\u5165\uff1afrom – \u539f\u5750\u6807\u7cfb\uff0c ;;
\n;;; to – \u76ee\u7684\u5750\u6807\u7cfb\uff0c ;;
\n;;; Org – \u76ee\u7684\u5750\u6807\u7cfb\u7684\u539f\u70b9\u76f8\u5bf9\u539f\u5750\u6807\u7cfb\u7684\u4f4d\u7f6e ;;
\n;;; Ang – \u76f8\u5bf9\u4e8e\u539f\u5750\u6807\u7cfb\u7684\u65cb\u8f6c\u89d2\u5ea6 ;;
\n;;; \u8f93\u51fa\uff1a\u4e24\u4e2a\u77e9\u9635\uff0c\u4e00\u4e2a\u662f\u4ece\u539f\u5750\u6807\u7cfb\u53d8\u6362\u5230\u76ee\u7684\u5750\u6807\u7cfb\u7684\u53d8\u6362\u77e9\u9635;;
\n;;; \u4e00\u4e2a\u662f\u4ece\u76ee\u7684\u5750\u6807\u7cfb\u53d8\u6362\u5230\u539f\u5750\u6807\u7cfb\u7684\u53d8\u6362\u77e9\u9635 ;;
\n;;;———————————————————–;;
\n(defun MAT:Align (from to Org Ang \/ Mat Rot Inv Cen)
\n (setq Mat (mapcar (function (lambda (v) (trans v from to T)))
\n ‘((1. 0. 0.) (0. 1. 0.) (0. 0. 1.))
\n )
\n )
\n (if (not (equal ang 0 1e-14))
\n (setq Rot (list (list (cos ang) (- (sin ang)) 0.)
\n (list (sin ang) (cos ang) 0.)
\n (list 0. 0. 1.)
\n )
\n mat (MAT:mxm mat Rot)
\n )
\n )
\n (setq Cen (trans Org to from))
\n (setq Inv (mat:trp mat))
\n (list
\n (Mat:DispToMatrix mat Cen) ;from->to
\n (Mat:DispToMatrix Inv (mat:mxv mat (mapcar ‘- Cen))) ;to->from
\n )
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u901a\u8fc7\u4e24\u4e2a\u5750\u6807\u8f74\u548c\u5750\u6807\u539f\u70b9\u5b9a\u4e49\u7684\u53d8\u6362\u77e9\u9635 -by highflybird ;;
\n;;; \u8f93\u5165\uff1aOrg – \u5750\u6807\u7cfb\u539f\u70b9\uff0c ;;
\n;;; Vx – \u5750\u6807\u7cfbX \u65b9\u5411\uff0c ;;
\n;;; Vy – \u5750\u6807\u7cfby \u65b9\u5411 ;;
\n;;; \u8f93\u51fa\uff1a\u4e24\u4e2a\u77e9\u9635\uff0c\u4e00\u4e2a\u662f\u8be5\u5750\u6807\u7cfb\u7684\u53d8\u6362\u77e9\u9635\uff0c\u4e00\u4e2a\u662f\u5176\u9006\u77e9\u9635 ;;
\n;;;———————————————————–;;
\n(defun MAT:2VMatrix (Org Vx Vy \/ Vz Rot)
\n (if (or (equal Vx ‘(0 0 0) 1e-14) (equal Vy ‘(0 0 0) 1e-14))
\n ‘((1. 0. 0. 0.) (0. 1. 0. 0.) (0. 0. 1. 0.) (0. 0. 0. 1.))
\n (progn
\n (setq Vx (Mat:Unit Vx)) ;X Axis
\n (setq Vy (Mat:Unit Vy)) ;Y Axis
\n (setq Vz (Mat:unit (MAT:vxv Vx Vy))) ;Z Axis
\n (setq Vy (Mat:unit (MAT:vxv Vz Vx))) ;Y Axis
\n (setq Rot (list Vx Vy Vz)) ;Rotation matrix
\n (list ;Inverse Rotation matrix
\n (Mat:DispToMatrix (MAT:trp Rot) Org) ;The transformation matrix
\n (Mat:DispToMatrix Rot (MAT:mxv Rot (mapcar ‘- Org))) ;The Inverse matrix
\n )
\n )
\n )
\n)<\/p>\n
;;;———————————————————–;;
\n;;; Mat:3PMatrix -Highflybird- ;;
\n;;; \u901a\u8fc7\u4e24\u4e2a\u5750\u6807\u8f74\u548c\u5750\u6807\u539f\u70b9\u5b9a\u4e49\u7684\u53d8\u6362\u77e9\u9635 -by highflybird ;;
\n;;; \u8f93\u5165\uff1aP1 – \u5750\u6807\u7cfb\u539f\u70b9\uff0c ;;
\n;;; P2 – \u5750\u6807\u7cfb\u7684\u7b2c2\u70b9 ;;
\n;;; P3 – \u5750\u6807\u7cfb\u7684\u7b2c3\u70b9 ;;
\n;;; \u8f93\u51fa\uff1a\u4e24\u4e2a\u77e9\u9635\uff0c\u4e00\u4e2a\u662f\u8be5\u5750\u6807\u7cfb\u7684\u53d8\u6362\u77e9\u9635\uff0c\u4e00\u4e2a\u662f\u5176\u9006\u77e9\u9635 ;;
\n;;;———————————————————–;;
\n(defun Mat:3PMatrix (p1 p2 p3 \/ v1 v2 v3)
\n (MAT:2VMatrix P1 (mapcar ‘- p2 p1) (mapcar ‘- p3 p1))
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u5e73\u9f50\u5b9e\u4f53\u7684\u53d8\u6362\u77e9\u9635 -by highflybird ;;
\n;;; \u8f93\u5165\uff1aEnt – \u5b9e\u4f53\u540d ;;
\n;;; \u8f93\u51fa\uff1a\u5e73\u9f50\u8fd9\u4e2a\u5b9e\u4f53\u7684\u53d8\u6362\u77e9\u9635\u548c\u5b83\u7684\u9006\u77e9\u9635 ;;
\n;;;———————————————————–;;
\n(defun Mat:EntityMatrix (Ent \/ z dxf Cen obj an m1 mat Inv org)
\n (setq dxf (entget ent))
\n (if (setq Cen (cdr (assoc 10 dxf))) ;Insertpoint,center or startpoint,etc.
\n (if (null (caddr Cen))
\n (setq Cen (append Cen ‘(0.0)))
\n )
\n (setq Cen ‘(0 0 0))
\n )
\n (setq obj (vlax-ename->vla-object Ent))
\n (if (and (vlax-property-available-p obj ‘elevation) ;If it has elevation value.
\n (wcmatch (vla-get-objectname obj) “*Polyline”) ;It’s a “AcDb2dPolyline” or “AcDbPolyline” object
\n )
\n (setq z (vla-get-elevation obj)
\n Cen (list (car Cen) (cadr Cen) (+ (caddr Cen) z)) ;add elevation value
\n )
\n )
\n (if (vlax-property-available-p obj ‘rotation) ;if it has a rotaion angle
\n (setq an (vla-get-rotation obj))
\n (setq an 0)
\n )
\n (MAT:Align 0 Ent Cen an) ;return two matrices, the first is WCS->OCS,the second is OCS->WCS
\n)<\/p>\n
;;;———————————————————–;;
\n;;;\u901a\u7528\u7684\u8f74\u6d4b\u53d8\u6362\u77e9\u9635 highflybird 2012.12 ;;
\n;;;Axonometric projections Rotation matrices ;;
\n;;;Isometric projection: a = (\/ pi 4),b = (atan (- (sqrt 2))) ;;
\n;;;Input: a – Rotation angle about the vertical axis ;;
\n;;; b – Rotation angle about the horizontal axis ;;
\n;;;Output: transforamtion matrix of this projection ;;
\n;;;———————————————————–;;
\n(defun MAT:ISO (a b \/ ca sa cb sb)
\n (setq ca (cos a))
\n (setq sa (sin a))
\n (setq cb (cos b))
\n (setq sb (sin b))
\n (list (list ca (- sa) 0 0)
\n (list (* sa cb) (* ca cb) (- sb) 0)
\n (list (* sa sb) (* ca sb) cb 0)
\n (list 0 0 0 1)
\n )
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u70b9\u96c6\u53d8\u6362 ;;
\n;;; \u8f93\u5165: \u8981\u53d8\u6362\u7684\u70b9\u96c6 ;;
\n;;; \u8f93\u51fa: \u53d8\u6362\u540e\u7684\u70b9\u96c6 ;;
\n;;;———————————————————–;;
\n(defun MAT:TransList (points from to Disp)
\n (mapcar (function (lambda (p) (trans p from to Disp))) points)
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u70b9\u53d8\u63621 ;;
\n;;; \u8f93\u5165: \u8981\u53d8\u6362\u7684\u70b9\u548c\u539f\u70b9\u53ca\u53d8\u6362\u5411\u91cf ;;
\n;;; \u8f93\u51fa: \u70b9\u53d8\u6362\u540e\u7684\u4f4d\u7f6e ;;
\n;;;———————————————————–;;
\n(defun MAT:TransU2W (p p0 v \/ d x0 y0 x1 y1 dv rt)
\n (setq d (distance ‘(0 0) v))
\n (if (equal d 1e-14)
\n P0
\n (setq x1 (car p)
\n y1 (cadr p)
\n x0 (car v)
\n y0 (cadr v)
\n dv (list (\/ (- (* x1 x0) (* y1 y0)) d)
\n (\/ (+ (* y1 x0) (* x1 y0)) d)
\n )
\n rt (mapcar ‘+ P0 dv)
\n )
\n )
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u70b9\u53d8\u63622 ;;
\n;;; \u8f93\u5165: \u8981\u53d8\u6362\u7684\u70b9\u548c\u539f\u70b9\u53ca\u53d8\u6362\u5411\u91cf ;;
\n;;; \u8f93\u51fa: \u70b9\u53d8\u6362\u540e\u7684\u4f4d\u79fb\u5411\u91cf ;;
\n;;;———————————————————–;;
\n(defun MAT:TransW2U (p p0 v \/ d x0 y0 x1 y1 dv)
\n (setq d (distance ‘(0 0) v))
\n (if (equal d 1e-14)
\n (list 0 0)
\n (setq x1 (- (car p) (car p0))
\n y1 (- (cadr p) (cadr p0))
\n x0 (car v)
\n y0 (cadr v)
\n dv (list (\/ (+ (* x1 x0) (* y1 y0)) d)
\n (\/ (- (* y1 x0) (* x1 y0)) d)
\n )
\n )
\n )
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u4e09\u7ef4\u73af\u5f62\u9635\u5217 ;;
\n;;; \u8f93\u5165\uff1aObjlst — \u7269\u4f53\u96c6 ;;
\n;;; Number — \u8981\u9635\u5217\u7684\u4e2a\u6570\uff08\u5305\u542b\u81ea\u8eab\u5728\u5185\uff09 ;;
\n;;; FillAngle — \u65cb\u8f6c\u89d2\u5ea6 ;;
\n;;; IsCCW — \u662f\u5426\u9006\u65f6\u9488 ;;
\n;;; P1 — \u9635\u5217\u4e2d\u5fc3\u70b9 ;;
\n;;; P2 — \u9635\u5217\u8f74\u7ebf\u7684\u53e6\u4e00\u70b9 ;;
\n;;; \u8f93\u51fa\uff1a\u9635\u5217\u7684\u7269\u4f53\u5217\u8868 ;;
\n;;;———————————————————–;;
\n(defun Mat:3dPolarArray (Objlst Number FillAngle IsCCW P1 P2 \/ lst1 lst2 ANG MAT NEW)
\n (if (and (= (type number) ‘INT) (> number 1))
\n (progn
\n (if IsCCW
\n (setq FillAngle (float FillAngle))
\n (setq FillAngle (- FillAngle pi pi))
\n )
\n (setq ang (\/ FillAngle (1- Number)))
\n (setq mat (vlax-tmatrix (MAT:RotateBy2P P1 P2 ang)))
\n (repeat (1- Number)
\n (setq lst1 nil)
\n (foreach obj ObjLst
\n (setq new (vla-copy obj))
\n (vla-transformby new mat)
\n (setq lst1 (cons new lst1))
\n )
\n (setq objLst (reverse lst1))
\n (setq lst2 (cons objLst lst2))
\n )
\n (reverse lst2)
\n )
\n (list ObjLst)
\n )
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u5df2\u77e5\u6cd5\u7ebf\u548c\u539f\u70b9\u7684\u5e73\u9762\u53d8\u6362\u77e9\u9635 ;;
\n;;; \u8f93\u5165\uff1aNormal — \u6cd5\u7ebf ;;
\n;;; Origin — \u539f\u70b9 ;;
\n;;; \u8f93\u51fa\uff1a\u9635\u5217\u7684\u7269\u4f53\u5217\u8868 ;;
\n;;;———————————————————–;;
\n(defun Mat:Normal_Origin_1 (Normal Origin \/ mat)
\n (setq mat (MAT:OCSMATRIX Normal))
\n (list
\n (Mat:DispToMatrix (mat:trp mat) origin)
\n (mat:DispToMatrix mat (mat:mxv mat (mapcar ‘- Origin)))
\n )
\n)<\/p>\n
(defun Mat:Normal_Origin (Normal Origin \/ mat rev xdir ydir zdir)
\n (setq xdir (trans ‘(1 0 0) 0 Normal T))
\n (setq ydir (trans ‘(0 1 0) 0 Normal T))
\n (setq zdir (trans ‘(0 0 1) 0 Normal T))
\n (setq mat (list xdir ydir zdir))
\n (setq rev (Mat:trp mat))
\n (list
\n (MAT:DISPTOMATRIX mat Origin)
\n (MAT:DISPTOMATRIX rev (mat:mxv rev (mapcar ‘- Origin)))
\n )
\n)<\/p>\n
;;;———————————————————–;;
\n;;; \u9009\u62e9\u96c6\u7684\u5305\u56f4\u76d2 ;;
\n;;;———————————————————–;;
\n(defun ENT:SelBox (sel \/ i ent obj MinPt MaxPt MinPts MaxPts objs)
\n (setq i 0)
\n (repeat (sslength sel)
\n (setq ent (ssname sel i))
\n (setq obj (vlax-ename->vla-object ent))
\n (setq objs (cons obj objs))
\n (vla-getboundingbox obj ‘MinPt ‘MaxPt)
\n (setq MinPts (cons (vlax-safearray->list minPt) MinPts))
\n (setq MaxPts (cons (vlax-safearray->list maxPt) MaxPts))
\n (setq i (1+ i))
\n )
\n (list (reverse objs)
\n (list (apply ‘mapcar (cons ‘min MinPts))
\n (apply ‘mapcar (cons ‘max MaxPts))
\n )
\n )
\n)<\/p>\n
;;;———————————————————–;;
\n;;;\u83b7\u53d6\u7269\u4f53Objects ;;
\n;;;———————————————————–;;
\n(defun Ent:Ents->Objs (sel \/ i e o l)
\n (setq i (sslength sel))
\n (repeat i
\n (setq e (ssname sel (setq i (1- i))))
\n (setq o (vlax-ename->vla-object e))
\n (setq l (cons o l))
\n )
\n)<\/p>\n
;;;***********************************************************;;
\n;;; \u77e9\u9635\u6d4b\u8bd5\u90e8\u5206 ;;
\n;;;***********************************************************;;<\/p>\n
;|<\/p>\n
Test for Mat:Normal_Origin
\n;;;\u6cd5\u7ebf\u539f\u70b9\u77e9\u9635\u6d4b\u8bd5
\n(defun c:tt ()
\n (setq e (car (entsel)))
\n (setq o (vlax-ename->vla-object e))
\n (setq Normal (trans ‘(0 0 1) 1 0 T))
\n (setq origin (getvar ‘ucsorg))
\n (command “undo” “be”)
\n (setq mat (mat:normal_origin Normal origin))
\n (vla-transformby o (vlax-tmatrix (cadr mat)))
\n (command “undo” “e”)
\n (Princ)
\n)<\/p>\n
;;;3d\u73af\u5f62\u9635\u5217\u6d4b\u8bd5
\n(defun C:PolarArrayTest (\/ ss N P1 P2 ActDoc ObjLst)
\n (setq ss (ssget))
\n (initget 7)
\n (setq N (getInt “n\u6570\u91cf:”))
\n (initget 9)
\n (setq P1 (getpoint “n\u4e2d\u5fc3\u70b9:”))
\n (initget 9)
\n (setq p2 (getpoint P1 “n\u53e6\u4e00\u70b9:”))
\n (if ss
\n (progn
\n (setq ActDoc (vla-get-ActiveDocument (vlax-get-acad-object)))
\n (vla-StartUndoMark ActDoc)
\n (setq Ojblst (Ent:Ents->Objs ss))
\n (Mat:3dPolarArray ojblst N (\/ pi 2) nil (trans p1 1 0) (trans p2 1 0))
\n (vla-EndUndoMark ActDoc)
\n (vlax-release-object ActDoc)
\n (princ)
\n )
\n )
\n)<\/p>\n
;;;Align a 3dSolid to the WCS view
\n;;;\u8f74\u6d4b\u77e9\u9635\u7684\u6d4b\u8bd5
\n(defun C:Test (\/ sel ent obj i an new MAT)
\n (setq sel (ssget “_+.:E:S:L” ‘((0 . “3DSOLID”))))
\n (if sel
\n (progn
\n (setq ent (ssname sel 0))
\n (setq obj (vlax-ename->vla-object ent))
\n (setq i 0)
\n (setq an (atan (- (sqrt 2))))
\n (foreach f ‘(0.25 0.75 1.25 1.75) ;Southwest,Northwest,Northeast,Southeast Isometric projection
\n (setq mat (MAT:ISO (* f pi) an))
\n (setq new (vla-copy obj))
\n (vla-put-color new (setq i (1+ i)))
\n (vla-transformby new (vlax-tmatrix mat)) ;transformate the object by matrix
\n )
\n )
\n )
\n (princ)
\n)<\/p>\n
;;;\u4e00\u4e9b\u77e9\u9635\u51fd\u6570\u7684\u6d4b\u8bd5
\n(defun c:ccc (\/ DXF E ENT I INS MAT0 MAT1 MAT2 MAT3 MAT4 MAT5 MAT6 MAT7 MAT8 MAT9 O ORG SEL VX VY)
\n (if (setq ent (car (entsel “n\u8981\u5e73\u9f50\u7684\u5bf9\u8c61:”))) ;(setq sel (ssget “:S” ‘((0 . “CIRCLE”))))
\n (progn
\n (setq dxf (entget ent))
\n (setq ins (cdr (assoc 10 dxf)))
\n (setq vx (getvar ‘ucsxdir))
\n (setq vy (getvar ‘ucsydir))
\n (setq org (getvar ‘ucsorg))
\n (setq Mat0 (Mat:EntityMatrix ent))
\n (setq mat1 (cadr mat0)) ;OCS->WCS
\n (setq mat0 (car mat0)) ;WCS->OCS(trans Pt WCS OCS)<\/p>\n
(setq mat2 (Mat:u2w)) ;UCS\u7684\u53d8\u6362\u77e9\u9635
\n (setq mat3 (Mat:w2u)) ;UCS\u7684\u53d8\u6362\u77e9\u9635\u7684\u9006\u77e9\u9635<\/p>\n
(setq Mat4 (MAT:2VMatrix org vx vy)) ;UCS\u7684\u53d8\u6362\u77e9\u9635
\n (setq mat5 (cadr mat4)) ;WCS->UCS
\n (setq mat4 (car mat4)) ;UCS->WCS(trans Pt UCS WCS)<\/p>\n
(setq mat6 (Mat:trans 1 0)) ;UCS\u7684\u53d8\u6362\u77e9\u9635
\n (setq mat7 (mat:trans 0 1)) ;UCS\u7684\u53d8\u6362\u77e9\u9635\u7684\u9006\u77e9\u9635<\/p>\n
(setq i -1)
\n (if (setq sel (ssget))
\n (progn
\n (command “undo” “be”)
\n (repeat (sslength sel)
\n (setq e (ssname sel (setq i (1+ i))))
\n (setq o (vlax-ename->vla-object e))
\n (vla-transformby o (vlax-tmatrix mat0))
\n )
\n (command “undo” “e”)
\n )
\n )
\n )
\n )
\n (princ)
\n)<\/p>\n
;;;\u6bd4\u4f8b\u7f29\u653e\u77e9\u9635\u7684\u6d4b\u8bd5
\n(defun c:test1 (\/ ENT I MAT OBJ PT SC SS)
\n (initget 1)
\n (setq Pt (getpoint “n\u6bd4\u4f8b\u7f29\u653e\u57fa\u70b9:”))
\n (initget 7)
\n (setq sc (getreal “n\u7f29\u653e\u500d\u6570:”))
\n (setq mat (MAT:Trans 0 (list 0 0 sc)))
\n (setq mat (vlax-tmatrix mat))
\n (setq i -1)
\n (if (setq ss (ssget))
\n (repeat (sslength ss)
\n (setq ent (ssname ss (setq i (1+ i))))
\n (setq obj (vlax-ename->vla-object ent))
\n (MAT:ScaleByMatrix obj mat)
\n )
\n )
\n)<\/p>\n
;;;\u955c\u50cf\uff0c\u65cb\u8f6c\u548c3\u70b9\u77e9\u9635\u7684\u6d4b\u8bd5
\n(defun c:test2 (\/ AN ENT I MAT OBJ P0 P1 P2 SS)
\n (initget 1)
\n (setq P1 (getpoint “n \u70b91:”))
\n (initget 1)
\n (setq P2 (getpoint p1 “n \u70b92:”))
\n ;(initget 1)
\n ;(setq P3 (getpoint p1 “n \u70b92:”))<\/p>\n
(grdraw p1 p2 1)
\n ;(grdraw p2 p3 1)
\n ;(grdraw p3 p1 1)
\n (setq P1 (trans p1 1 0))
\n (setq P2 (trans p2 1 0))
\n ;(setq P3 (trans p3 1 0))
\n (initget 1)
\n (setq an (getangle “n\u65cb\u8f6c\u89d2\u5ea6:”))
\n (initget 7)
\n (setq sc (getreal “n\u7f29\u653e\u500d\u6570:”)) <\/p>\n
(setq p0 ‘(2.3 1.3 -1.2))
\n;;; (setq s
\n;;; (Misc:test 10000
\n;;; ‘(
\n;;; (MAT:Reflect p1 p2)
\n;;; )
\n;;; ))<\/p>\n
(setq mat (MAT:RotateBy2P P1 P2 an))
\n (setq mat (vlax-tmatrix mat))
\n (setq i -1)
\n (command “undo” “be”)
\n (if (setq ss (ssget))
\n (repeat (sslength ss)
\n (setq ent (ssname ss (setq i (1+ i))))
\n (setq obj (vlax-ename->vla-object ent))
\n (setq obj (vla-copy obj))
\n (vla-transformby obj mat)
\n )
\n )
\n (command “undo” “e”)
\n (princ)
\n)<\/p>\n
;;;———————————————————–;;
\n;;;\u955c\u50cf\uff0c\u65cb\u8f6c\u548c\u7f29\u653e\u7684\u53d8\u6362\u77e9\u9635\u7684\u6d4b\u8bd5 ;;
\n;;;———————————————————–;;
\n;;;\u4ee5\u4e0b\u4f8b\u5b50\u6f14\u793a\uff1a ;;
\n;;;\u628a\u9009\u62e9\u96c6\u7684\u6240\u6709\u7269\u4f53\uff0c\u4ece\u6307\u5b9a\u7684\u57fa\u70b9\u79fb\u52a8\u5230\u76ee\u6807\u70b9\uff0c\u5e76\u6839\u636e\u76ee\u6807\u70b9 ;;
\n;;;\u65cb\u8f6c45\u5ea6\uff0c\u7136\u540e\u518d\u4ee5\u76ee\u6807\u70b9\u653e\u59272\u500d.\u56fa\u7136\uff0c\u8fd9\u4e2a\u7a0b\u5e8f\u5b8c\u5168\u53ef\u4ee5\u7528\u547d ;;
\n;;;\u4ee4\u65b9\u5f0f\u6216\u8005vla\u65b9\u5f0f\u6765\u5b8c\u6210\u3002\u6b64\u5904\u4ec5\u4ec5\u8bf4\u660e\u5982\u4f55\u8fd0\u7528\u77e9\u9635\u3002 ;;
\n;;;\u6ce8\u610f\uff1aCAD\u7684\u77e9\u9635\u548cOpenGL\u6216\u5176\u4ed6\u7684\u8bed\u8a00\u7684\u77e9\u9635\u6709\u533a\u522b: ;;
\n;;; 1.\u5b83\u4eec\u7684\u77e9\u9635\u662f\u4e92\u4e3a\u8f6c\u7f6e\u7684\u3002 ;;
\n;;; 2.\u5b83\u4eec\u7684\u77e9\u9635\u76f8\u4e58\u4e5f\u662f\u987a\u5e8f\u76f8\u53cd\u7684\u3002 ;;
\n;;;———————————————————–;;
\n(defun c:test (\/ ss p1 p2 mat1 mat2 mat3 i e o)
\n (if (setq ss (ssget)) ;\u9009\u62e9\u7269\u4f53
\n (progn
\n (initget 1)
\n (setq P1 (getpoint “n\u57fa\u70b9:”)) ;\u6307\u5b9a\u57fa\u70b9
\n (initget 1)
\n (setq P2 (getpoint P1 “n\u76ee\u6807\u70b9:”)) ;\u6307\u5b9a\u76ee\u6807\u70b9
\n (grvecs (list 1 p1 p2)) ;\u7ea2\u7ebf\u6807\u8bc6\u4f4d\u79fb
\n (setq p1 (trans p1 1 0)) ;\u628a\u8f93\u5165\u5f97\u5230\u7684\u70b9\u8f6c\u5316\u4e3a\u4e16\u754c\u5750\u6807\u7cfb\u7684\u70b9
\n (setq p2 (trans p2 1 0)) ;\u628a\u8f93\u5165\u5f97\u5230\u7684\u70b9\u8f6c\u5316\u4e3a\u4e16\u754c\u5750\u6807\u7cfb\u7684\u70b9<\/p>\n
(setq mat1 (MAT:TRANSLATEBY2P P1 p2)) ;\u4eceP1\u4f4d\u79fb\u5230P2\u7684\u4f4d\u79fb\u77e9\u9635
\n (setq mat2 (MAT:ROTATION p2 (* pi 0.25))) ;\u4ee5P2\u4e3a\u57fa\u70b9\u65cb\u8f6c45\u5ea6\u7684\u53d8\u6362\u77e9\u9635
\n (setq mat3 (MAT:SCALING p2 2.0)) ;\u4ee5P2\u4e3a\u57fa\u70b9\u653e\u59272\u500d\u53d8\u6362\u77e9\u9635
\n (setq mat (MAT:mxm mat3 (MAT:mxm mat2 mat1))) ;\u987b\u6309\u7167\u5148\u540e\u987a\u5e8f\u4ece\u91cc\u5230\u5916\u8fd9\u6837\u76f8\u4e58
\n (setq mat (vlax-tmatrix mat)) ;\u7528vlax-tmatrix\u628a\u53d8\u6362\u77e9\u9635\u4ece\u8868\u8f6c\u5316\u4e3aActiveX\u6570\u7ec4\u8868\u8fbe\u7684\u77e9\u9635
\n (command “undo” “be”)
\n (setq i 0)
\n (repeat (sslength ss)
\n (setq e (ssname ss i)) ;\u83b7\u5f97\u56fe\u5143\u540d
\n (setq o (vlax-ename->vla-object e)) ;\u83b7\u5f97ActiveX\u5bf9\u8c61
\n (vla-transformby o mat) ;\u7528vla-transformby\u51fd\u6570\u5bf9\u4e4b\u53d8\u6362
\n (setq i (1+ i))
\n )
\n (command “undo” “e”)
\n )
\n )
\n (princ)
\n)
\n;;;http:\/\/bbs.mjtd.com\/forum.php?mod=viewthread&tid=91331
\n;;|;
\n(protect-assign MatLibSymbols)
\n(princ)
\n[\/codesyntax]<\/p>\n","protected":false},"excerpt":{"rendered":"
\u5bf9CAD\u4e2d\u77e9\u9635\u53ca\u5176\u76f8\u5173\u77e5\u8bc6\u7684\u7814\u7a76. \u5305\u62ec\u4e86\u7ebf\u6027\u4ee3\u6570\u7684\u4e00\u4e9b\u57fa\u672c\u77e5\u8bc6\uff1b \u77e9\u9635\u7684\u57fa\u672c\u8fd0\u7b97\uff1b \u77e9\u9635\u7684\u57fa\u672c\u53d8\u6362\uff1b \u5b9e\u4f53\u7684<\/p>\n