两次框选实现效果如何整合为一次框选

magicheno

大神们，下面是我整理的两个功能，需要两次框选才能实现效果，能否改为一次就实现呢
如下图，实现的效果是一个编组的编号左边镜像变成右边，但是保持文字左对齐，文字距离左边引线顶点为50，然后想实现的是下面的圆块也镜像，原先为X比例为100就变为了-100。

(defun c:tt5()
  (xyp-Start)
  (setvar "pickstyle" 0)
  (setvar "PEDITACCEPT" 0)
(setq ss0 (ssget '((0 . "text"))))
    (mapcar '(lambda (x)
        (setq p5 (xyp-9pt x 2)
       p2 (xyp-Pt2Y p5 (- (xyp-DXF 40 x)))
        )
        (if (setq ss1 (ssget "f" (list p5 p2) '((0 . "*poly*"))))
   (progn
     (setq s1  (ssname ss1 0)
    ptn (xyp-Vertexs s1 0)
    p0  (car ptn)
    p1  (cadr ptn)
    p2  (caddr ptn)
    p3  (polar p1 (angle p2 p1) (distance p1 p2))
    pt  (car (xyp-Sort-PtnByXYZ (list p1 p3)))
    pt  (xyp-Pt2XY pt 50 75)
     )
      (xyp-Move x (xyp-DXF 10 x) pt)
      (xyp-Put-Coordinate s1 2 p3)      
   )
        )
      )
     (xyp-Ss2List ss0)
    )
  
  (setq ss (ssget '((0 . "INSERT")))
i  -1
  )
    (setq s1 (ssname ss (setq i (1+ i))))
    (setq pt1 (xyp-DXF 10 s1)
   pt1 (trans pt1 0 1)
   pt2 (polar pt1 (* pi 0.5) 10)
    )
    (command "mirror" s1 "" pt1 pt2 "y")
  (xyp-End)
  (setvar "PEDITACCEPT" 0)
  (setvar "pickstyle" 1)
)

xvjiex

(defun c:tt5()
  (xyp-Start)
  (setvar "pickstyle" 0)
  (setvar "PEDITACCEPT" 0)
  (setq ss0 (ssget '((0 . "text,INSERT"))))
  (mapcar '(lambda (x)
             (cond((= "TEXT" (xyp-DXF 0 x))
                    (setq p5 (xyp-9pt x 2)
                      p2 (xyp-Pt2Y p5 (- (xyp-DXF 40 x)))
                    )
                    (if (setq ss1 (ssget "f" (list p5 p2) '((0 . "*poly*"))))
                      (progn
                        (setq s1  (ssname ss1 0)
                          ptn (xyp-Vertexs s1 0)
                          p0  (car ptn)
                          p1  (cadr ptn)
                          p2  (caddr ptn)
                          p3  (polar p1 (angle p2 p1) (distance p1 p2))
                          pt  (car (xyp-Sort-PtnByXYZ (list p1 p3)))
                          pt  (xyp-Pt2XY pt 50 75)
                        )
                        (xyp-Move x (xyp-DXF 10 x) pt)
                        (xyp-Put-Coordinate s1 2 p3)      
                      )
                    )
                  )
               (t (setq pt1 (xyp-DXF 10 x)
                    pt1 (trans pt1 0 1)
                    pt2 (polar pt1 (* pi 0.5) 10)
                  )
                 (command "mirror" x "" "non"pt1 "non"pt2 "y")
               )
             )
           )
    (xyp-Ss2List ss0)
  )
  (xyp-End)
  (setvar "PEDITACCEPT" 0)
  (setvar "pickstyle" 1)
)

magicheno

xvjiex 发表于 2021-8-25 11:29

大侠，试了下多了一个括号好像，但是删掉之后，还是显示有问题，说参数太少的

xvjiex

刚才没有测试，先已调整！

magicheno

xvjiex 发表于 2021-8-25 12:37
刚才没有测试，先已调整！

可以可以了，感谢大侠~~~

bai2000

有多个院长的自定义函数