用法
评论
建议
取 消
确 定
(defun entity:activedimstyle (dimname / acaddocument acadobject currdimstyle mspace) "激活指定的标注样式。dimname:标注样式名" "" "(activedimstyle \"40\")" (vl-load-com) (setq entname (tblobjname "DIMSTYLE" dimname)) (setq acadobject (vlax-get-acad-object) acaddocument (vla-get-activedocument acadobject) mspace (vla-get-modelspace acaddocument)) (setq currdimstyle (vlax-ename->vla-object entname)) (vla-put-activedimstyle acaddocument currdimstyle) (princ))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 772 个
函数库类别: 54 种
上传记录
刷新