(XD::Drag:MirrorByQuadrant)选择集四象限动态MIRROR

newer · 发表于 2013-11-10 23:30:06

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 newer 于 2013-11-11 18:39 编辑

本函数调用的演示结果如下图，实现上面演示图片文字位置随基线始终保持在上面的功能通过回调函数otherCallBack实现。

forum.php?mod=attachment&aid=NjQ0MnwwODllMzY5MHwxMzg0MDk3MzA2fDUyODB8NjcxNTI4&noupdate=yes.gif

forum.php?mod=attachment&aid=NjQ0MnwwODllMzY5MHwxMzg0MDk3MzA2fDUyODB8NjcxNTI4&noupdate=yes.gif

左右翻转：

forum.php?mod=attachment&aid=NjQ1Nnw2MGU5MzhiYXwxMzg0MTY2MzA5fDUyODB8NjcxNTM4&noupdate=yes.gif

;|
选择集四象限MIRROR
参数：
SS ---- 选择集或实体名
PJ ---- 原点
mode -- 操作方式 0：四象限
1：绕Y轴左右翻转
2：绕X轴上下翻转
otherBcak----回调函数
返回值：T
|;
(defun XD::Drag:MirrorByQuadrant (ss pj mode xAxis otherCallBack / _eq1 _eq2 _callback0 _callback1 _callback2 _callback an cen coord_from coord_to dynPt dynpt1 dynPt2 mat_1 mat0 mL mL1 mL2 mL3 mL4 ori q1 q2 qua1 qua2 ret yAxis zAxis)
(defun _eq1 (q1 q2)
(cond
((= q1 q2)
t
)
((and
(= q1 1)
(= q2 8)
)
t
)
((and
(= q1 2)
(= q2 4)
)
t
)
((and
(= q1 4)
(= q2 2)
)
t
)
((and
(= q1 8)
(= q2 1)
)
t
)
)
)
(defun _eq2 (q1 q2)
(cond
((= q1 q2)
t
)
((and
(= q1 1)
(= q2 2)
)
t
)
((and
(= q1 2)
(= q2 1)
)
t
)
((and
(= q1 4)
(= q2 8)
)
t
)
((and
(= q1 8)
(= q2 4)
)
t
)
)
)
(defun _callback1 (dynPt)
(if dynPt2
(progn
(setq dynpt1 (xdrx_point_transform dynPt mat_1)
qua1 (XD::Pnt:Quadrant dynpt2 '(0 0 0))
qua2 (XD::Pnt:Quadrant dynpt1 '(0 0 0))
)
(if (not (_eq1 qua1 qua2))
(progn
(xdrx_entity_mirror ss mL t)
(if (= (type otherCallBack) 'SUBR)
(eval (read (strcat "(" otherCallBack " ss pj)")))
)
)
)
)
)
(setq dynpt2 (xdrx_point_transform dynPt mat_1))
)
(defun _callback2 (dynPt)
(if dynPt2
(progn
(setq dynpt1 (xdrx_point_transform dynPt mat_1)
qua1 (XD::Pnt:Quadrant dynpt2 '(0 0 0))
qua2 (XD::Pnt:Quadrant dynpt1 '(0 0 0))
)
(if (not (_eq2 qua1 qua2))
(progn
(xdrx_entity_mirror ss mL t)
(if (= (type otherCallBack) 'SUBR)
(eval (read (strcat "(" otherCallBack " ss pj)")))
)
)
)
)
)
(setq dynpt2 (xdrx_point_transform dynPt mat_1))
)
(defun _callback0 (dynPt)
(setq cen (XD::Geom:Get9pt ss 5)
cen (xdrx_point_transform cen mat_1)
dynpt1 (xdrx_point_transform dynPt mat_1)
qua1 (XD::Pnt:Quadrant cen '(0 0 0))
qua2 (XD::Pnt:Quadrant dynpt1 '(0 0 0))
)
(if (/= qua1 qua2)
(progn
(cond
((= qua1 1)
(cond
((= qua2 2)
(setq mL mL2)
)
((= qua2 4)
(setq mL mL4)
)
((= qua2 8)
(setq mL mL1)
)
)
)
((= qua1 2)
(cond
((= qua2 1)
(setq mL mL2)
)
((= qua2 4)
(setq mL mL1)
)
((= qua2 8)
(setq mL mL3)
)
)
)
((= qua1 4)
(cond
((= qua2 1)
(setq mL mL4)
)
((= qua2 2)
(setq mL mL1)
)
((= qua2 8)
(setq mL mL2)
)
)
)
((= qua1 8)
(cond
((= qua2 1)
(setq mL mL1)
)
((= qua2 2)
(setq mL mL3)
)
((= qua2 4)
(setq mL mL2)
)
)
)
)
(xdrx_entity_mirror ss mL t)
(if (= (type otherCallBack) 'SUBR)
(eval (read (strcat "(" otherCallBack " ss pj)")))
)
)
)
)
(XD::Begin)
(xdrx_sysvar_push '("mirrtext" 0))
(setq mat0 (xdrx_matrix_identity 3)
coord_from (XD::UCS:CoordSys)
zAxis (getvar "viewdir")
yAxis (xdrx_vector_crossproduct zAxis xAxis)
coord_to (list pj xAxis yAxis zAxis)
mat_1 (xdrx_matrix_alignCoordSystem coord_to coord_from)
an (angle '(0 0 0) xAxis)
)
(XD::DOC:DRAWCROSSHAIR pj an 0.1)
(cond
((= mode 0)
(setq mL1 (list pj (mapcar
'+
pj
xAxis
)
)
mL2 (list pj (mapcar
'+
pj
yAxis
)
)
mL3 (list pj (mapcar
'+
pj
(xdrx_vector_rotate xAxis (/ pi 4) '(0 0 1))
)
)
mL4 (list pj (mapcar
'+
pj
(xdrx_vector_rotate yAxis (* 3 (/ pi 4)) '(0 0 1))
)
)
_callback "_callback0"
)
)
((= mode 1)
(setq mL (list pj (mapcar
'+
pj
yAxis
)
)
_callBack "_callback1"
)
)
((= mode 2)
(setq mL (list pj (mapcar
'+
pj
xAxis
)
)
_callBack "_callback2"
)
)
)
(setq ret (xdrx_pointMonitor _callback ss))
(getpoint)
(XD::DOC:DRAWCROSSHAIR pj an 0.1)
(xdrx_pointMonitor)
(xdrx_sysvar_pop)
(XD::End)
t
)

;| 
选择集四象限MIRROR 
参数： 
  SS ---- 选择集 或 实体名 
  PJ ---- 原点 
  mode -- 操作方式 0：四象限 
                   1：绕Y轴左右翻转 
                   2：绕X轴上下翻转 
  otherBcak----回调函数 
 
返回值：T 
|; 
(defun XD::Drag:MirrorByQuadrant (ss pj mode xAxis otherCallBack /  _eq1 _eq2 _callback0 _callback1 _callback2 _callback an cen coord_from coord_to dynPt dynpt1 dynPt2 mat_1 mat0 mL mL1 mL2 mL3 mL4 ori q1 q2 qua1 qua2 ret yAxis zAxis) 
  (defun _eq1 (q1 q2) 
    (cond 
      ((= q1 q2) 
        t 
      ) 
      ((and 
         (= q1 1) 
         (= q2 8) 
       ) 
        t 
      ) 
      ((and 
         (= q1 2) 
         (= q2 4) 
       ) 
        t 
      ) 
      ((and 
         (= q1 4) 
         (= q2 2) 
       ) 
        t 
      ) 
      ((and 
         (= q1 8) 
         (= q2 1) 
       ) 
        t 
      ) 
    ) 
  ) 
  (defun _eq2 (q1 q2) 
    (cond 
      ((= q1 q2) 
        t 
      ) 
      ((and 
         (= q1 1) 
         (= q2 2) 
       ) 
        t 
      ) 
      ((and 
         (= q1 2) 
         (= q2 1) 
       ) 
        t 
      ) 
      ((and 
         (= q1 4) 
         (= q2 8) 
       ) 
        t 
      ) 
      ((and 
         (= q1 8) 
         (= q2 4) 
       ) 
        t 
      ) 
    ) 
  ) 
  (defun _callback1 (dynPt) 
    (if dynPt2 
      (progn 
        (setq dynpt1 (xdrx_point_transform dynPt mat_1) 
              qua1 (XD::Pnt:Quadrant dynpt2 '(0 0 0)) 
              qua2 (XD::Pnt:Quadrant dynpt1 '(0 0 0)) 
        ) 
        (if (not (_eq1 qua1 qua2)) 
          (progn 
            (xdrx_entity_mirror ss mL t) 
            (if (= (type otherCallBack) 'SUBR) 
              (eval (read (strcat "(" otherCallBack " ss pj)"))) 
            ) 
          ) 
        ) 
      ) 
    ) 
    (setq dynpt2 (xdrx_point_transform dynPt mat_1)) 
  ) 
  (defun _callback2 (dynPt) 
    (if dynPt2 
      (progn 
        (setq dynpt1 (xdrx_point_transform dynPt mat_1) 
              qua1 (XD::Pnt:Quadrant dynpt2 '(0 0 0)) 
              qua2 (XD::Pnt:Quadrant dynpt1 '(0 0 0)) 
        ) 
        (if (not (_eq2 qua1 qua2)) 
          (progn 
            (xdrx_entity_mirror ss mL t) 
            (if (= (type otherCallBack) 'SUBR) 
              (eval (read (strcat "(" otherCallBack " ss pj)"))) 
            ) 
          ) 
        ) 
      ) 
    ) 
    (setq dynpt2 (xdrx_point_transform dynPt mat_1)) 
  ) 
  (defun _callback0 (dynPt) 
    (setq cen (XD::Geom:Get9pt ss 5) 
          cen (xdrx_point_transform cen mat_1) 
          dynpt1 (xdrx_point_transform dynPt mat_1) 
          qua1 (XD::Pnt:Quadrant cen '(0 0 0)) 
          qua2 (XD::Pnt:Quadrant dynpt1 '(0 0 0)) 
    ) 
    (if (/= qua1 qua2) 
      (progn 
        (cond 
          ((= qua1 1) 
            (cond 
              ((= qua2 2) 
                (setq mL mL2) 
              ) 
              ((= qua2 4) 
                (setq mL mL4) 
              ) 
              ((= qua2 8) 
                (setq mL mL1) 
              ) 
            ) 
          ) 
          ((= qua1 2) 
            (cond 
              ((= qua2 1) 
                (setq mL mL2) 
              ) 
              ((= qua2 4) 
                (setq mL mL1) 
              ) 
              ((= qua2 8) 
                (setq mL mL3) 
              ) 
            ) 
          ) 
          ((= qua1 4) 
            (cond 
              ((= qua2 1) 
                (setq mL mL4) 
              ) 
              ((= qua2 2) 
                (setq mL mL1) 
              ) 
              ((= qua2 8) 
                (setq mL mL2) 
              ) 
            ) 
          ) 
          ((= qua1 8) 
            (cond 
              ((= qua2 1) 
                (setq mL mL1) 
              ) 
              ((= qua2 2) 
                (setq mL mL3) 
              ) 
              ((= qua2 4) 
                (setq mL mL2) 
              ) 
            ) 
          ) 
        ) 
        (xdrx_entity_mirror ss mL t) 
        (if (= (type otherCallBack) 'SUBR) 
          (eval (read (strcat "(" otherCallBack " ss pj)"))) 
        ) 
      ) 
    ) 
  ) 
  (XD::Begin) 
  (xdrx_sysvar_push '("mirrtext" 0)) 
  (setq mat0 (xdrx_matrix_identity 3) 
        coord_from (XD::UCS:CoordSys) 
        zAxis (getvar "viewdir") 
        yAxis (xdrx_vector_crossproduct zAxis xAxis) 
        coord_to (list pj xAxis yAxis zAxis) 
        mat_1 (xdrx_matrix_alignCoordSystem coord_to coord_from) 
        an (angle '(0 0 0) xAxis) 
  ) 
  (XD::DOC:DRAWCROSSHAIR pj an 0.1) 
  (cond 
    ((= mode 0) 
      (setq mL1 (list pj (mapcar 
                           '+ 
                           pj 
                           xAxis 
                         ) 
                ) 
            mL2 (list pj (mapcar 
                           '+ 
                           pj 
                           yAxis 
                         ) 
                ) 
            mL3 (list pj (mapcar 
                           '+ 
                           pj 
                           (xdrx_vector_rotate xAxis (/ pi 4) '(0 0 1)) 
                         ) 
                ) 
            mL4 (list pj (mapcar 
                           '+ 
                           pj 
                           (xdrx_vector_rotate yAxis (* 3 (/ pi 4)) '(0 0 1)) 
                         ) 
                ) 
            _callback "_callback0" 
      ) 
    ) 
    ((= mode 1) 
      (setq mL (list pj (mapcar 
                          '+ 
                          pj 
                          yAxis 
                        ) 
               ) 
            _callBack "_callback1" 
      ) 
    ) 
    ((= mode 2) 
      (setq mL (list pj (mapcar 
                          '+ 
                          pj 
                          xAxis 
                        ) 
               ) 
            _callBack "_callback2" 
      ) 
    ) 
  ) 
  (setq ret (xdrx_pointMonitor _callback ss)) 
  (getpoint) 
  (XD::DOC:DRAWCROSSHAIR pj an 0.1) 
  (xdrx_pointMonitor) 
  (xdrx_sysvar_pop) 
  (XD::End) 
  t 
)

newer · 发表于 2013-11-10 23:34:27

实现文字始终在基线上面的回调函数如下：(回调函数根据自己的程序需要编写）
下面代码是处理块带属性的实体的四象限镜像。

(defun _callback1 (ss pj / blkent e entl mat ml n)
(setq e (ssname ss 0))
(setq mat (xdrx_getpropertyvalue e "blocktransform"))
(setq blkent (xdrx_getpropertyvalue e "blocktablerecord")
entl (xdrx_getpropertyvalue (cadr blkent) "AllEntities")
)
(setq ml (xdrx_point_transform (list (xdrx_polyline_getpointat
(car entl)
1
) (xdrx_polyline_getpointat
(car entl)
2
)
) mat
)
ml (XD::Pnts:Sort ml "xY" 0.001)
)
(setq entl (xdrx_insert_getattribs e))
(foreach n entl
(setq cen (XD::Geom:Get9pt n 5)
dis (xdrx_point_dist2Line cen (car ml)(cadr ml))
)
(if (> dis 0)
(progn
(xdrx_entity_mirror n mL t)
)
)
)
(princ)
)

(defun _callback1 (ss pj / blkent  e entl mat ml n) 
  (setq e (ssname ss 0)) 
  (setq mat (xdrx_getpropertyvalue e "blocktransform")) 
  (setq blkent (xdrx_getpropertyvalue e "blocktablerecord") 
        entl (xdrx_getpropertyvalue (cadr blkent) "AllEntities") 
  ) 
  (setq ml (xdrx_point_transform (list (xdrx_polyline_getpointat 
                                                                 (car entl) 
                                                                 1 
                                       ) (xdrx_polyline_getpointat 
                                                                   (car entl) 
                                                                   2 
                                         ) 
                                 ) mat 
           ) 
       ml (XD::Pnts:Sort ml "xY" 0.001) 
  ) 
  (setq entl (xdrx_insert_getattribs e)) 
  (foreach n entl 
     (setq cen (XD::Geom:Get9pt n 5) 
           dis (xdrx_point_dist2Line cen (car ml)(cadr ml)) 
     ) 
     (if (> dis 0) 
       (progn 
         (xdrx_entity_mirror n mL t) 
       ) 
     ) 
  ) 
  (princ)          
)

st788796 · 发表于 2013-11-11 00:38:31

太复杂，不是一般水平能用的

newer · 发表于 2013-11-11 00:44:48

本帖最后由 newer 于 2013-11-11 00:57 编辑

st788796 发表于 2013-11-11 00:38
太复杂，不是一般水平能用的

回调函数参数给 "" 就是普通的镜像操作。如果普通的镜像不能满足的时候给编程者一个回调函数处理特殊需要的机会。

把底层的四象限镜像的部分给封装起来了，回调函数是给这个函数增加了扩展性。

striver · 发表于 2024-1-11 17:25:33

请问版主，此函数中的两个参数如何赋值？可以举例说明吗？

striver · 发表于 2024-1-11 17:29:23

(XD::Drag:MirrorByQuadrant ss pj mode xAxis otherBack)
xAxis ---- 镜像的局部坐标系的X轴（绕Y轴镜像）
otherBcak----回调函数
版主，函数中的xAxis和otherBcak 两个参数如何赋值？可以举例说明吗？

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

[拖动] (XD::Drag:MirrorByQuadrant)选择集四象限动态MIRROR

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

点评