求: 标注文字镜像后文字与引线对齐关系相应改变

fengyu6913

如上图（单行文字与引线没有关联），左边文字与引线是右中对齐关系，镜像后变成右边这样，文字与引线是左中对齐关系，

nzl1116

1. (vl-load-com)
   
2. (defun c:ttt (/ Pt0 Pt1 Pt2 Pt3 Lst Len Mir Ali)
   
3.   (princ "\n框选镜像对象")
   
4.   (and
   
5.     (setq sss (ssget))
   
6.     (setq Pt0 (getpoint "\n指定镜像线的第一点"))
   
7.     (setq Pt1 (getpoint Pt0 "\n指定镜像线的第二点"))
   
8.     (progn
   
9.       (setq Lst nil)
   
10.       (repeat (setq Len (sslength sss))
    
11.         (setq Lst (cons (ssname sss (setq Len (1- Len))) Lst))
    
12.       )
    
13.       (setq sss nil)
    
14.       (setq Lst (mapcar 'vlax-ename->vla-object Lst))
    
15.       (setq Pt0 (vlax-3d-point Pt0))
    
16.       (setq Pt1 (vlax-3d-point Pt1))
    
17.       (foreach Obj Lst
    
18.         (setq Mir (vla-Mirror Obj Pt0 Pt1))
    
19.         (and
    
20.           (= (vla-get-ObjectName Obj) "AcDbText")
    
21.           (setq Ali (assoc (vla-get-Alignment Obj) '((0 . 2) (2 . 0) (6 . 8) (8 . 6) (9 . 11) (11 . 9) (12 . 14) (14 . 12))))
    
22.           (progn
    
23.             (setq Pt2 (vla-get-InsertionPoint Mir))
    
24.             (vla-put-Alignment Mir (cdr Ali))
    
25.             (setq Pt3 (vla-get-InsertionPoint Mir))
    
26.             (vla-move Mir Pt3 Pt2)
    
27.           )
    
28.         )
    
29.       )
    
30.     )
    
31.   )
    
32.   (princ)
    
33. )

(vl-load-com)<br /> (defun c:ttt (/ Pt0 Pt1 Pt2 Pt3 Lst Len Mir Ali)<br />   (princ "\n框选镜像对象")<br />   (and<br />     (setq sss (ssget))<br />     (setq Pt0 (getpoint "\n指定镜像线的第一点"))<br />     (setq Pt1 (getpoint Pt0 "\n指定镜像线的第二点"))<br />     (progn<br />       (setq Lst nil)<br />       (repeat (setq Len (sslength sss))<br />         (setq Lst (cons (ssname sss (setq Len (1- Len))) Lst))<br />       )<br />       (setq sss nil)<br />       (setq Lst (mapcar 'vlax-ename->vla-object Lst))<br />       (setq Pt0 (vlax-3d-point Pt0))<br />       (setq Pt1 (vlax-3d-point Pt1))<br />       (foreach Obj Lst<br />         (setq Mir (vla-Mirror Obj Pt0 Pt1))<br />         (and<br />           (= (vla-get-ObjectName Obj) "AcDbText")<br />           (setq Ali (assoc (vla-get-Alignment Obj) '((0 . 2) (2 . 0) (6 . 8) (8 . 6) (9 . 11) (11 . 9) (12 . 14) (14 . 12))))<br />           (progn<br />             (setq Pt2 (vla-get-InsertionPoint Mir))<br />             (vla-put-Alignment Mir (cdr Ali))<br />             (setq Pt3 (vla-get-InsertionPoint Mir))<br />             (vla-move Mir Pt3 Pt2)<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

fengyu6913

本人不会LISP编程，能开发的可以留下联系方式，可以再商量!

start4444

cad 引线标准镜像之后默认就是这样的，把mirrtext设成0值

fengyu6913

start4444 发表于 2018-11-9 11:05
cad 引线标准镜像之后默认就是这样的，把mirrtext设成0值

我用的引线与文字不是关联的，是单行文字，你说的是针对多行文字。我不习惯用多行文字

vectra

要有例图 看不懂哪里需要编程
在我的cad上镜相之后，默认就是右中变成左中对齐了

tranney

我的方法 是分2步，第一步，镜像，第2步框选文字检查，如果是左对齐的换为右对齐，如果是右对齐的则换为左对齐

fengyu6913

nzl1116 发表于 2018-11-8 23:03

经验证，大神的程序达到预期效果，非常感谢！

czb203

经验证，大神的程序达到预期效果

fengyu6913

nzl1116 发表于 2018-11-8 23:03

大神，能否将程序加一个 “要删除源对象吗？[是(Y)/否(N)] <N>:” 的选项，做成跟原来的“镜像”命令那样。