用法
评论
建议
取 消
确 定
(defun vectra:textstyle-get (name font bigfont width / style styles) (setq styles (vla-get-textstyles (vla-get-activedocument (vlax-get-acad-object)))) (if (vl-catch-all-error-p (setq style (vl-catch-all-apply (quote vla-item) (list styles name)))) (progn (setq style (vla-add styles name)) (vla-put-fontfile style font) (vla-put-bigfontfile style bigfont) (vla-put-width style width))) style)
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新