TEXT命令执行时。有的文件需要输入高度。有的不需要为什么

ll_j

z1234567890 发表于 2014-5-19 07:52
entmake 这个不能设置对齐点。比如上中。 下中。这些问题。DXF里好像没有信息只有一个11 信息。。。不好设置 ...

其实，不管从程序的稳定性还是执行速度，entmake都比command更有优势。

z1234567890

有没有方法设置文字的上中下中正中。这些对齐问题。用entmake

davide888

                  

ll_j

z1234567890 发表于 2014-5-19 08:42
有没有方法设置文字的上中下中正中。这些对齐问题。用entmake

当然有办法，左中右和上中下分别是72和73组码表示，看帮助文件就可以，基本上任何版本acad都有关于dxf的内容（开发者章节或附录中），设置也不困难。
关于text的10、11组码，需要说明一下，这两者在实用中多数只有一个是关键的（对齐和调整除外），而在这许多组合中，只有在默认的左（72=0）基线（73=0）对齐时，组码10才是关键的，其它都是11组码为关键组码，虽然另一个非关键组码在entmake也是必须，但其值是不控制的。

z1234567890

给个例子吧。
那个11码还需要计算点的位置吗。

ll_j

z1234567890 发表于 2014-5-19 12:04
给个例子吧。
那个11码还需要计算点的位置吗。

一般情况，10、11点只需要算一个。

1. (defun mktext(str pt10 j72 j73 / sty)  ;写文字
   
2.   (entmake
   
3.     (list
   
4.       '(0 . "TEXT")
   
5.       (cons 1 str)
   
6.       (cons 10 pt10)
   
7.       (cons 11 pt10)
   
8.       (cons 7 (setq sty(getvar "textstyle")))
   
9.       (cons 40 (getvar "textsize"))
   
10.       (cons 41 (cdr (assoc 41 (tblsearch "style" sty))))
    
11. ;      (cons 50 alf)
    
12.       (cons 51 (cdr (assoc 50 (tblsearch "style" sty))))
    
13.       '(71 . 0)
    
14.       (cons 72 j72)
    
15.       (cons 73 j73)
    
16.     )
    
17.   )
    
18. )

(defun mktext(str pt10 j72 j73 / sty)  ;写文字<br />   (entmake<br />     (list<br />       '(0 . "TEXT")<br />       (cons 1 str)<br />       (cons 10 pt10) <br />       (cons 11 pt10)<br />       (cons 7 (setq sty(getvar "textstyle")))<br />       (cons 40 (getvar "textsize"))<br />       (cons 41 (cdr (assoc 41 (tblsearch "style" sty))))<br /> ;      (cons 50 alf)<br />       (cons 51 (cdr (assoc 50 (tblsearch "style" sty))))<br />       '(71 . 0)<br />       (cons 72 j72)<br />       (cons 73 j73)<br />     )<br />   )<br /> )

cqh746952

我也觉得好奇怪啊。不知道怎么回事。

z1234567890

ll_j 发表于 2014-5-19 14:32
一般情况，10、11点只需要算一个。

谢谢这位仁兄分享。后面的72 73怎么变才对应着不同的位置呢。

z1234567890

  (COND        ((= MODE 1) '((72 . 0) (73 . 1)))
        ((= MODE 2) '((72 . 1) (73 . 1)))
        ((= MODE 3) '((72 . 2) (73 . 1)))
        ((= MODE 4) '((72 . 0) (73 . 2)))
        ((= MODE 5) '((72 . 1) (73 . 2)))
        ((= MODE 6) '((72 . 2) (73 . 2)))
        ((= MODE 7) '((72 . 0) (73 . 3)))
        ((= MODE 8) '((72 . 1) (73 . 3)))
        ((= MODE 9) '((72 . 2) (73 . 3)))
  )

ll_j

z1234567890 发表于 2014-5-21 10:05
谢谢这位仁兄分享。后面的72 73怎么变才对应着不同的位置呢。

这要看看帮助文件了。DXF的帮助在那个版本的ACAD中都有，本论坛也有下载。
各版本的DXF会有少许差别，但基本元素是不变的。
理解DXF对于用户编程来说，可能比看函数更有用，因为DXF更能对应ACAD的实体和本质。
看联机帮助是个好习惯，比抱着书本要强得多。