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

guosheyang

    给朋友们分享个自定义函数，删除当前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")
   )

自贡黄明儒

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

guosheyang

自贡黄明儒 发表于 2022-8-4 11:09
当前样式虽然没有使用，能删除么？

你测试了  行不？  我这里可以呀  注意当前样式样改掉  改为标准

guosheyang

标准样式  不允许删除

guosheyang

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

Dea25

又要特定用户，又要币

guosheyang

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

已改为新手上路