用Autoisp/Vlisp能改变CAD字体？

hkzwsy · 发表于 2004-2-1 16:08:00

cqnj023 · 发表于 2004-2-1 17:08:00

不知你要怎么改变，当然是可以的。

shicai · 发表于 2004-2-2 04:32:00

REFER TO: (defun changefont ( / styles doc)
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(setq styles (vla-get-TextStyles doc))
(vlax-for st styles
(vla-put-FontFile st "simfang.ttf")
)
(vla-regen doc acActiveViewport)
(princ)
)

hours · 发表于 2004-2-2 16:11:00

我还没搞懂AUTOLISP与VLISP的关系！！请那位大侠讲两句！

vla-这类函数是不是就是VLISP的函数？我看有些函数功能好象与非vla函数有重复，用那个比较好！？

龙龙仔 · 发表于 2004-2-2 16:36:00

VLISP函數較多,它以ActiveX物件對象為主,VLISP包括所有AUTOLISP函數,當然用起來比較方便,只是VLISP在R2000+才內含於autocad,R14只能用外掛的VLISP或純Autolisp函數

hkzwsy · 发表于 2004-2-6 14:57:00

每次使用大字体都要设置：格式=>文字样式=>选择“使用大字体”=>kt64.shx

能不能用Autoisp/Vlisp直接使用kt64.shx字体？

meflying · 发表于 2004-2-6 17:51:00

3楼不已经给出了吗？

看看象字体的地方改成你需要的字体就可以了

hkzwsy · 发表于 2004-2-14 09:36:00

(defun changefont ( / styles doc)
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(setq styles (vla-get-TextStyles doc))
(vlax-for st styles
(vla-put-FontFile st "txt.shx")
)
(vla-regen doc acActiveViewport)
(princ)
) 可以改变字体谢谢！但是我还想加大字体:KS64K.shx (defun changefont ( / styles doc)
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(setq styles (vla-get-TextStyles doc))
(vlax-for st styles
(vla-put-FontFile st "txt.shx,ks64k.shx")
)
(vla-regen doc acActiveViewport)
(princ)
)

tukuitk · 发表于 2004-2-14 13:16:00

(defun c:zt (/ styles doc)
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(setq styles (vla-get-TextStyles doc))
(vlax-for st styles
(vla-put-FontFile st "gbenor.shx")
(vla-put-BigFontFile st "hzfs.shx")
)
(vla-regen doc acActiveViewport)
(princ)
)

hkzwsy · 发表于 2004-2-14 15:38:00

谢谢你游侠！

账号		自动登录	找回密码
密码			注册