用法
评论
建议
取 消
确 定
(defun entity:make-layer (strname intcolor strltype boolecur / iloc obj out) "创建图层\n参数:\nstrName:图层名\nintColor:图层颜色\nstrLtype:图层线型\nbooleCur:是否置为当前图层" "成功返回图层名,失败返回nil" "(entity:make-layer \"Layer1\" 3 \"DASHED\" T)" (if (not (tblsearch "layer" strname)) (progn (setq obj (vla-add (std:layers) strname)) (setq iloc (vl-position strname (entity:layers))) (if (vlax-write-enabled-p obj) (progn (if intcolor (vla-put-color obj intcolor)) (if strltype (entity:change-ltype obj strltype)))) (if boolecur (vla-put-activelayer (std:active-document) (vla-item (std:layers) iloc))) strname) nil))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新