xd::pickset:drag文字方向求助

brainstorm · 发表于 2017-9-29 10:12:07

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

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

×

本帖最后由 brainstorm 于 2017-9-29 10:12 编辑

如上图所示，左右翻转或上下翻转时，动态显示文字是反的，鼠标确认后文字恢复正常。
如果左右翻转+上下翻转，则鼠标确定后文字依然是反的
红色代码是加了一个关于xy平面的镜像矩阵。
应该怎么写才能达到正确的效果，即拖动时、鼠标确定后文字都是正确方向
谢谢了

(defun xd::pickset:drag1 (ss pj mode cursor tf
/ ang box initget-str
k1 k2 k3 m mmatrot
mmattrans mrmatrix mtmatrix mtmatrix0
mtmatrix2 n pj1 prompt1
promptl pt1 pt2 pt3 pt4
scl ss1 tf1 str11
)
(xdrx_begin)
(xdrx_SysVar_Push '("osmode" 545))
(xdrx_initget "t r a m s d l f u ctrl")
(xdrx_document_ucson)
(if (not pj)
(progn
(setq box (xdrx_entity_box ss)
pj (car box)
)
)
)
(if tf
(setq str11 (list 256 "拷贝/移动[CTRL]" "CTRL"))
(setq str11 (list 256 "移动/拷贝[CTRL]" "CTRL"))
)
(setq promptl (list '(1 "改基点[T]" "T")
'(2 "改转角[R]" "R")
'(4 "转90度[A]" "A")
'(8 "镜像[M]" "M")
'(16
"左右翻[S]"
"S"
)
'(32
"上下翻[D]"
"D"
)
'(64 "缩放[L]" "L")
'(128 "对齐[F]" "F")
str11
'(4096 "回退[U]" "U")
)
)
(setq prompt1 "\n插入点或{")
(setq initget-str " ")
(setq mode (+ 4096 mode))
(foreach n promptl
(setq k1 (car n)
k2 (cadr n)
k3 (caddr n)
)
(if (/= (logand mode k1) 0)
(setq initget-str (strcat initget-str k3 " ")
prompt1 (strcat prompt1 k2 "/")
)
)
)
(setq initget-str
(xdrx_string_trimleft
(xdrx_string_trimright initget-str)
)
)
(setq prompt1 (strcat prompt1 "}<退出>:"))
(setq mRMatrix t
tf1 t
mTMatrix0 (xdrx_matrix_identity 3)
mRMatrix t
)
(xdrx_pickset_redraw ss)
(xdrx_drag_setmatrix mTMatrix0 t)
(setq undo-mark 0)
(while mRMatrix
(xdrx_drag_initget (+ 2 4 8 16 128 512 65536) initget-str)
(xdrx_drag_setmode "Move")
(setq mRMatrix (xdrx_PickSet_dragGen prompt1 ss pj cursor nil))
(cond
((= mRMatrix "A")
(setq mTMatrix (xdrx_matrix_setRotation
mTMatrix0
(/ pi 2)
'(0 0 1)
(trans pj 1 0)
)
)
(xdrx_drag_setmatrix mTMatrix nil)
)
((= mRMatrix "S")
(setq mTMatrix (xdrx_matrix_product
(xdrx_matrix_setMirror
mTMatrix0
(list (trans pj 1 0)
(trans (polar pj (/ pi 2) 100) 1 0)
)
)
(xdrx_matrix_setmirror
(xdrx_matrix_identity)
'((0 0 0) (1 0 0) (0 1 0))
)
)
)
(xdrx_drag_setmatrix mTMatrix nil)
)
((= mRMatrix "CTRL")
(if tf
(progn
(setq tf nil)
(setq str11 (list 256 "移动/拷贝[CTRL]" "CTRL"))
)
(progn
(setq tf t)
(setq str11 (list 256 "拷贝/移动[CTRL]" "CTRL"))
)
)
(princ "\n")
(setq promptl (list '(1 "改基点[T]" "T")
'(2 "改转角[R]" "R")
'(4 "转90度[A]" "A")
'(8 "镜像[M]" "M")
'(16
"左右翻[S]"
"S"
)
'(32
"上下翻[D]"
"D"
)
'(64 "缩放[L]" "L")
'(128 "对齐[F]" "F")
str11
'(4096 "回退[U]" "U")
)
)
(setq prompt1 "\n插入点或{")
(setq initget-str " ")
(setq mode (+ 4096 mode))
(foreach n promptl
(setq k1 (car n)
k2 (cadr n)
k3 (caddr n)
)
(if (/= (logand mode k1) 0)
(setq initget-str (strcat initget-str k3 " ")
prompt1 (strcat prompt1 k2 "/")
)
)
)
(setq initget-str
(xdrx_string_trimleft
(xdrx_string_trimright initget-str)
)
)
(setq prompt1 (strcat prompt1 "}<退出>:"))
)
((= mRMatrix "D")
(setq mTMatrix
(xdrx_matrix_product
(xdrx_matrix_setMirror
mTMatrix0
(list (trans pj 1 0) (trans (polar pj 0.0 100) 1 0))
)
(xdrx_matrix_setmirror
(xdrx_matrix_identity)
'((0 0 0) (1 0 0) (0 1 0))
)
)
)
(xdrx_drag_setmatrix mTMatrix nil)
)
((= mRMatrix "F")
(setq mTMatrix2 (xdrx_drag_getLastMatrix)
pj (xdrx_drag_getLastPoint)
)
(setq ss1 (xdrx_entity_TransformedCopy ss mTMatrix2))
(if (and
(setq pt1 (getpoint "\n请拾取对齐源参考点:"))
(setq pt2 (getpoint pt1 "\n请拾取另一定确定对齐参考轴:"))
(setq pt3 (getpoint "\n请拾取目标参考点:"))
(setq pt4 (getpoint pt3 "\n请拾取另一点确定目标参考轴:"))
)
(progn
(setq mMatRot (XD::Matrix:Align pj pt1 pt3 pt2 pt4))
(setq mMatRot (xdrx_matrix_product
(xdrx_matrix_setTransLation
mTMatrix0
(mapcar
'-
pj
pt4
)
)
mMatRot
)
)
(setq pj (xdrx_point_transform pt1 mMatRot))
(setq mMatRot (xdrx_matrix_product mMatrot mTMatrix2))
(xdrx_drag_setmatrix mMatRot t)
)
)
(xdrx_entity_delete ss1)
)
((= mRMatrix "R")
(setq mTMatrix2 (xdrx_drag_getLastMatrix))
(setq ss1 (xdrx_entity_TransformedCopy ss mTMatrix2))
(xdrx_pickset_redraw ss1 3)
(xdrx_drag_setmatrix mTMatrix0 t)
(xdrx_drag_SetMode "Rotate")
(xdrx_drag_initget (+ 2 4 8 16 128 512 65536))
(if (not (setq mTMatrix (xdrx_pickset_draggen
"\n旋转角度[回车输入]:"
ss1
(setq pj1 (trans
(xdrx_drag_getLastPoint)
0
1
)
)
2
)
)
)
(progn
(if (not (setq ang (getangle "\n请输入旋转角度<0>:")))
(setq ang 0.0)
)
(setq mTMatrix (xdrx_matrix_setRotation
mTMatrix0
ang
'(0 0 1)
(trans pj1 1 0)
)
)
)
(progn
(setq mMatTrans (xdrx_matrix_setTranslation
mTMatrix0
(mapcar
'-
pj
pj1
)
)
mTMatrix (xdrx_matrix_product mMatTrans mTMatrix)
mTMatrix (xdrx_matrix_product mTMatrix mTMatrix2)
)
)
)
(xdrx_drag_setmatrix mTMatrix t)
(xdrx_entity_delete ss1)
)
((= mRMatrix "M")
(setq mTMatrix2 (xdrx_drag_getLastMatrix))
(setq ss1 (xdrx_entity_TransformedCopy ss mTMatrix2))
(xdrx_pickset_redraw ss1 3)
(xdrx_drag_setmatrix mTMatrix0 t)
(xdrx_drag_SetMode "Mirror")
(xdrx_drag_initget (+ 2 4 8 16 128 512 65536))
(if (and
(setq pj1 (getpoint "\n请拾取镜像参考基点<退出>:"))
(setq mTMatrix (xdrx_pickset_draggen
"\n\n请拾取另一点定确定镜像轴<退出>:"
ss1
pj1
2
)
)
)
(progn
(setq mMatTrans (xdrx_matrix_setTranslation
mTMatrix0
(mapcar
'-
pj
pj1
)
)
mTMatrix (xdrx_matrix_product mMatTrans mTMatrix)
mTMatrix (xdrx_matrix_product mTMatrix mTMatrix2)
)
)
(setq mTMatrix mTMatrix2)
)
(xdrx_drag_setmatrix mTMatrix nil)
(xdrx_entity_delete ss1)
)
((= mRMatrix "L")
(setq mTMatrix2 (xdrx_drag_getLastMatrix))
(setq ss1 (xdrx_entity_TransformedCopy ss mTMatrix2))
(xdrx_pickset_redraw ss1 3)
(xdrx_drag_setmatrix mTMatrix0 t)
(setq box (xdrx_entity_box ss1)
scl (- (caadr box) (caar box))
)
(xdrx_drag_SetMode "Scale" (/ scl 2.0))
(xdrx_drag_initget (+ 2 4 8 16 128 512 65536))
(if (not (setq mTMatrix (xdrx_pickset_draggen
"\n缩放比例[回车输入]:"
ss1
(setq pj1 (trans
(xdrx_drag_getLastPoint)
0
1
)
)
2
)
)
)
(progn
(initget 6)
(if (not (setq scl (getreal "\n请输入缩放比例<1>:")))
(setq scl 1.0)
)
(if (/= scl 1.0)
(progn
(setq mTMatrix (xdrx_matrix_setScale
mTMatrix0
scl
(trans pj1 1 0)
)
)
)
)
)
)
(setq mMatTrans (xdrx_matrix_setTranslation
mTMatrix0
(mapcar
'-
pj
pj1
)
)
mTMatrix (xdrx_matrix_product mMatTrans mTMatrix)
mTMatrix (xdrx_matrix_product mTMatrix mTMatrix2)
)
(xdrx_drag_setmatrix mTMatrix nil)
(xdrx_entity_delete ss1)
)
((= mRMatrix "T")
(setq mTMatrix2 (xdrx_drag_getLastMatrix))
(setq ss1 (xdrx_entity_TransformedCopy ss mTMatrix2))
(initget 2)
(if (setq pj1 (getpoint "\n请输入新的基点:"))
(progn
(setq pj pj1)
(xdrx_drag_setmatrix mTMatrix2 T)
)
)
(xdrx_entity_delete ss1)
)
((or
(= mRMatrix -1)
(= mRMatrix -4)
)
(setq mRMatrix nil)
)
((= mRMatrix "U")
(if (> undo-mark 0)
(progn
(setq undo-mark (1- undo-mark))
(if (>= undo-mark 0)
(vl-cmdf ".undo" 1)
)
(if (= undo-mark 0)
(princ "\n所有操作已经回退完毕。")
)
)
(princ "\r所有操作已经回退完毕。")
)
)
((= (type mRMatrix) 'LIST)
(XD::UndoMark)
(setq undo-mark (1+ undo-mark))
(if tf
(xdrx_entity_TransFormedCopy ss (xdrx_drag_getLastMatrix))
(progn
(xdrx_entity_TransForm ss (xdrx_drag_getLastMatrix))
(setq mRMatrix nil)
)
)
(XD::UndoEnd)
)
)
)
(xdrx_pickset_redraw ss t)
(xdrx_document_ucsoff)
(xdrx_SysVar_Pop)
(xdrx_end)
(princ)
)
;;;------------------------------------------------------------------------------------
(defun c:v ()
(setq ss (ssget)
p (getpoint)
)
(xd::pickset:drag1 ss p (+ 1 2 4 8 16 32 64 128 256) 0 nil)
)

(defun xd::pickset:drag1 (ss           pj            mode     cursor   tf 
                          /           ang            box             initget-str 
                          k1           k2            k3             m              mmatrot 
                          mmattrans            mrmatrix mtmatrix mtmatrix0 
                          mtmatrix2            n             pj1      prompt1 
                          promptl  pt1            pt2             pt3      pt4 
                          scl           ss1            tf1             str11 
                         ) 
 
  (xdrx_begin) 
  (xdrx_SysVar_Push '("osmode" 545)) 
  (xdrx_initget "t r a m s d l f u ctrl") 
  (xdrx_document_ucson) 
 
  (if (not pj) 
    (progn 
      (setq box        (xdrx_entity_box ss) 
            pj        (car box) 
      ) 
    ) 
  ) 
  (if tf 
    (setq str11 (list 256 "拷贝/移动[CTRL]" "CTRL")) 
    (setq str11 (list 256 "移动/拷贝[CTRL]" "CTRL")) 
  ) 
  (setq        promptl        (list '(1 "改基点[T]" "T") 
                      '(2 "改转角[R]" "R") 
                      '(4 "转90度[A]" "A") 
                      '(8 "镜像[M]" "M") 
                      '(16 
                        "左右翻[S]" 
                        "S" 
                       ) 
                      '(32 
                        "上下翻[D]" 
                        "D" 
                       ) 
                      '(64 "缩放[L]" "L") 
                      '(128 "对齐[F]" "F") 
                      str11 
                      '(4096 "回退[U]" "U") 
                ) 
  ) 
  (setq prompt1 "\n插入点或{") 
  (setq initget-str " ") 
  (setq mode (+ 4096 mode)) 
  (foreach n promptl 
    (setq k1 (car n) 
          k2 (cadr n) 
          k3 (caddr n) 
    ) 
    (if        (/= (logand mode k1) 0) 
      (setq initget-str        (strcat initget-str k3 " ") 
            prompt1        (strcat prompt1 k2 "/") 
      ) 
    ) 
  ) 
  (setq        initget-str 
         (xdrx_string_trimleft 
           (xdrx_string_trimright initget-str) 
         ) 
  ) 
  (setq prompt1 (strcat prompt1 "}<退出>:")) 
  (setq        mRMatrix  t 
        tf1          t 
        mTMatrix0 (xdrx_matrix_identity 3) 
        mRMatrix  t 
  ) 
  (xdrx_pickset_redraw ss) 
  (xdrx_drag_setmatrix mTMatrix0 t) 
  (setq undo-mark 0) 
  (while mRMatrix 
    (xdrx_drag_initget (+ 2 4 8 16 128 512 65536) initget-str) 
    (xdrx_drag_setmode "Move") 
    (setq mRMatrix (xdrx_PickSet_dragGen prompt1 ss pj cursor nil)) 
    (cond 
      ((= mRMatrix "A") 
       (setq mTMatrix (xdrx_matrix_setRotation 
                        mTMatrix0 
                        (/ pi 2) 
                        '(0 0 1) 
                        (trans pj 1 0) 
                      ) 
       ) 
       (xdrx_drag_setmatrix mTMatrix nil) 
      ) 
      ((= mRMatrix "S") 
       (setq mTMatrix (xdrx_matrix_product 
                        (xdrx_matrix_setMirror 
                          mTMatrix0 
                          (list        (trans pj 1 0) 
                                (trans (polar pj (/ pi 2) 100) 1 0) 
                          ) 
                        ) 
                        (xdrx_matrix_setmirror 
                          (xdrx_matrix_identity) 
                          '((0 0 0) (1 0 0) (0 1 0)) 
                        ) 
                      ) 
       ) 
       (xdrx_drag_setmatrix mTMatrix nil) 
      ) 
      ((= mRMatrix "CTRL") 
       (if tf 
         (progn 
           (setq tf nil) 
           (setq str11 (list 256 "移动/拷贝[CTRL]" "CTRL")) 
         ) 
         (progn 
           (setq tf t) 
           (setq str11 (list 256 "拷贝/移动[CTRL]" "CTRL")) 
         ) 
       ) 
       (princ "\n") 
       (setq promptl (list '(1 "改基点[T]" "T") 
                           '(2 "改转角[R]" "R") 
                           '(4 "转90度[A]" "A") 
                           '(8 "镜像[M]" "M") 
                           '(16 
                             "左右翻[S]" 
                             "S" 
                            ) 
                           '(32 
                             "上下翻[D]" 
                             "D" 
                            ) 
                           '(64 "缩放[L]" "L") 
                           '(128 "对齐[F]" "F") 
                           str11 
                           '(4096 "回退[U]" "U") 
                     ) 
 
       ) 
       (setq prompt1 "\n插入点或{") 
       (setq initget-str " ") 
       (setq mode (+ 4096 mode)) 
       (foreach        n promptl 
         (setq k1 (car n) 
               k2 (cadr n) 
               k3 (caddr n) 
         ) 
         (if (/= (logand mode k1) 0) 
           (setq initget-str (strcat initget-str k3 " ") 
                 prompt1     (strcat prompt1 k2 "/") 
           ) 
         ) 
       ) 
       (setq initget-str 
              (xdrx_string_trimleft 
                (xdrx_string_trimright initget-str) 
              ) 
       ) 
       (setq prompt1 (strcat prompt1 "}<退出>:")) 
      ) 
      ((= mRMatrix "D") 
       (setq mTMatrix 
              (xdrx_matrix_product 
                (xdrx_matrix_setMirror 
                  mTMatrix0 
                  (list (trans pj 1 0) (trans (polar pj 0.0 100) 1 0)) 
                ) 
                (xdrx_matrix_setmirror 
                  (xdrx_matrix_identity) 
                  '((0 0 0) (1 0 0) (0 1 0)) 
                ) 
              ) 
       ) 
       (xdrx_drag_setmatrix mTMatrix nil) 
      ) 
 
      ((= mRMatrix "F") 
       (setq mTMatrix2 (xdrx_drag_getLastMatrix) 
             pj               (xdrx_drag_getLastPoint) 
       ) 
       (setq ss1 (xdrx_entity_TransformedCopy ss mTMatrix2)) 
       (if (and 
             (setq pt1 (getpoint "\n请拾取对齐源参考点:")) 
             (setq pt2 (getpoint pt1 "\n请拾取另一定确定对齐参考轴:")) 
             (setq pt3 (getpoint "\n请拾取目标参考点:")) 
             (setq pt4 (getpoint pt3 "\n请拾取另一点确定目标参考轴:")) 
           ) 
         (progn 
           (setq mMatRot (XD::Matrix:Align pj pt1 pt3 pt2 pt4)) 
           (setq mMatRot (xdrx_matrix_product 
                           (xdrx_matrix_setTransLation 
                             mTMatrix0 
                             (mapcar 
                               '- 
                               pj 
                               pt4 
                             ) 
                           ) 
                           mMatRot 
                         ) 
           )           
           (setq pj (xdrx_point_transform pt1 mMatRot)) 
           (setq mMatRot (xdrx_matrix_product mMatrot mTMatrix2)) 
           (xdrx_drag_setmatrix mMatRot t) 
         ) 
       ) 
       (xdrx_entity_delete ss1) 
      ) 
      ((= mRMatrix "R") 
       (setq mTMatrix2 (xdrx_drag_getLastMatrix)) 
       (setq ss1 (xdrx_entity_TransformedCopy ss mTMatrix2)) 
       (xdrx_pickset_redraw ss1 3) 
       (xdrx_drag_setmatrix mTMatrix0 t) 
       (xdrx_drag_SetMode "Rotate") 
       (xdrx_drag_initget (+ 2 4 8 16 128 512 65536)) 
       (if (not        (setq mTMatrix (xdrx_pickset_draggen 
                                 "\n旋转角度[回车输入]:" 
                                 ss1 
                                 (setq pj1 (trans 
                                             (xdrx_drag_getLastPoint) 
                                             0 
                                             1 
                                           ) 
                                 ) 
                                 2 
                               ) 
                ) 
           ) 
 
         (progn 
           (if (not (setq ang (getangle "\n请输入旋转角度<0>:"))) 
             (setq ang 0.0) 
           ) 
           (setq mTMatrix (xdrx_matrix_setRotation 
                            mTMatrix0 
                            ang 
                            '(0 0 1) 
                            (trans pj1 1 0) 
                          ) 
           ) 
         ) 
         (progn 
           (setq mMatTrans (xdrx_matrix_setTranslation 
                             mTMatrix0 
                             (mapcar 
                               '- 
                               pj 
                               pj1 
                             ) 
                           ) 
 
                 mTMatrix  (xdrx_matrix_product mMatTrans mTMatrix) 
                 mTMatrix  (xdrx_matrix_product mTMatrix mTMatrix2) 
           ) 
         ) 
       ) 
       (xdrx_drag_setmatrix mTMatrix t) 
       (xdrx_entity_delete ss1) 
      ) 
      ((= mRMatrix "M") 
       (setq mTMatrix2 (xdrx_drag_getLastMatrix)) 
       (setq ss1 (xdrx_entity_TransformedCopy ss mTMatrix2)) 
       (xdrx_pickset_redraw ss1 3) 
       (xdrx_drag_setmatrix mTMatrix0 t) 
       (xdrx_drag_SetMode "Mirror") 
       (xdrx_drag_initget (+ 2 4 8 16 128 512 65536)) 
       (if (and 
             (setq pj1 (getpoint "\n请拾取镜像参考基点<退出>:")) 
             (setq mTMatrix (xdrx_pickset_draggen 
                              "\n\n请拾取另一点定确定镜像轴<退出>:" 
                              ss1 
                              pj1 
                              2 
                            ) 
             ) 
           ) 
         (progn 
           (setq mMatTrans (xdrx_matrix_setTranslation 
                             mTMatrix0 
                             (mapcar 
                               '- 
                               pj 
                               pj1 
                             ) 
                           ) 
                 mTMatrix  (xdrx_matrix_product mMatTrans mTMatrix) 
                 mTMatrix  (xdrx_matrix_product mTMatrix mTMatrix2) 
           ) 
         ) 
         (setq mTMatrix mTMatrix2) 
       ) 
       (xdrx_drag_setmatrix mTMatrix nil) 
       (xdrx_entity_delete ss1) 
      ) 
      ((= mRMatrix "L") 
       (setq mTMatrix2 (xdrx_drag_getLastMatrix)) 
       (setq ss1 (xdrx_entity_TransformedCopy ss mTMatrix2)) 
       (xdrx_pickset_redraw ss1 3) 
       (xdrx_drag_setmatrix mTMatrix0 t) 
       (setq box (xdrx_entity_box ss1) 
             scl (- (caadr box) (caar box)) 
       ) 
       (xdrx_drag_SetMode "Scale" (/ scl 2.0)) 
       (xdrx_drag_initget (+ 2 4 8 16 128 512 65536)) 
       (if (not        (setq mTMatrix (xdrx_pickset_draggen 
                                 "\n缩放比例[回车输入]:" 
                                 ss1 
                                 (setq pj1 (trans 
                                             (xdrx_drag_getLastPoint) 
                                             0 
                                             1 
                                           ) 
                                 ) 
                                 2 
                               ) 
                ) 
           ) 
         (progn 
           (initget 6) 
           (if (not (setq scl (getreal "\n请输入缩放比例<1>:"))) 
             (setq scl 1.0) 
           ) 
           (if (/= scl 1.0) 
             (progn 
               (setq mTMatrix (xdrx_matrix_setScale 
                                mTMatrix0 
                                scl 
                                (trans pj1 1 0) 
                              ) 
               ) 
             ) 
           ) 
         ) 
       ) 
       (setq mMatTrans (xdrx_matrix_setTranslation 
                         mTMatrix0 
                         (mapcar 
                           '- 
                           pj 
                           pj1 
                         ) 
                       ) 
             mTMatrix  (xdrx_matrix_product mMatTrans mTMatrix) 
             mTMatrix  (xdrx_matrix_product mTMatrix mTMatrix2) 
       ) 
       (xdrx_drag_setmatrix mTMatrix nil) 
       (xdrx_entity_delete ss1) 
      ) 
      ((= mRMatrix "T") 
       (setq mTMatrix2 (xdrx_drag_getLastMatrix)) 
       (setq ss1 (xdrx_entity_TransformedCopy ss mTMatrix2)) 
       (initget 2) 
       (if (setq pj1 (getpoint "\n请输入新的基点:")) 
         (progn 
           (setq pj pj1) 
           (xdrx_drag_setmatrix mTMatrix2 T) 
         ) 
       ) 
       (xdrx_entity_delete ss1) 
      ) 
      ((or 
         (= mRMatrix -1) 
         (= mRMatrix -4) 
       ) 
       (setq mRMatrix nil) 
      ) 
      ((= mRMatrix "U") 
       (if (> undo-mark 0) 
         (progn 
           (setq undo-mark (1- undo-mark)) 
           (if (>= undo-mark 0) 
             (vl-cmdf ".undo" 1) 
           ) 
           (if (= undo-mark 0) 
             (princ "\n所有操作已经回退完毕。") 
           ) 
         ) 
         (princ "\r所有操作已经回退完毕。") 
       ) 
      ) 
      ((= (type mRMatrix) 'LIST) 
       (XD::UndoMark) 
       (setq undo-mark (1+ undo-mark)) 
       (if tf 
         (xdrx_entity_TransFormedCopy ss (xdrx_drag_getLastMatrix)) 
         (progn 
           (xdrx_entity_TransForm ss (xdrx_drag_getLastMatrix)) 
           (setq mRMatrix nil) 
         ) 
       ) 
       (XD::UndoEnd) 
      ) 
    ) 
  ) 
  (xdrx_pickset_redraw ss t) 
  (xdrx_document_ucsoff) 
  (xdrx_SysVar_Pop) 
  (xdrx_end) 
  (princ) 
) 
;;;------------------------------------------------------------------------------------ 
(defun c:v () 
  (setq        ss (ssget) 
        p  (getpoint) 
  ) 
  (xd::pickset:drag1 ss p (+ 1 2 4 8 16 32 64 128 256) 0 nil) 
)

brainstorm · 发表于 2017-9-29 10:21:45

下图是天正的自由移动命令，文字动态显示或鼠标确认后均正确

sicky111 · 发表于 2017-11-11 00:04:34

谢谢分享。

newer · 发表于 2017-11-24 12:05:20

你可以修改

[JavaScript] 纯文本查看 复制代码

(= mRMatrix "M")

里面的内容，对文字加以判断，构建好变换矩阵。

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

[求助] xd::pickset:drag文字方向求助

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