创建TEXT实体

Lisphk

1. (defun _maketext (point string width rotation layer)
   
2.   (if point
   
3.     (entmakex (list '(0 . "TEXT")
   
4.                     '(100 . "AcDbEntity")
   
5.                     (cons 8 layer)
   
6.                     '(100 . "AcDbText")
   
7.                     (cons 10 (trans point 1 0))
   
8.                     '(40 . 60.0)
   
9.                     (cons 1 string)
   
10.                     (cons 50 rotation)
    
11.                     (cons 41 width)
    
12.                     '(72 . 1)
    
13.                     (cons 11 (trans point 1 0))
    
14.                     '(73 . 2)
    
15.               )
    
16.     )
    
17.   )
    
18. )
    
19. ;; (_maketext (getpoint) "Hello World!" 0.75 (angtof "45") "Text")
    

(defun _maketext (point string width rotation layer)<br />   (if point<br />     (entmakex (list '(0 . "TEXT")<br />                     '(100 . "AcDbEntity")<br />                     (cons 8 layer)<br />                     '(100 . "AcDbText")<br />                     (cons 10 (trans point 1 0))<br />                     '(40 . 60.0)<br />                     (cons 1 string)<br />                     (cons 50 rotation)<br />                     (cons 41 width)<br />                     '(72 . 1)<br />                     (cons 11 (trans point 1 0))<br />                     '(73 . 2)<br />               )<br />     )<br />   )<br /> )<br /> ;; (_maketext (getpoint) "Hello World!" 0.75 (angtof "45") "Text")<br />

yufeng37

比cad的text命令好，楼主的可以自定义宽度和角度