在LISP中,如何才能正确调用text命令?!
调用CAD的text命令时,有时会出现要求输入文字高度的选项,有时就不会,请教各位是怎么回事?!如图一和图二的比较:
不要求高度时,是当前字型已经设置了字高。
所以要先判断当前字型是否设置了字高,然后执行相应的命令。
(if (> (cdr(assoc 40 (tblsearch "STYLE" (getvar "TEXTSTYLE")))) 0.0)
(command "TEXT" pt h "" "text")
(command "TEXT" pt "" "text")
)
entmake,比command方便
在TEXT中LISP 中要二个空格才行的,多一个空格 6666666666666
页:
[1]