帮助包括“AcDbAlignedDi”

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

任何人都可以帮助查看我可以在哪里插入“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

是的，换成这个。

copy


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

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

谢谢塔瓦。它起作用了。

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

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

不客气。

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

copy


"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尺寸

[编程交流] 帮助包括“AcDbAlignedDi”

发表回复

精选推荐