几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量

几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量 (http://www.dimcax.com/hust/index.php)
-   ObjectARX(AutoLISP) (http://www.dimcax.com/hust/forumdisplay.php?f=178)
-   -   怎样用程序设置字体? (http://www.dimcax.com/hust/showthread.php?t=12040)

yang686526 2009-04-26 08:51 PM

怎样用程序设置字体?
 
怎样用程序设置字体?
www.dimcax.com
怎样用程序设置字体?
怎样用程序设置字体?(平时高置是用命令“st”)
请问怎样用lisp设置?例如我要选择txt.shx--------hztxt.shx怎样写?谢谢!
勤能补拙

在程序中用(vl-cmdf "style" ........)即可。
command: (command "style")
nil
enter name of text style or [?] <standard>:
existing style.
specify full font name or font filename (ttf or shx) <txt,bigfont.shx>:
specify height of text <0.0000>:
specify width factor <1.0000>:
specify obliquing angle <0.00>:
display text backwards? [yes/no] <n>:
display text upside-down? [yes/no] <n>:
vertical? <n>
"standard" is now the current text style.
< 桐阳模具cad>
< ://tymoju.blogspot.com>

兄弟,你用的是vba吧,我看不懂,有没有lisp的?
勤能补拙

顶下,哪位高手请用lisp程序出招
勤能补拙

(command "style" "hz" "simplex,hztxt" 0 0.7 0 "n" "n")

按楼主的要求,应该为:
(command "style" "hz" "txt,hztxt" 0 0.7 0 "n" "n")

这里还没有人用vba写呀,怎么说是vba呢

lambtonchina
很好,谢谢!但不知是怎样得来这个的(command "style" "hz" "txt,hztxt" 0 0.7 0 "n" "n")?
也就是当我把系统变量filedia设为0来也调试不了,所以我想知道是怎么样得来以上程序命令的
勤能补拙

lisp实现起来不如vba那么方便吧?!


所有的时间均为北京时间。 现在的时间是 02:44 AM.