[求助]：如何用entmake生成text?

panzhongw

如何用entmake生成text?
我想用ENTMAKE生成TEXT，我使用如下语句
(defun c:tx ( / dl1)
     (setq dl1 (list (cons 0 "TEXT")
                        (cons 1 "happy")
                        (cons 10 (getpoint "\n请选择插入点"))
                        (cons 40 2.5)
                        (cons 50 0.0)
                        (cons 41 0.8)
                        (cons 51 0.0)
                        (cons 72 0)
                   );;list
     );;setq
     (entmake dl1)
     (princ)
)
以上语句是成功的，但对齐方式是左下，我想改为正中
于是我作如下修改
(defun c:tx ( / dl1)
     (setq dl1 (list (cons 0 "TEXT")
                        (cons 1 "happy")
                        (cons 11 (getpoint "\n请选择插入点"))
                        (cons 40 2.5)
                        (cons 50 0.0)
                        (cons 41 0.8)
                        (cons 51 0.0)
                        (cons 72 1)
                        (cons 73 2)
                   );;list
     );;setq
     (entmake dl1)
     (princ)
)
以上语句不能实现！
是否是需要将组码10计算出来？
请教！

XDSoft

最初由 panzhongw 发布
[B]如何用entmake生成text?
我想用ENTMAKE生成TEXT，我使用如下语句
(defun c:tx ( / dl1)
     (setq dl1 (list (cons 0 "TEXT")
                        (cons 1 "happy")
                        (cons 10 ... [/B]

知道了为什么不试验下呢，10点是必须的，是基点。

改下你的代码，你试试：

2. <normalfont>
   
3. (defun c:tx ( / )
   
4. (setq dl1 (list (cons 0 "TEXT")
   
5. (cons 1 "happy")
   
6. (cons 10 (getpoint "\n10基点"))
   
7. (cons 11 (getpoint "\n请选择插入点"))
   
8. (cons 40 2.5)
   
9. (cons 50 0.0)
   
10. (cons 41 0.8)
    
11. (cons 51 0.0)
    
12. (cons 72 1)
    
13. (cons 73 2)
    
14. );;list
    
15. );;setq
    
16. (entmake dl1)
    
17. (princ)
    
18. )
    
19. </normalfont>
    

<normalfont><br /> (defun c:tx ( / ) <br /> (setq dl1 (list (cons 0 "TEXT") <br /> (cons 1 "happy")<br /> (cons 10 (getpoint "\n10基点"))<br /> (cons 11 (getpoint "\n请选择插入点")) <br /> (cons 40 2.5)<br /> (cons 50 0.0)<br /> (cons 41 0.8)<br /> (cons 51 0.0)<br /> (cons 72 1)<br /> (cons 73 2)<br /> );;list<br /> );;setq<br /> (entmake dl1)<br /> (princ)<br /> )<br /> </normalfont><br />

panzhongw

谢谢XD！
加入(cons 10 (getpoint "\n选择基点"))后能正确处理！
但这个基点好象和文字没有什么联系，因为生成的文字
的组码10和最初选择的基点是不同的。
能请XD解释一下吗？
谢谢！

aeo

Text group codes一部分

1. 
   
2. 71        Text generation flags (optional, default = 0):
   
3.   2 = Text is backward (mirrored in X),
   
4.   4 = Text is upside down (mirrored in Y)
   
5. 72        Horizontal text justification type (optional, default = 0) integer codes (not bit-coded)
   
6.   0 = Left;1= Center; 2 = Right
   
7.   3 = Aligned (if vertical alignment = 0)
   
8.   4 = Middle (if vertical alignment = 0)
   
9.   5 = Fit (if vertical alignment = 0)
   
10.   See the following table for clarification
    
11. 11        Second alignment point (in OCS).
    
12.   DXF: X value; APP: 3D point.
    
13.   This value is meaningful only if the value of a 72 or 73 group is nonzero (if the justification is anything other than baseline/left)
    
14. 73        Vertical text justification type (optional, default = 0): integer       codes (not bit- coded)
    
15.    0 = Baseline; 1 = Bottom; 2 = Middle; 3 = Top
    

复制代码

简简单单写个字,11 72 73都去掉,又是居中又是什么的,当然和选的点对不上了.

ll_j

最初由 panzhongw 发布
谢谢XD！
加入(cons 10 (getpoint "\n选择基点"))后能正确处理！
但这个基点好象和文字没有什么联系，因为生成的文字
的组码10和最初选择的基点是不同的。
能请XD解释一下吗？
谢谢！

panzhongw

感谢诸位仁兄！
看来还须仔细读书！

前生

书一日不读则愚