块插入点不正确

sdubbs · 发表于 2022-7-6 22:55:23

你好

我有一些代码可以获取块的插入点，以确保它在0,0,0处插入。在Autocad中列出块时，插入点为0,0,0（即使单位设置为8个小数点）。当我在vba中获得块的插入点时，它显示插入点（0）=-2.05182e-009。

为什么插入点的值与autocad中显示的值不同？

Dana W · 发表于 2022-7-6 23:02:32

检查块（编辑器），查看其中是否包含硬插入点。

BlackBox · 发表于 2022-7-6 23:12:37

返回的坐标是UCS还是WCS？

sdubbs · 发表于 2022-7-6 23:14:12

UCS设置为“世界”，块的插入点为0,0,0。

Dana W · 发表于 2022-7-6 23:19:33

这是纸面空间中的标题栏/边界吗？如果是这样，偏移可能与打印偏移有关。有人把这个从0,0中去掉了吗？

BlackBox · 发表于 2022-7-6 23:28:39

请张贴您的密码，并封锁。

sdubbs · 发表于 2022-7-6 23:34:03

我已连接了该块。当我检查块的扩展数据时，我可以看到不正确的插入点（10-2.05182e-009 0.0 0.0）。当我列出块时，插入点是0,0,0。

以下是检查块以确保其在0,0,0处插入的代码：

copy

 
Private Sub checkTitleBlockInsertionPoint()
   Dim temp1 As AcadBlockReference
   If strDrawingType = "iso" Then
       grpCode(0) = 2
       dataVal(0) = strIsoBorderBlockName
   Else
       grpCode(0) = 2
       dataVal(0) = strGABorderBlockName
   End If
   'Problem found with iso border insertion point not reading properly.
   'Temporarily remove the check for insertion point.
   If strDrawingType <> "iso" Then
       Set ssetobj = AddSelectionSet("SS01")
       mode = acSelectionSetAll
       ssetobj.Select mode, , , grpCode, dataVal
       Set temp1 = ssetobj.Item(i)
       i = 0
       For i = 0 To 2
           If temp1.InsertionPoint(i) <> 0 Then
               errorType (2)
               Exit For
           End If
           i = i + 1
       Next
   End If
End Sub