为什么entmake文字时，文字的倾斜角度不随文字样式？

lxw320

文字样式设置倾斜角度时，entmake创建文字时，文字不会倾斜。

1. (defun c:tt(/ lst pt sty)
   
2.   (setq pt '(0 0 0)
   
3.     sty "倾斜文字样式"
   
4.   )
   
5.   (setq lst(list '(0 . "TEXT")
   
6.              '(1 . "测试文字ABC")
   
7.              '(40 . 300)
   
8.              (cons 10 pt)
   
9.              (cons 11 pt)
   
10.              (cons 7 sty);有倾斜角度的文字样式
    
11.            )
    
12.   )
    
13.   (entmakex lst)
    
14.   (princ)
    
15. )

(defun c:tt(/ lst pt sty)<br />   (setq pt '(0 0 0)<br />     sty "倾斜文字样式"<br />   )<br />   (setq lst(list '(0 . "TEXT")<br />              '(1 . "测试文字ABC")<br />              '(40 . 300)<br />              (cons 10 pt)<br />              (cons 11 pt)<br />              (cons 7 sty);有倾斜角度的文字样式<br />            )<br />   )<br />   (entmakex lst)<br />   (princ)<br /> )

tigcat

那干脆再加行(cons 51 ang)好了,我记得宽度好像也得加才能控制.

lxw320

tigcat 发表于 2022-8-7 17:39
那干脆再加行(cons 51 ang)好了,我记得宽度好像也得加才能控制.

不知道除了这种方式外，还有没其他方法

tigcat

lxw320 发表于 2022-8-7 20:10
不知道除了这种方式外，还有没其他方法

另外的话用command或者vla-add函数

cq4920

2. (defun c:tt(/ lst pt sty)
   
3.   (setq pt '(0 0 0)
   
4.     ang 0.15
   
5.   )
   
6.   (entmakex (list '(0 . "TEXT")
   
7.              '(1 . "测试文字ABC")
   
8.              '(40 . 300)
   
9.              (cons 10 pt)
   
10.              (cons 11 pt)
    
11.              (cons 51 ang);倾斜角度
    
12.            )
    
13.   )
    
14. 
    
15.   (princ)
    
16. )

(defun c:tt(/ lst pt sty)<br />   (setq pt '(0 0 0)<br />     ang 0.15<br />   )<br />   (entmakex (list '(0 . "TEXT")<br />              '(1 . "测试文字ABC")<br />              '(40 . 300)<br />              (cons 10 pt)<br />              (cons 11 pt)<br />              (cons 51 ang);倾斜角度<br />            )<br />   )<br /> <br />   (princ)<br /> )

lxw320

cq4920 发表于 2022-8-29 09:36

因为我想按不同文字样式(不同字体，不同倾斜度，不同宽度)批量去entmake文字，不想在entmake代码片段中判断或填写倾斜度，角度等参数。