文字修改对齐点后，文字位置会变，求个代码...

Lisphk

文字修改对齐点后，文字位置会变，求个代码，修改文字的各种对齐方式后，文字的位置不变。

ll_j

http://www.xdcad.net/forum/thread-668488-1-1.html

Lisphk

ll_j 发表于 2013-8-19 16:20
http://www.xdcad.net/forum/thread-668488-1-1.html

谢谢长老，长老平时搜集了很多帖子啊。不过那个帖子好像不是解决我这问题的，我这个是修改对齐点后，文字还保证原来位置，你给的帖子里面哪个代码适合？

ll_j

Lisphk 发表于 2013-8-19 16:26
谢谢长老，长老平时搜集了很多帖子啊。不过那个帖子好像不是解决我这问题的，我这个是修改对齐点后，文字 ...

问题的答案就是acet_tjust，在我的回帖里面使用了，还有其他的帖子都可以看一下，去掉空格而位置不动，则有一个关于包围盒或其它方面的算法，算出位置，自然怎么改都能随心了。

Lisphk

ll_j 发表于 2013-8-19 16:56
问题的答案就是acet_tjust，在我的回帖里面使用了，还有其他的帖子都可以看一下，去掉空格而位置不动，则 ...

谢谢长老，acet_tjust 这个是acet提供的吧？

ll_j

Lisphk 发表于 2013-8-19 17:02
谢谢长老，acet_tjust 这个是acet提供的吧？

是的，就这个省事些，否则算起来很费劲的。
函数的用法可以参考ET目录下的tjust.lsp。
(acet_tjust 选择集 对齐方式字符串）

Free-Lancer

修改-〉对象-〉文字-〉对正
命令: _justifytext
选择对象:

newer

ll_j 发表于 2013-8-19 17:18
是的，就这个省事些，否则算起来很费劲的。
函数的用法可以参考ET目录下的tjust.lsp。
(acet_tjust 选 ...

人家就是想让你们这些高手给写个实现的代码嘛。

newer

我给个思路，
1、先算出改变前的盒子
2、改变对齐点（位置会变）
3、算出新盒子
4、把新盒子移动到旧盒子

上面就不会涉及到长老说的复杂的对齐运算了。

Free-Lancer

newer 发表于 2013-8-19 18:45
我给个思路，
1、先算出改变前的盒子
2、改变对齐点（位置会变）

随手写系列

1. (vl-load-com)
   
2. (defun c:tt (/ ss)
   
3.   (if (setq ss (ssget "x" '((71 . 2))));_反向 ，4 倒置 0 正常
   
4.     (progn
   
5.       (vl-cmdf "_justifytext" ss "" "MC")
   
6.       (foreach x (cdr (reverse (ssnamex ss)));_entmod code 71 也可以
   
7. (vla-put-backward
   
8.    (vlax-ename->vla-object (cadr x))
   
9.    :vlax-false
   
10. )
    
11.       )
    
12.     )
    
13.   )
    
14.   (princ)
    
15. )

(vl-load-com)<br /> (defun c:tt (/ ss)<br />   (if (setq ss (ssget "x" '((71 . 2))));_反向 ，4 倒置 0 正常<br />     (progn<br />       (vl-cmdf "_justifytext" ss "" "MC")<br />       (foreach x (cdr (reverse (ssnamex ss)));_entmod code 71 也可以<br /> (vla-put-backward<br />    (vlax-ename->vla-object (cadr x))<br />    :vlax-false<br /> ) <br />       )<br />     )<br />   )<br />   (princ)<br /> )

高版本这样

1. (defun c:tt (/ ss)
   
2.   (if (setq ss (ssget "x" '((71 . 2)))) ;_反向 ，4 倒置 0 正常
   
3.     (progn
   
4.       (vl-cmdf "_justifytext" ss "" "MC")
   
5.       (foreach x (ssnamex ss) ;_entmod code 71 也可以
   
6. (if (= (type (cadr x)) 'ENT)
   
7.    (setpropertyvalue (cadr x) "IsMirroredInX" 0) ;_适合2011+
   
8. )
   
9.       )
   
10.     )
    
11.   )
    
12.   (princ)
    
13. )

(defun c:tt (/ ss)<br />   (if (setq ss (ssget "x" '((71 . 2)))) ;_反向 ，4 倒置 0 正常<br />     (progn<br />       (vl-cmdf "_justifytext" ss "" "MC")<br />       (foreach x (ssnamex ss) ;_entmod code 71 也可以<br /> (if (= (type (cadr x)) 'ENT)<br />    (setpropertyvalue (cadr x) "IsMirroredInX" 0) ;_适合2011+<br /> )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

Lispboy

newer 发表于 2013-8-19 18:45
我给个思路，
1、先算出改变前的盒子
2、改变对齐点（位置会变）

我实现一个吧

                               
登录/注册后可看大图

函数代码见 “函数发布”  http://bbs.xdcad.net/thread-670243-1-1.html

1. (defun XD::Text:AdjustAlignMent (e hmode vmode / box1 box2 mat mat0 p1 p2)
   
2.   (setq box1 (XD::Entity:BoxAtEcs e e)
   
3.         p1 (car box1)
   
4.         mat0 (xdrx_matrix_identity 3)
   
5.   )
   
6.   (xdrx_text_setHozMode e hmode)
   
7.   (if (and
   
8.         (/= 3 hmode)
   
9.         (/= 5 hmode)
   
10.       )
    
11.     (xdrx_text_setVerMode e vmode)
    
12.   )
    
13.   (setq box2 (XD::Entity:BoxAtEcs e e)
    
14.         p2 (car box2)
    
15.         mat (xdrx_matrix_setTransLation mat0 (mapcar
    
16.                                                '-
    
17.                                                (trans p1 1 0)
    
18.                                                (trans p2 1 0)
    
19.                                              )
    
20.             )
    
21.   )
    
22.   (xdrx_entity_transform e mat)
    
23.   t
    
24. )

(defun XD::Text:AdjustAlignMent (e hmode vmode / box1 box2 mat mat0 p1 p2)<br />   (setq box1 (XD::Entity:BoxAtEcs e e)<br />         p1 (car box1)<br />         mat0 (xdrx_matrix_identity 3)<br />   )<br />   (xdrx_text_setHozMode e hmode)<br />   (if (and<br />         (/= 3 hmode)<br />         (/= 5 hmode)<br />       )<br />     (xdrx_text_setVerMode e vmode)<br />   )<br />   (setq box2 (XD::Entity:BoxAtEcs e e)<br />         p2 (car box2)<br />         mat (xdrx_matrix_setTransLation mat0 (mapcar<br />                                                '-<br />                                                (trans p1 1 0)<br />                                                (trans p2 1 0)<br />                                              )<br />             )<br />   )<br />   (xdrx_entity_transform e mat)<br />   t<br /> )