关于TEXT实体设置对齐方式为中下时候遇到的问题

newer

1. (defun c:tt2 ()
   
2.   (if (and (setq e (car (entsel "\nselect a text:")))
   
3.            (setq o (vlax-ename->vla-object e))
   
4.            (eq (vla-get-objectname o) "AcDbText")
   
5.            (setq pt (getpoint "\npick alignment point:"))
   
6.       )
   
7.     (progn      
   
8.       (vla-put-alignment o acAlignmentbottomCenter)
   
9.       (vla-put-textalignmentpoint o (vlax-3d-point pt))
   
10.     )
    
11.   )
    
12.   (princ)
    
13. )
    

(defun c:tt2 ()<br />   (if (and (setq e (car (entsel "\nselect a text:")))<br />            (setq o (vlax-ename->vla-object e))<br />            (eq (vla-get-objectname o) "AcDbText")<br />            (setq pt (getpoint "\npick alignment point:"))<br />       )<br />     (progn      <br />       (vla-put-alignment o acAlignmentbottomCenter)<br />       (vla-put-textalignmentpoint o (vlax-3d-point pt))<br />     )<br />   )<br />   (princ)<br /> )<br />

上面代码TT2，是设置对齐方式为中下，但是对齐点离开文字很远，其他的对齐方式，朋友们帮忙测试和分析下

文字样式字体用SHX。

st788796

换个字体   

xinxirong

手机回复，没法测试：应该是顺序问题，dxf10和dxf11是两个不同组码，如果先改对齐方式为中下，中断一下，文字的位置会变了。试试去掉alignment，改 vla-put-textposition

q3_2006

Justify Alignment Mode HorizontalMode(setHozMode) VerticalMode(setVerMode) Code73 Code72
0 acAlignmentLeft L 0 0 0 0
1 acAlignmentCenter C 0 1 0 1
2 acAlignmentRight R 0 2 0 2
3 acAlignmentAligned A 0 3 0 3
4 acAlignmentMiddle M 0 4 0 4
5 acAlignmentFit F 0 5 0 5
6 acAlignmentTopLeft TL 3 0 3 0
7 acAlignmentTopCenter TC 3 1 3 1
8 acAlignmentTopRight TR 3 2 3 2
9 acAlignmentMiddleLeft ML 2 0 2 0
10 acAlignmentMiddleCenter MC 2 1 2 1
11 acAlignmentMiddleRight MR 2 2 2 2
12 acAlignmentBottomLeft BL 1 0 1 0
13 acAlignmentBottomCenter BC 1 1 1 1
14 acAlignmentBottomRight BR 1 2 1 2

(setq l1 '(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14)
        l2 '("L" "C" "R" "A" "M" "F" "TL" "TC" "TR" "ML" "MC" "MR" "BL" "BC" "BR")
)
(setq e (entlast)
        pc (Vlax-Get (Vlax-Ename->Vla-Object e) 'InsertionPoint )
        pc1 (Vlax-Get (Vlax-Ename->Vla-Object e) 'TextAlignmentPoint )
)
(Vlax-Put-Property (Vlax-Ename->Vla-Object e) 'Alignment 10 )
(setq pca (Vlax-Get (Vlax-Ename->Vla-Object e) 'InsertionPoint ))
(Vlax-Put-Property (Vlax-Ename->Vla-Object e) 'TextAlignmentPoint (Vlax-3d-Point (mapcar '- pc pca)) )
感觉跟块插入点意思相近

newer

q3_2006 发表于 2017-8-6 08:01

测试下对齐方式 13， acAlignmentBottomCenter

newer

st788796 发表于 2017-8-6 02:59

所有的西文的字体都这样。就想看看是AUTOCAD的BUG，还是有什么方法解决。

newer

又测试了几次，发现是当BIGFONT设置为 gbcbig.shx时候，才会出现问题，难道是这个字体设计的原因？

q3_2006

newer 发表于 2017-8-6 08:15

我测试没问题....

newer

q3_2006 发表于 2017-8-6 08:58

你的代码，我修改了对齐方式是13，
你用下我上面图的样式设置，大字体用 GBCBIG.SHX，小字体随便，你在测试下

1. (defun c:tt ()
   
2.   (setq        l1 '(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14)
   
3.         l2 '("L" "C" "R" "A" "M" "F" "TL" "TC" "TR" "ML" "MC" "MR" "BL"
   
4.              "BC" "BR")
   
5.   )
   
6.   (setq        e   (entlast)
   
7.         pc  (Vlax-Get (Vlax-Ename->Vla-Object e) 'InsertionPoint)
   
8.         pc1 (Vlax-Get (Vlax-Ename->Vla-Object e) 'TextAlignmentPoint)
   
9.   )
   
10.   (Vlax-Put-Property (Vlax-Ename->Vla-Object e) 'Alignment 13)
    
11.   (setq pca (Vlax-Get (Vlax-Ename->Vla-Object e) 'InsertionPoint))
    
12.   (Vlax-Put-Property
    
13.     (Vlax-Ename->Vla-Object e)
    
14.     'TextAlignmentPoint
    
15.     (Vlax-3d-Point (mapcar '- pc pca))
    
16.   )
    
17. )
    
18. 
    

(defun c:tt ()<br />   (setq        l1 '(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14)<br />         l2 '("L" "C" "R" "A" "M" "F" "TL" "TC" "TR" "ML" "MC" "MR" "BL"<br />              "BC" "BR")<br />   )<br />   (setq        e   (entlast)<br />         pc  (Vlax-Get (Vlax-Ename->Vla-Object e) 'InsertionPoint)<br />         pc1 (Vlax-Get (Vlax-Ename->Vla-Object e) 'TextAlignmentPoint)<br />   )<br />   (Vlax-Put-Property (Vlax-Ename->Vla-Object e) 'Alignment 13)<br />   (setq pca (Vlax-Get (Vlax-Ename->Vla-Object e) 'InsertionPoint))<br />   (Vlax-Put-Property<br />     (Vlax-Ename->Vla-Object e)<br />     'TextAlignmentPoint<br />     (Vlax-3d-Point (mapcar '- pc pca))<br />   )<br /> )<br /> <br />

q3_2006

newer 发表于 2017-8-6 09:10

这次位置不对了..

st788796

newer 发表于 2017-8-6 08:18

这个可能和图形（英制）以及 字体定义中的控制有关，一般用 style 命令修改，没有深究过

/db_自贡黄明儒_

遇到过，但没深究。当时感觉还是JUSTIFYTEXT命令好。

marting

/db_自贡黄明儒_ 发表于 2017-8-6 21:29

这种字体，应该用JUSTTEXT命令结果也一样。应该是字体设计的缺陷。
因为命令也是调用底层内部的核心，和VLA调用的是一样的。