[原创]style命令行参数个数不确定，command函数如何调用它？

lazybones

style命令行参数个数不确定，command函数如何调用它？
style命令行参数依次为：
输入文字样式名或 [?] <HZ>:
指定完整的字体名或字体文件名 (TTF 或 SHX): <txt,hztxt>:
指定文字高度 <0.00>:
指定宽度比例 <0.70>:
指定倾斜角度 <0>:
是否反向显示文字？[是(Y)/否(N)] <N>:
是否颠倒显示文字？[是(Y)/否(N)] <N>:
是否垂直? <N>

关键问题在于最后一个提问，AutoCAD帮助明确指出——只有在选定字体支持双向时“垂直”才可用，即，如果使用了不支持双向的字体，如gbenor.shx，使用-style命令时，最后一个问题根本不会提出。
带来的问题是，在lisp程序中利用command函数使用style命令时，参数个数不确定！

有判断字体是否支持双向的函数？
有何判断存不存在最后一个提问需要响应的办法？

caoyin

(command "_.style" "hz" "txt,hztxt" "0.00" "0.70" "0" "_no" "_no")

(if (/= 0 (getvar "cmdactive"))

(command "_no")

)

lazybones

十分感谢，十分感谢！

lazybones

除了使用style命令外，lisp还有什么方法可以建立新的文字样式？

caoyin

entmake

carrot1983

caoyin发表于2008-2-20 15:51:00(command \"_.style\" \"hz\" \"txt,hztxt\" \"0.00\" \"0.70\" \"0\" \"_no\" \"_no\")(if (/= 0 (getvar \"cmdactive\"))(command \"_no\"))

学习学习

wbsab

谢谢，我也是才用上的，真不错

leochen

(defun mstyle (name shx bigshx)
  (if (= (tblobjname "style" name) nil)
    (entmake (list
        '(0 . "STYLE")
        '(100 . "AcDbSymbolTableRecord")
        '(100 . "AcDbTextStyleTableRecord")
        (cons 2 name)
        '(70 . 0)
        '(40 . 0.0)
        '(41 . 0.6)
        '(50 . 0.0)
        '(71 . 0)
        '(42 . 0)
        (cons 3 shx)
        (cons 4 bigshx)
      )
    )
  )
  (princ)
)