entmake法镜像

飞雪神光 · 发表于 2023-5-8 15:23

本帖最后由飞雪神光于 2023-5-8 15:28 编辑

也许并没有什么用就是写着玩还有待完善有需要的可以自己去优化

目前支持直线圆圆弧多段线(支持凸度)

如果无法播放，请点击此处在新窗口打开

liuhe · 发表于 2023-5-8 16:27

大佬可以用矩阵玩玩，然后看看耗时对比

飞雪神光 · 发表于 2023-5-8 18:21

liuhe 发表于 2023-5-8 16:27
大佬可以用矩阵玩玩，然后看看耗时对比

矩阵？

我根本不懂

飞雪神光 · 发表于 2023-5-8 19:27

liuhe 发表于 2023-5-8 16:27
大佬可以用矩阵玩玩，然后看看耗时对比

(defun BF-Mat-ApplyMatrixTransformation (target matrix vector)
(cond
((eq 'VLA-OBJECT (type target))
(vla-TransformBy target
(vlax-tMatrix
(append (mapcar (function (lambda (x v) (append x (list v)))) matrix vector)
'((0. 0. 0. 1.))
)
)
)
)
((listp target)
(mapcar
(function
(lambda (point) (mapcar '+ (BF-Mat-MxV matrix point) vector))
)
target
)
)
)
)
(defun BF-Mat-MxV (m v)
(mapcar (function (lambda (r) (apply '+ (mapcar '* r v)))) m)
)
(defun BF-Mat-ReflectByMatrix (target p1 p2 / m)
(
(lambda ( a / m )
(BF-Mat-ApplyMatrixTransformation target
(setq m
(list
(list (cos a) (sin a) 0.)
(list (sin a) (- (cos a)) 0.)
(list 0. 0. 1.)
)
)
(mapcar '- p1 (BF-Mat-MxV m p1))
)
)
(* 2. (angle p1 p2))
)
)
(BF-Mat-ReflectByMatrix (vlax-ename->vla-object(car(entsel))) (getpoint) (getpoint))

(defun BF-Mat-ApplyMatrixTransformation (target matrix vector) 
  (cond 
    ((eq 'VLA-OBJECT (type target)) 
      (vla-TransformBy target 
        (vlax-tMatrix 
          (append (mapcar (function (lambda (x v) (append x (list v)))) matrix vector) 
                                                '((0. 0. 0. 1.)) 
          ) 
        ) 
      ) 
    ) 
    ((listp target) 
      (mapcar 
        (function 
          (lambda (point) (mapcar '+ (BF-Mat-MxV matrix point) vector)) 
        ) 
        target 
      ) 
    )         
  ) 
) 
(defun BF-Mat-MxV (m v) 
  (mapcar (function (lambda (r) (apply '+ (mapcar '* r v)))) m) 
) 
(defun BF-Mat-ReflectByMatrix (target p1 p2 / m) 
  ( 
    (lambda ( a / m ) 
      (BF-Mat-ApplyMatrixTransformation target 
        (setq m 
          (list 
            (list (cos a)    (sin a)  0.) 
            (list (sin a) (- (cos a)) 0.) 
            (list    0.         0.    1.) 
          ) 
        ) 
        (mapcar '- p1 (BF-Mat-MxV m p1)) 
      ) 
    ) 
    (* 2. (angle p1 p2)) 
  ) 
) 
(BF-Mat-ReflectByMatrix (vlax-ename->vla-object(car(entsel))) (getpoint)  (getpoint))

找到一个这个直接看不懂

liuhe · 发表于 2023-5-9 09:28

飞雪神光发表于 2023-5-8 19:27
找到一个这个直接看不懂

;;;-----------------------------------------------------------;;
;;; 二维镜像变换矩阵 ;;
;;; 参数: ;;
;;; p1 - 镜像向量第一点 ;;
;;; p2 - 镜像向量第二点 ;;
;;;-----------------------------------------------------------;;
;;;----------------=={ Reflect by Matrix }==------------------;;
;;; ;;
;;; Reflects a VLA-Object or Point List using a ;;
;;; Transformation Matrix ;;
;;;-----------------------------------------------------------;;
;;;-----------------------------------------------------------;;
;;; Arguments: ;;
;;; target - VLA-Object or Point List to transform ;;
;;; p1, p2 - Points representing vector in which to reflect ;;
;;;-----------------------------------------------------------;;
(defun MAT:Reflect ( p1 p2 / a c s x y)
(setq a (angle p1 p2) a (+ a a))
(setq c (cos a) s (sin a))
(setq x (car p1) y (cadr p1))
(list
(list c s 0. (- x (+ (* c x) (* s y))))
(list s (- c) 0. (- y (- (* s x) (* c y))))
'(0. 0. 1. 0.)
'(0. 0. 0. 1.)
)
)
(defun c:tt ()
(setq ss (ssget) ;选择集镜像
pt1 (getpoint)
pt2 (getpoint pt1)
i 0
mat (mat:reflect pt1 pt2)
)
(repeat (sslength ss)
(setq e (ssname ss i)
obj (vla-copy (vlax-ename->vla-object e))
i (1+ i)
)
;;; (vla-Mirror obj (vlax-3D-point pt1)(vlax-3D-point pt2))
(vla-transformby obj (vlax-tmatrix mat))
)
)

;;;-----------------------------------------------------------;; 
;;; 二维镜像变换矩阵                                              ;; 
;;; 参数:                                                      ;; 
;;; p1     - 镜像向量第一点                                   ;; 
;;; p2     - 镜像向量第二点                                   ;; 
;;;-----------------------------------------------------------;; 
;;;----------------=={ Reflect by Matrix }==------------------;; 
;;;                                                           ;; 
;;; Reflects a VLA-Object or Point List using a               ;; 
;;; Transformation Matrix                                     ;; 
;;;-----------------------------------------------------------;; 
;;; Author: Lee Mac, Copyright ? 2010 - www.lee-mac.com       ;; 
;;;-----------------------------------------------------------;; 
;;; Arguments:                                                ;; 
;;; target - VLA-Object or Point List to transform            ;; 
;;; p1, p2 - Points representing vector in which to reflect   ;; 
;;;-----------------------------------------------------------;; 
(defun MAT:Reflect ( p1 p2 / a c s x y) 
  (setq a (angle p1 p2) a (+ a a)) 
  (setq c (cos a) s (sin a)) 
  (setq x (car p1) y (cadr p1)) 
  (list 
    (list c    s  0. (- x (+ (* c x) (* s y)))) 
    (list s (- c) 0. (- y (- (* s x) (* c y)))) 
    '(0. 0. 1. 0.) 
    '(0. 0. 0. 1.) 
  ) 
) 
(defun c:tt () 
  (setq        ss  (ssget)                        ;选择集镜像 
        pt1 (getpoint) 
        pt2 (getpoint pt1) 
        i   0 
        mat (mat:reflect pt1 pt2) 
  ) 
  (repeat (sslength ss) 
    (setq e   (ssname ss i) 
          obj (vla-copy (vlax-ename->vla-object e)) 
          i   (1+ i) 
    ) 
;;;    (vla-Mirror obj (vlax-3D-point pt1)(vlax-3D-point pt2)) 
    (vla-transformby obj (vlax-tmatrix mat)) 
  ) 
)

这个看着简单，速度上没啥优势

账号		自动登录	找回密码
密码			注册

entmake法镜像

本帖子中包含更多资源

评分