有人Python开发Autocad吗？都是COM，好像很少讨论

landsat99

guangdonglbq 发表于 2022-4-20 14:30
vba是内部程序。如果有大量的操作，用com外部调用的话，最好是用软件生成lisp文件，然后加载、运行。

嗯嗯。多谢大咖解惑。

主要对lisp不熟，，翻了翻，感觉也不太想深入了解。这个lisp除了cad，也没别处使用了，语言特质还相当有个性，纯函数范式。结构组织上好像也没有包，空间，对象，模板这些重用结构 ，数据结构也仅表list一个结构好像，数组，字典 集合 自定义struc通通没有，，赶脚比较猛犸，不想弄了。做dwg文件的图形数据库api也许不错，独立语言的话，分析 计算和代码维护 这个恐怕限制会很大。。。。

目前用lisp调用.py文件，lisp不做任何计算 编辑功能。或py直接平行调用cad。

lisp直接调用py，感觉和cad内部命令一样，功能，界面完全按py的方式来，使用灵活，修改也方便，与其他软件的交互更不用说 那是py的特长。

目前唯一瑕疵是，command shell 调用.py后，shell的运行黑窗在一边放着，比较碍眼。

那就py平行运行吧，完美调用，还不用加载啥的，挺好。

cmcc_gy

对，我觉得问题就出在转换类型这里，在之前的工作中我尝试过如下的类型转化

1.   def ConvertArrays2Variant(self, inputdata, vartype="Variant"):
   
2.         import pythoncom
   
3.         if vartype == "ArrayofObjects":  # 对象数组
   
4.             outputdata = win32com.client.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_DISPATCH, inputdata)
   
5.         if vartype == "Double":  # 双精度
   
6.             outputdata = win32com.client.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_R8, inputdata)
   
7.         if vartype == "ShortInteger":  # 短整型
   
8.             outputdata = win32com.client.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_I2, inputdata)
   
9.         if vartype == "LongInteger":  # 长整型
   
10.             outputdata = win32com.client.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_I4, inputdata)
    
11.         if vartype == "Variant":  # 变体
    
12.             outputdata = win32com.client.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_VARIANT, inputdata)
    
13.         return outputdata

复制代码

但是对于这个AddExtrudedSolidAlongPath(Profile, Path)我始终无法搞懂应该如何转化，


object
Type: Block, ModelSpace, PaperSpace
The objects this method applies to.

Profile
Access: Input-only
Type: Region
A profile can only be a Region object.

Path
Access: Input-only
Type: Arc, Circle, Ellipse, Polyline, Spline
The path can only be a Polyline, Circle, Ellipse, Spline, or Arc object.

在chm文件中的说明是传入具体的对象，但是我应该怎么转换呢？

landsat99

cmcc_gy 发表于 2022-4-20 17:47
对，我觉得问题就出在转换类型这里，在之前的工作中我尝试过如下的类型转化

但是对于这个AddExtrudedSol ...

这个def方法，本身是没问题的。另外前面是否有 import win32com ，，没有的话这句加上。

再则 就是profile，path 对象的生成结构，确定正确吗？它的3D面、路径都是3d ponit嵌套构成的，一般只转换ponit即可。
下面的 VBA供参考，把点的格式转换一下即可了，，前面再加个app、document、model的定义。

你试试看再。。

1. Sub Example_AddExtrudedSolidAlongPath()
   
2.     ' This example extrudes a solid from a region
   
3.     ' along a path defined by a spline.
   
4.     ' The region is created from an arc and a line.
   
5.    
   
6.     Dim curves(0 To 1) As AcadEntity
   
7. 
   
8.     ' Define the arc
   
9.     Dim centerPoint(0 To 2) As Double
   
10.     Dim radius As Double
    
11.     Dim startAngle As Double
    
12.     Dim endAngle As Double
    
13.     centerPoint(0) = 5#: centerPoint(1) = 3#: centerPoint(2) = 0#
    
14.     radius = 2#
    
15.     startAngle = 0
    
16.     endAngle = 3.141592
    
17.     Set curves(0) = ThisDrawing.ModelSpace.AddArc(centerPoint, radius, startAngle, endAngle)
    
18.    
    
19.     ' Define the line
    
20.     Set curves(1) = ThisDrawing.ModelSpace.AddLine(curves(0).startPoint, curves(0).endPoint)
    
21.         
    
22.     ' Create the region
    
23.     Dim regionObj As Variant
    
24.     regionObj = ThisDrawing.ModelSpace.AddRegion(curves)
    
25.    
    
26.     ' Define the extrusion path (spline object)
    
27.     Dim splineObj As AcadSpline
    
28.     Dim startTan(0 To 2) As Double
    
29.     Dim endTan(0 To 2) As Double
    
30.     Dim fitPoints(0 To 8) As Double
    
31.    
    
32.     ' Define the Spline Object
    
33.     startTan(0) = 10: startTan(1) = 10: startTan(2) = 10
    
34.     endTan(0) = 10: endTan(1) = 10: endTan(2) = 10
    
35.     fitPoints(0) = 0: fitPoints(1) = 10: fitPoints(2) = 10
    
36.     fitPoints(0) = 10: fitPoints(1) = 10: fitPoints(2) = 10
    
37.     fitPoints(0) = 15: fitPoints(1) = 10: fitPoints(2) = 10
    
38.     Set splineObj = ThisDrawing.ModelSpace.AddSpline(fitPoints, startTan, endTan)
    
39.    
    
40.     ' Create the solid
    
41.     Dim solidObj As Acad3DSolid
    
42.     Set solidObj = ThisDrawing.ModelSpace.AddExtrudedSolidAlongPath(regionObj(0), splineObj)
    
43.     ZoomAll
    
44.    
    
45. End Sub
    

Sub Example_AddExtrudedSolidAlongPath()<br />     ' This example extrudes a solid from a region<br />     ' along a path defined by a spline.<br />     ' The region is created from an arc and a line.<br />     <br />     Dim curves(0 To 1) As AcadEntity<br /> <br />     ' Define the arc<br />     Dim centerPoint(0 To 2) As Double<br />     Dim radius As Double<br />     Dim startAngle As Double<br />     Dim endAngle As Double<br />     centerPoint(0) = 5#: centerPoint(1) = 3#: centerPoint(2) = 0#<br />     radius = 2#<br />     startAngle = 0<br />     endAngle = 3.141592<br />     Set curves(0) = ThisDrawing.ModelSpace.AddArc(centerPoint, radius, startAngle, endAngle)<br />     <br />     ' Define the line<br />     Set curves(1) = ThisDrawing.ModelSpace.AddLine(curves(0).startPoint, curves(0).endPoint)<br />         <br />     ' Create the region<br />     Dim regionObj As Variant<br />     regionObj = ThisDrawing.ModelSpace.AddRegion(curves)<br />     <br />     ' Define the extrusion path (spline object)<br />     Dim splineObj As AcadSpline<br />     Dim startTan(0 To 2) As Double<br />     Dim endTan(0 To 2) As Double<br />     Dim fitPoints(0 To 8) As Double<br />     <br />     ' Define the Spline Object<br />     startTan(0) = 10: startTan(1) = 10: startTan(2) = 10<br />     endTan(0) = 10: endTan(1) = 10: endTan(2) = 10<br />     fitPoints(0) = 0: fitPoints(1) = 10: fitPoints(2) = 10<br />     fitPoints(0) = 10: fitPoints(1) = 10: fitPoints(2) = 10<br />     fitPoints(0) = 15: fitPoints(1) = 10: fitPoints(2) = 10<br />     Set splineObj = ThisDrawing.ModelSpace.AddSpline(fitPoints, startTan, endTan)<br />     <br />     ' Create the solid<br />     Dim solidObj As Acad3DSolid<br />     Set solidObj = ThisDrawing.ModelSpace.AddExtrudedSolidAlongPath(regionObj(0), splineObj)<br />     ZoomAll<br />     <br /> End Sub<br />

landsat99

cmcc_gy 发表于 2022-4-20 17:47
对，我觉得问题就出在转换类型这里，在之前的工作中我尝试过如下的类型转化

但是对于这个AddExtrudedSol ...

另外，感觉这个def 搞复杂了。（不知道是否是对象的一个通用方法）否则没必要。

如果我写的话，<3D Point> 偷懒就下面这个：

1. def Pnt(x,y,z=0):
   
2.     return win32com.client.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_R8,(x,y,z))
   

def Pnt(x,y,z=0):<br />     return win32com.client.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_R8,(x,y,z))<br />

cmcc_gy

landsat99 发表于 2022-4-20 18:18
这个def方法，本身是没问题的。另外前面是否有 import win32com ，，没有的话这句加上。

再则 就是pro ...

1. 
   
2. import win32com.client
   
3. ProgramID = "Autocad.Application"  # 程序ID
   
4. cadapp = win32com.client.Dispatch(ProgramID)  # 获取CAD程序
   
5. cadapp.Visible = True  # 程序可见
   
6. doc = cadapp.ActiveDocument  # 当前文档
   
7. print(doc.Name)  # 当前文档的名称
   
8. doc.Utility.Prompt("Hello! Autocad from pywin32com.")
   
9. msp = doc.ModelSpace  # 模型空间
   
10. 
    
11. def ConvertArrays2Variant(inputdata, vartype="Variant"):
    
12.     import pythoncom
    
13.     if vartype == "ArrayofObjects":  # 对象数组
    
14.         outputdata = win32com.client.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_DISPATCH, inputdata)
    
15.     if vartype == "Double":  # 双精度
    
16.         outputdata = win32com.client.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_R8, inputdata)
    
17.     if vartype == "ShortInteger":  # 短整型
    
18.         outputdata = win32com.client.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_I2, inputdata)
    
19.     if vartype == "LongInteger":  # 长整型
    
20.         outputdata = win32com.client.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_I4, inputdata)
    
21.     if vartype == "Variant":  # 变体
    
22.         outputdata = win32com.client.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_VARIANT, inputdata)
    
23.     return outputdata
    
24. a = (0,0,0)
    
25. Center = ConvertArrays2Variant(a,'Double')
    
26. Radius = 10
    
27. obj = msp.AddCircle(Center, Radius)
    
28. list_obj = []
    
29. list_obj.append(obj)
    
30. reval_region2 = msp.AddRegion(ConvertArrays2Variant(list_obj,"ArrayofObjects"))
    
31. PointsArray = ConvertArrays2Variant((0,10,10,10,10,10,15,10,10),'Double')
    
32. StartTangent = ConvertArrays2Variant((10,10,10),'Double')
    
33. EndTangent  =ConvertArrays2Variant((10,10,10),'Double')
    
34. RetVal_1 = msp.AddSpline(PointsArray, StartTangent, EndTangent)
    
35. 
    
36. RetVal = msp.AddExtrudedSolidAlongPath(reval_region2,RetVal_1)
    

复制代码

不知道为什么他依然出现了同样的错误：
PyDev console: starting.
Python 3.9.8 (tags/v3.9.8:bb3fdcf, Nov  5 2021, 20:48:33) [MSC v.1929 64 bit (AMD64)] on win32
runfile('C:/pycharm_project/pythonProject666/autocad/pywin32/demo555.py', wdir='C:/pycharm_project/pythonProject666/autocad/pywin32')
test.dwg
Traceback (most recent call last):
  File "C:\Python3.9.8\lib\code.py", line 90, in runcode
    exec(code, self.locals)
  File "<input>", line 1, in <module>
  File "C:\Program Files\JetBrains\PyCharm 2021.3.2\plugins\python\helpers\pydev\_pydev_bundle\pydev_umd.py", line 198, in runfile
    pydev_imports.execfile(filename, global_vars, local_vars)  # execute the script
  File "C:\Program Files\JetBrains\PyCharm 2021.3.2\plugins\python\helpers\pydev\_pydev_imps\_pydev_execfile.py", line 18, in execfile
    exec(compile(contents+"\n", file, 'exec'), glob, loc)
  File "C:/pycharm_project/pythonProject666/autocad/pywin32/demo555.py", line 36, in <module>
    RetVal = msp.AddExtrudedSolidAlongPath(reval_region2,RetVal_1)
  File "<COMObject <unknown>>", line 2, in AddExtrudedSolidAlongPath
TypeError: The Python instance can not be converted to a COM object

guangdonglbq

landsat99 发表于 2022-4-20 16:38
嗯嗯。多谢大咖解惑。

主要对lisp不熟，，翻了翻，感觉也不太想深入了解。这个lisp除了cad，也没别处 ...

用程序写lisp文件,预先定义一个生成对象的库函数lisp文件，这样只需要生成数据接口函数就可以。
实际与lisp相关的东西并不多。

landsat99

cmcc_gy 发表于 2022-4-20 19:34
不知道为什么他依然出现了同样的错误：
PyDev console: starting.
Python 3.9.8 (tags/v3.9.8:bb3f ...

改了一下，用的AddExtrudedSolid，可以生成。

1. import win32com.client
   
2. import pythoncom
   
3. 
   
4. ProgramID = "Autocad.Application"  # 程序ID
   
5. cadapp = win32com.client.Dispatch(ProgramID)  # 获取CAD程序
   
6. cadapp.Visible = True  # 程序可见
   
7. doc = cadapp.ActiveDocument  # 当前文档
   
8. print(doc.Name)  # 当前文档的名称
   
9. doc.Utility.Prompt("Hello! Autocad from pywin32com.")
   
10. msp = doc.ModelSpace  # 模型空间
    
11. 
    
12. def ConvertArrays2Variant(inputdata, vartype="Variant"):
    
13.     if vartype == "ArrayofObjects":  # 对象数组
    
14.         outputdata = win32com.client.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_DISPATCH, inputdata)
    
15.     if vartype == "Double":  # 双精度
    
16.         outputdata = win32com.client.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_R8, inputdata)
    
17.     if vartype == "ShortInteger":  # 短整型
    
18.         outputdata = win32com.client.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_I2, inputdata)
    
19.     if vartype == "LongInteger":  # 长整型
    
20.         outputdata = win32com.client.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_I4, inputdata)
    
21.     if vartype == "Variant":  # 变体
    
22.         outputdata = win32com.client.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_VARIANT, inputdata)
    
23.     return outputdata
    
24. 
    
25. a = (0, 0, 0)
    
26. Center = ConvertArrays2Variant(a, 'Double')
    
27. Radius = 10
    
28. obj = msp.AddCircle(Center, Radius)
    
29. list_obj = []
    
30. list_obj.append(obj)
    
31. reval_region = msp.AddRegion(ConvertArrays2Variant(list_obj, "ArrayofObjects"))
    
32. 
    
33. # PointsArray = ConvertArrays2Variant((0,10,10,10,10,10,10,10,10), 'Double')
    
34. # StartTangent = ConvertArrays2Variant((10,10,10), 'Double')
    
35. # EndTangent  =ConvertArrays2Variant((10,10,10), 'Double')
    
36. # RetVal_1 = msp.AddSpline(PointsArray, StartTangent, EndTangent)
    
37. # RetVal = msp.AddExtrudedSolidAlongPath(reval_region[0], RetVal_1)
    
38. 
    
39. height = 18
    
40. taperAngle = 0.1
    
41. RetVal = msp.AddExtrudedSolid(reval_region[0], height, taperAngle)
    

import win32com.client<br /> import pythoncom<br /> <br /> ProgramID = "Autocad.Application"  # 程序ID<br /> cadapp = win32com.client.Dispatch(ProgramID)  # 获取CAD程序<br /> cadapp.Visible = True  # 程序可见<br /> doc = cadapp.ActiveDocument  # 当前文档<br /> print(doc.Name)  # 当前文档的名称<br /> doc.Utility.Prompt("Hello! Autocad from pywin32com.")<br /> msp = doc.ModelSpace  # 模型空间<br /> <br /> def ConvertArrays2Variant(inputdata, vartype="Variant"):<br />     if vartype == "ArrayofObjects":  # 对象数组<br />         outputdata = win32com.client.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_DISPATCH, inputdata)<br />     if vartype == "Double":  # 双精度<br />         outputdata = win32com.client.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_R8, inputdata)<br />     if vartype == "ShortInteger":  # 短整型<br />         outputdata = win32com.client.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_I2, inputdata)<br />     if vartype == "LongInteger":  # 长整型<br />         outputdata = win32com.client.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_I4, inputdata)<br />     if vartype == "Variant":  # 变体<br />         outputdata = win32com.client.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_VARIANT, inputdata)<br />     return outputdata<br /> <br /> a = (0, 0, 0)<br /> Center = ConvertArrays2Variant(a, 'Double')<br /> Radius = 10<br /> obj = msp.AddCircle(Center, Radius)<br /> list_obj = []<br /> list_obj.append(obj)<br /> reval_region = msp.AddRegion(ConvertArrays2Variant(list_obj, "ArrayofObjects"))<br /> <br /> # PointsArray = ConvertArrays2Variant((0,10,10,10,10,10,10,10,10), 'Double')<br /> # StartTangent = ConvertArrays2Variant((10,10,10), 'Double')<br /> # EndTangent  =ConvertArrays2Variant((10,10,10), 'Double')<br /> # RetVal_1 = msp.AddSpline(PointsArray, StartTangent, EndTangent)<br /> # RetVal = msp.AddExtrudedSolidAlongPath(reval_region[0], RetVal_1)<br /> <br /> height = 18<br /> taperAngle = 0.1<br /> RetVal = msp.AddExtrudedSolid(reval_region[0], height, taperAngle)<br />

如果使用 AddExtrudedSolidAlongPath，在vba下好像有Bug。。  因为用Acad官方的AddExtrudedSolidAlongPath 的VBA源码（2020版源码-2020acad）都无法运行！

AddExtrudedSolid 则没有问题。 vba、python都可以运行。

landsat99

guangdonglbq 发表于 2022-4-20 19:38
用程序写lisp文件,预先定义一个生成对象的库函数lisp文件，这样只需要生成数据接口函数就可以。
实际与l ...

大咖您好。

您提到的“程序写lisp”具体是指？？ 是要自己写转换程序吗，还是有现成的工具？这个方案很感兴趣，但完全不了解，您有相关的资料文章可参考推荐吗？

guangdonglbq

landsat99 发表于 2022-4-20 22:23
大咖您好。

您提到的“程序写lisp”具体是指？？ 是要自己写转换程序吗，还是有现成的工具？这个方案 ...

参考这个http://bbs.mjtd.com/thread-181753-1-1.html

landsat99

guangdonglbq 发表于 2022-4-20 23:48
参考这个http://bbs.mjtd.com/thread-181753-1-1.html

阅读了您的文章。多谢大咖指导   

可否这样 理解您的方案？
用 Lisp封装底层API确保效率；；外部进程Com口调用封装API。

嗯嗯。。各取所长的高效方案  就是说，大量耗时的操作用Lisp/Arx封装，外部任何程序用com调用自定义的api即可；；保证了效率也保持了通用性