entmake创建mtext的代码

marting

1. (defun CreateMtext ()
   
2. 
   
3. (if  
   
4.    (entmake
   
5.      (list
   
6.     (cons 0 "MTEXT")       ; Entity Type
   
7.     (cons 100 "AcDbEntity")    ; 100 Entity Code
   
8.     ;(cons 8 "DIM")         ; The Layer
   
9.     (cons 100 "AcDbMText")       ; 100 Entity Code     
   
10.     (cons 1 "\\S100^200")       ; Stacked Text
    
11.     (cons 10 '(0.0 0.0 0.0))   ; Insertion Point
    
12.     )
    
13.    )
    
14.    (princ "\nMtext Entity Created.")
    
15.    (princ "\nMtext Entity NOT Created.")
    
16.    )
    
17.    (princ)
    
18. )
    
19. (princ "\nCreateMtext loaded, type (CreateMtext) to run.")
    
20. (princ)

(defun CreateMtext () <br /> <br /> (if  <br />    (entmake <br />      (list <br />     (cons 0 "MTEXT")       ; Entity Type <br />     (cons 100 "AcDbEntity")    ; 100 Entity Code <br />     ;(cons 8 "DIM")         ; The Layer <br />     (cons 100 "AcDbMText")       ; 100 Entity Code     <br />     (cons 1 "\\S100^200")       ; Stacked Text <br />     (cons 10 '(0.0 0.0 0.0))   ; Insertion Point <br />     ) <br />    ) <br />    (princ "\nMtext Entity Created.") <br />    (princ "\nMtext Entity NOT Created.") <br />    ) <br />    (princ) <br /> ) <br /> (princ "\nCreateMtext loaded, type (CreateMtext) to run.") <br /> (princ)

sh_h

感谢楼主分享！！！！

olenewman

请问如何设置mtext对角点

啊龍

感謝樓主分享！！！！
正好急需~~~

xvjiex

感谢楼主分享entmake创建mtext的代码！

hh_lj007

感谢楼主分享！

SHUNDocker

感谢楼主分享学习！！！