guosheyang 发表于 2022-8-4 10:31:02

删除当前CAD文档中指定的多线样式（空样式或非空样式）

本帖最后由 guosheyang 于 2022-8-4 21:35 编辑

    给朋友们分享个自定义函数，删除当前CAD文档中指定的多线样式空样式或非空样式），注意使用前最好保存备份，有问题请跟帖，谢谢！



; 删除当前CAD文档中指定的多线样式                                    
; 注意：删除前请备份文档 若指定删除的样式为空样式，将不加确认直接删除
; 参数：del_mame 要删除的多线样式名称（字符串）                     
; 执行;(ygs_del_mlst (setq del_mame "3"))                           
(defun ygs_del_mlst(del_mame / MLTY SL SS SS-ML SS_DEL THISDRAWING YSB YSM)
;提取已加载的多线样式的名称列表
(setq ysb(mapcar 'cdr
(vl-remove-if-not
'(lambda (item) (eq (car item) 3))
(dictsearch (namedobjdict) "ACAD_MLINESTYLE")
)
))
(setq thisdrawing (vla-get-activedocument(vlax-get-acad-object)))
(vla-startundomark thisdrawing)
(if(and
       (vl-position del_mame ysb)
       (/= del_mame "STANDARD")
   )



自贡黄明儒 发表于 2022-8-4 11:09:51

当前样式虽然没有使用，能删除么？

guosheyang 发表于 2022-8-4 11:12:33

自贡黄明儒 发表于 2022-8-4 11:09
当前样式虽然没有使用，能删除么？
你测试了行不？我这里可以呀注意当前样式样改掉改为标准

guosheyang 发表于 2022-8-4 11:14:00

标准样式不允许删除

guosheyang 发表于 2022-8-4 11:17:20

如果当前样式为空样式   代码会将当前样式改为 标准样式    然后再删除该空样式

Dea25 发表于 2022-8-4 12:05:12

又要特定用户，又要币

guosheyang 发表于 2022-8-4 12:19:43

Dea25 发表于 2022-8-4 12:05
又要特定用户，又要币

已改为新手上路
页: [1]
查看完整版本: 删除当前CAD文档中指定的多线样式（空样式或非空样式）