[LISP程序]：求助lisp编程！高手请进！！

bridgewind

我刚刚入门lisp，请教诸位高手！
用(command "text" p1 h 0 txt1)怎么才能修改成对style里的字高有无设置作自动判别？
因为如果style没有定义字高可以用
(command "text" p1 h 0 txt1)，
但如果style定义了字高则必须用
(command "text" p1 0 txt1)，
打开一个图纸，怎么能自动判断当前style有无设置字高呢？
请高手不吝赐教！

陌生人

tblsearch
看看cad 中 dxf 参考
style

zhynt

判断(cdr (assoc  40 (tblsearch "style""字型")是否为0。
(if (/= (cdr (assoc 40 (tblsearch "style (getvar "textstyle")))) 0)
(command "text" p1 0 txt1)
(command "text" p1 h 0 txt1)
)

梦断江南

别管字型

2. 
   
3. (setq  pt (getpoint "\n文本定位点:")
   
4.        hi (getdist pt "\n文字高度:")
   
5.        txt (getstring "\n文本内容:")
   
6.        txtlist (list (cons 0 "text") (cons 10 pt) (cons 40 hi) (cons 1 txt))
   
7. )
   
8. (entmake txtlist)
   

<br /> (setq  pt (getpoint "\n文本定位点:")<br />        hi (getdist pt "\n文字高度:")<br />        txt (getstring "\n文本内容:")<br />        txtlist (list (cons 0 "text") (cons 10 pt) (cons 40 hi) (cons 1 txt))<br /> )<br /> (entmake txtlist)<br />

bridgewind

备受启发，非常感谢！