用法
评论
建议
取 消
确 定
(defun layout:rename (str-oldname str-newname / lst-name) "重命名布局名称" "" "(layout:rename \"布局1\" \"我的布局\")" (setq lst-name (mapcar (quote vla-get-name) (layout:vla-list))) (if (and (member str-oldname lst-name) (null (member str-newname lst-name))) (vla-put-name (nth (vl-position str-oldname lst-name) (layout:vla-list)) str-newname)))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 767 个
函数库类别: 53 种
上传记录
刷新