图纸集图纸编号

adamsdr3 · 发表于 2022-7-5 18:33:17

首先，我要说的是，我在excel VBA方面比在autoCAD VBA方面熟练得多。

我有大约200张图纸。一半的页码只是数字，另一半是末尾带D的数字。如果页码有一个破折号，我想在D前面加一个破折号。基本上，我需要做这个

1.
1D
2.
2D
3.
3D

看起来像这样

1.
1-D
2.
2-D
3.
三维

如果有帮助的话，我在excel中写了一些东西，但我不知道如何为每个图形指定图纸集甚至图纸编号属性。。。以下是我在excel中写的内容。它很简单，效果很好。

copy

Public Sub demolition()
For Each cell In Range("E6:E13")
If Right(cell.Text, 1) = "D" Then
cell.Value = Left(cell.Text, Len(cell.Text) - 1)
End If
Next cell
End Sub

Lt Dan's l · 发表于 2022-7-5 18:43:05

它是文本还是块属性？单个图纸？所有视口都是一个，但不同？

我不确定这是否有帮助，但。。。

copy


(setq lst '("1" "1D" "2" "3" "3D" "4"))
(repeat (setq n (length lst))
 (and (wcmatch (strcase (nth (setq n (1- n)) lst)) "*D")
   (setq lst 
     (subst (vl-string-subst "-D" "D" (nth n lst))
       (nth n lst) lst
     )
   )
 )
)

adamsdr3 · 发表于 2022-7-5 18:44:50

它既不是文本也不是块属性。它们都是具有不同视口的单个dwg。我基本上只需要更改sheetset中的sheet number属性

Lt Dan's l · 发表于 2022-7-5 18:51:57

选项卡名称？或图纸（dwg）名称？原谅我的无知，我已经80年没有处理床单了

adamsdr3 · 发表于 2022-7-5 18:53:46

每个图纸集都有子集（我认为您称之为选项卡）。子集中包含图纸。图纸集中的每个图纸有2个属性；图纸编号和图纸标题。我需要运行的代码影响图纸编号。

Lt Dan's l · 发表于 2022-7-5 19:02:49

仅适用于活动文档。

对于多个DWG，

copy


(vlax-for x (vla-get-Layouts (vla-get-activedocument (vlax-get-acad-object)))
 (and (setq n (strcase (vla-get-name x)))
   (eq (substr n (setq nl (strlen n)) 1) "D")
   (vla-put-name x (strcat (substr n 1 (1- nl)) "-D"))
 )
)

copy


(vlax-for d (vla-get-documents (vlax-get-acad-object))
 (vlax-for x (vla-get-Layouts d)
   (and (setq n (strcase (vla-get-name x)))
      (eq (substr n (setq nl (strlen n)) 1) "D")
     (vla-put-name x (strcat (substr n 1 (1- nl)) "-D"))
   )
 )
)