用entmake产生居中文字

自贡黄明儒

昨天想在图中圆心处用entmake写单行文字,在明经搜索了半天，后来终于搞定

1. (defun TextMC (str pt Textheigh)
   
2.   (entmake (list '(0 . "TEXT")
   
3.                  (cons 1 str)
   
4.                  (cons 10 pt)
   
5.                  (cons 40 Textheigh)
   
6.                  (cons 11 pt)
   
7.                  (cons 72 1)
   
8.                  (cons 73 2)
   
9.            )
   
10.   )
    
11. )

(defun TextMC (str pt Textheigh)<br />   (entmake (list '(0 . "TEXT")<br />                  (cons 1 str)<br />                  (cons 10 pt)<br />                  (cons 40 Textheigh)<br />                  (cons 11 pt)<br />                  (cons 72 1)<br />                  (cons 73 2)<br />            )<br />   )<br /> )

qjcpj

在圆内生成的文字自动适应圆尺寸改变文字宽度系数，又该如何做呢？

ll_j

这好像不应是你这个水平该惊喜的事，注意一下组码，都应该知道。
实际上，居中一般不用这种组码，多数是使用72=4,73=0.

另，自适应有两种状态，73组码都是0,72组码分别是3（对齐）和5（调整）。
不过，此时的11和12组码就不能相同了。

1993063

用一个make文字通用函数不更好么

lzgxklable

感谢楼主分享