vernonlee 发表于 2022-7-5 19:56:13

帮助包括“AcDbAlignedDi”

任何人都可以帮助查看我可以在哪里插入“AcDbAlignedDimension”，以允许删除对齐的维度。
 
从另一个网站上得到这个Lisp程序。
 
谢谢
 
;;DELETE DIMENSION BASE ON SELECTIVE BLOCKS   ;;
(defun c:DIMDELS (/ ss i sn name lst)
(vl-load-com)
;;;      ------ Tharwat 15. June. 2012 -----      ;;;
;;; codes to delete all dimensions entities in the;;;
;;;                selected blocks                  ;;;
(if (not acdoc)
   (setq acdoc (vla-get-activedocument (vlax-get-acad-object)))
)
(if (setq ss (ssget "_:L" '((0 . "INSERT"))))
   (repeat (setq i (sslength ss))
   (setq sn (ssname ss (setq i (1- i))))
   (if (not (member (setq name (cdr (assoc 2 (entget sn)))) lst))
       (progn
         (setq lst (cons name lst))
         (vlax-for each (vla-item (vla-get-blocks acdoc) name)
         (if (eq (vla-get-objectname each) "AcDbRotatedDimension")
             (vla-delete each))
         )
       )
   )
   )
   (princ)
)
(if ss (vla-regen acdoc AcAllviewports))
(princ)
)

Tharwat 发表于 2022-7-5 20:03:02

根据要更改的对象名称替换高亮显示的对象名称。

vernonlee 发表于 2022-7-5 20:07:34

 
我之前已经测试过了&是的，它是有效的。
 
为了澄清，我不知道如何做到，但我希望将两者都包括在LISP中。可能的

Tharwat 发表于 2022-7-5 20:11:57

 
是的，换成这个。
 

(if (wcmatch (vla-get-objectname each) "AcDbRotatedDimension,AcDbAlignedDimension")
........

vernonlee 发表于 2022-7-5 20:16:23

谢谢塔瓦。它起作用了。
 
抱歉，我忘了我也想包括角度维度。我只能找到对齐尺寸的代码，但找不到角度的代码。有什么建议吗？

Tharwat 发表于 2022-7-5 20:20:46

 
不客气。
 
 
正如我在上次修改中所做的那样，添加以下内容。
 

"AcDb2LineAngularDimension"

 
我刚刚看到你的PM进入另一个论坛，无论如何我只是按照你的要求在这里

vernonlee 发表于 2022-7-5 20:23:33

谢谢兄弟的帮助
 
首先在另一个论坛上介绍你。不知道你在这里也很活跃

Tharwat 发表于 2022-7-5 20:30:09

 
不客气

vernonlee 发表于 2022-7-5 20:31:19

找出可以添加以下内容。
 
AcDbRadialDimension
ACDB直径尺寸

vernonlee 发表于 2022-7-5 20:38:57

它现在删除了人类已知的每个维度。。。。。。。。。。。。除拱长外
 
编辑
刚刚找到答案
 
ACDBARC尺寸
页: [1] 2
查看完整版本: 帮助包括“AcDbAlignedDi”