AutoCAD多段线坐标取整时关于坐标系的问题

箭头_Row

先上代码：

代码逻辑如下：
STEP01：定义函数，在图中选择多段线（仅限模型空间操作，因为目前本人还不会判断选择正在操作的空间)

STEP02：获取多段线属性列表，顶点坐标列表，使用round函数取整。
STEP03：获取凸度列表，删除多段线。

STEP04：绘制多段线，添加凸度，赋值属性。

BUG：如果UCS坐标是旋转过的UCS，无法智能以自定义的UCS去取用户坐标点取整数，会依然以WCS世界坐标系中的坐标值取整。如何解决这个BUG，有么有大佬提供点思路，提供一些关于UCS用户坐标系相关的资料研究研究。

1. # env Python = 3.11.1  pywin32 = 305
   
2. # -*- coding: utf-8 -*-
   
3. 
   
4. """
   
5.     =============================
   
6.     Author: Meditation/箭头
   
7.     Email: 1191101855@qq.com
   
8.     Last Update: 2023.02.14 20:22
   
9.     =============================
   
10. """
    
11. import win32com.client as win32
    
12. import pythoncom
    
13. 
    
14.     # AutoCAD 2022的ProgramID
    
15. ProgramID = "AutoCAD.Application.24.1"
    
16.     # 获取CAD程序      
    
17. Acadapp = win32.Dispatch(ProgramID)
    
18.     # 指定当前活动文档
    
19. doc = Acadapp.ActiveDocument
    
20. AcadA = doc.Application
    
21. msp = doc.ModelSpace
    
22. print(doc.Path, '\\', doc.Name, sep='')
    
23. 
    
24. # 数据转换
    
25. def vtpnt(x, y, z=0):
    
26.     """坐标点转化为浮点数"""
    
27.     return win32.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_R8, (x, y, z))
    
28. 
    
29. def vtobj(obj):
    
30.     """转化为对象数组"""
    
31.     return win32.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_DISPATCH, obj)
    
32. 
    
33. def vtlstf(lst):
    
34.     """列表转化为浮点数"""
    
35.     return win32.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_R8, lst)
    
36.    
    
37. def vtlsti(lst):
    
38.     """列表转化为整数"""
    
39.     return win32.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_I2, lst)
    
40. 
    
41. def vtlstvariant(lst):
    
42.     """列表转化为变体"""
    
43.     return win32.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_VARIANT, lst)
    
44. 
    
45. def My_Select():
    
46.     # 新建选择集
    
47.     try:
    
48.         doc.SelectionSets.Item("SS1").Delete()
    
49.     except:
    
50.         print("Delete selection failed")
    
51.         
    
52.     slt = doc.SelectionSets.Add("SS1")
    
53. 
    
54.     slt.SelectOnScreen()
    
55. 
    
56.     return slt
    
57. 
    
58. def Polyline_XY_Zero():
    
59. 
    
60.     """注意如果坐标系与当前坐标系不一致，可能导致数据error"""
    
61.     slt = My_Select()
    
62. 
    
63.     count = 0
    
64.     for Entity in slt:
    
65.         Coor = []
    
66.         if Entity.objectname == 'AcDbPolyline':
    
67.             Entity_Properties = [Entity.Layer, Entity.Color, Entity.Linetype ,Entity.LinetypeScale ,Entity.Lineweight]
    
68.             Entity_closed = Entity.closed
    
69.             Entity_Coor = Entity.Coordinates
    
70.             # print(Entity_Coor)
    
71. 
    
72.             # 获取多线段的顶点数
    
73.             Entity_count = int(len(Entity_Coor)/2)
    
74. 
    
75.             # 获取凸度列表
    
76.             Entity_Bulge = []
    
77.             for i in range(Entity_count):
    
78.                 RetVal = Entity.GetBulge(i)
    
79.                 Entity_Bulge.append(RetVal)
    
80.             # print(Entity_Bulge)
    
81. 
    
82.             # 坐标值精度归0
    
83.             for xy in Entity_Coor:
    
84.                 Entity_Coor_round = round(xy,0)
    
85.                 Coor.append(Entity_Coor_round)
    
86. 
    
87.             Entity.Erase()
    
88. 
    
89.             new_Coor = vtlstf(Coor)
    
90.             Entity = doc.ModelSpace.AddLightWeightPolyline(new_Coor)
    
91. 
    
92.             # 添加凸度
    
93.             for i in range(len(Entity_Bulge)):
    
94.                 Entity.SetBulge(i, Entity_Bulge[i])
    
95. 
    
96.             [Entity.Layer, Entity.Color, Entity.Linetype ,Entity.LinetypeScale ,Entity.Lineweight] = Entity_Properties
    
97.             Entity.closed = Entity_closed
    
98. 
    
99.             Coor = []
    
100.             count += 1
     
101.     print(f'多段线Z轴归零: {count} 条！')
     
102.     doc.Utility.Prompt(f'多段线Z轴归零: {count} 条！')
     
103. 
     
104. if __name__ == "__main__":
     
105.     a = Polyline_XY_Zero.__name__
     
106.     b = Polyline_XY_Zero.__doc__
     
107.     c = Polyline_XY_Zero.__init__
     
108.     print(a, b, c,sep='\n')
     
109.     Polyline_XY_Zero()
     

复制代码

箭头_Row

#  附上刚找到的判断提取当前操作空间的代码
可以整合進剛才的代碼中，修復STEP01只能在模型空間操作的小BUG

import win32com.client

#啟動AutoCAD應用程序
acad = win32com.client.Dispatch("AutoCAD.Application.24.1")

#獲取當前文檔
doc = acad.ActiveDocument

#獲取當前空間
space = doc.ActiveSpace

print(space)

#判斷當前空間是模型空間還是佈局空間
if space == 'acModelSpace':
    print("當前空間：模型空間")
else:
    print("當前空間：佈局空間")

#獲取當前空間名稱值
if space == 'acModelSpace':
    name = "Model"
else:
    layout = doc.ActiveLayout
    name = layout.Name
print("當前空間名稱：", name)

箭头_Row

剛找到了實現在活動的space畫圖的功能，先判斷當前是在模型還是佈局，然後再在相應space畫出圖元。
代碼如下：

import pythoncom
import win32com.client

# 創建AutoCAD程序的com對象
acad = win32com.client.Dispatch("AutoCAD.Application")

# 獲取文檔對象
doc = acad.ActiveDocument

# 獲取模型空間
ms = doc.ModelSpace

# 獲取佈局空間
layouts = doc.Layouts
layout = doc.ActiveLayout
ps = layout.Block

# 判斷當前空間
if doc.ActiveSpace == 0:  # 佈局空間
    # 在佈局空間中添加圓形
    center = win32com.client.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_R8, [5.0, 5.0, 0.0])
    radius = 2.5
    circle = ps.AddCircle(center, radius)
else:  # 模型空間
    # 在模型空間中添加圓形
    center = win32com.client.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_R8, [0.0, 0.0, 0.0])
    radius = 2.5
    circle = ms.AddCircle(center, radius)

# 調整視圖範圍
doc.Application.ZoomExtents()

chixun99

BUG：如果UCS坐标是旋转过的UCS，无法智能以自定义的UCS去取用户坐标点取整数，会依然以WCS世界坐标系中的坐标值取整。……

关于这个问题CADVBA提供的方法是否可解决呢？
TranslateCoordinates Method (ActiveX)
Translates a point from one coordinate system to another.

chixun99

TranslateCoordinates Method (ActiveX)
Translates a point from one coordinate system to another.
Supported platforms: Windows only
Signature
VBA:
RetVal = object.TranslateCoordinates(Point, FromCoordSystem, ToCoordSystem, Displacement, [OCSNormal])
object

    Type: Utility

    The object this method applies to.
Point
    Access: Input-only
    Type: Variant (three-element array of doubles)
    The 3D WCS coordinates specifying the original coordinates to be translated. This parameter can be treated as a point or a displacement vector depending on the value of Displacement.
FromCoordSystem
    Access: Input-only
    Type: AcCoordinateSystem enum
    The coordinate system from which the point originates.
        acWorld
        acUCS
        acOCS
        acDisplayDCS
        acPaperSpaceDCS

ToCoordSystem
    Access: Input-only
    Type: AcCoordinateSystem enum
    The coordinate system to which the point will be converted.
        acWorld
        acUCS
        acOCS
        acDisplayDCS
        acPaperSpaceDCS
Displacement
    Access: Input-only
    Type: Long
    A displacement vector flag.
        True: Point is treated as a displacement vector.
        False: Point is treated as a point.
OCSNormal
    Access: Input-only; optional
    Type: Variant (three-element array of doubles)
    The normal for the OCS.
Return Value (RetVal)
Type: Variant (three-element array of doubles)
The translated 3D coordinate.
Remarks
You cannot directly translate a coordinate from one OCS to another OCS. To do this, first translate the coordinate from one OCS to an intermediary coordinate system such as the WCS. Then translate that coordinate into the second OCS.
To translate a point on a Polyline or LWPolyline object from OCS to WCS:
    Get the X and Y coordinates of the OCS point from the Coordinate or Coordinates property.
    Get the Z coordinate of the OCS point from the Elevation property.
    Get the Normal for the polyline from the Normal property.
    Call TranslateCoordinates using the X, Y, Z coordinates and the Normal.

以上为桌子公司的帮助文件的说明。