在LISP中,如何才能正确调用text命令?!

jaminth · 发表于 2008-2-25 07:51:00

调用CAD的text命令时,有时会出现要求输入文字高度的选项,有时就不会,请教各位是怎么回事?!
如图一和图二的比较:

lnsgqdmqsdv.JPG

ZZXXQQ · 发表于 2008-2-25 08:12:00

不要求高度时，是当前字型已经设置了字高。
所以要先判断当前字型是否设置了字高，然后执行相应的命令。
(if (> (cdr(assoc 40 (tblsearch "STYLE" (getvar "TEXTSTYLE")))) 0.0)
(command "TEXT" pt h "" "text")
(command "TEXT" pt "" "text")
)