AUTOCAD vba 面域拉伸画3D实体 报错高手进

xueliang123

Public Sub Myl()
Dim MyLineObject(0) As AcadLWPolyline
Dim firstsolid As Acad3DSolid
Dim myarea As Variant

Dim BasePoints(11) As Double

BasePoints(0) = 0#
BasePoints(1) = 0#

BasePoints(2) = 55#
BasePoints(3) = -25#

BasePoints(4) = 145#
BasePoints(5) = -25#


BasePoints(6) = 200#
BasePoints(7) = 0#

BasePoints(8) = 145#
BasePoints(9) = 25#


BasePoints(10) = 55#
BasePoints(11) = 25#

Set MyLineObject(0) = ThisDrawing.ModelSpace.AddLightWeightPolyline(BasePoints)
MyLineObject(0).Closed = True
Dim H As Double
Dim t As Double
H = 30
t = 0
Set myarea = ThisDrawing.ModelSpace.AddRegion(MyLineObject)
Set firstsolid = ThisDrawing.ModelSpace.AddExtrudedSolid(myarea, H, t)

End Sub

xueliang123

C:\Users\stx\Desktop\Untitled.jpg

xueliang123

补发图，一个是报错图 一个是面域图，还不能画出3d实体

zzyong00

1. Option Explicit
   
2. 
   
3. 
   
4. Public Sub Myl()
   
5. Dim MyLineObject(0) As AcadEntity
   
6. Dim firstsolid As Acad3DSolid
   
7. Dim myarea As Variant
   
8. 
   
9. Dim BasePoints(11) As Double
   
10. 
    
11. BasePoints(0) = 0#
    
12. BasePoints(1) = 0#
    
13. 
    
14. BasePoints(2) = 55#
    
15. BasePoints(3) = -25#
    
16. 
    
17. BasePoints(4) = 145#
    
18. BasePoints(5) = -25#
    
19. 
    
20. 
    
21. BasePoints(6) = 200#
    
22. BasePoints(7) = 0#
    
23. 
    
24. BasePoints(8) = 145#
    
25. BasePoints(9) = 25#
    
26. 
    
27. 
    
28. BasePoints(10) = 55#
    
29. BasePoints(11) = 25#
    
30. 
    
31. Set MyLineObject(0) = ThisDrawing.ModelSpace.AddLightWeightPolyline(BasePoints)
    
32. MyLineObject(0).Closed = True
    
33. Dim H As Double
    
34. Dim t As Double
    
35. H = 30
    
36. t = 0
    
37. myarea = ThisDrawing.ModelSpace.AddRegion(MyLineObject)
    
38. Set firstsolid = ThisDrawing.ModelSpace.AddExtrudedSolid(myarea(0), H, t)
    
39. 
    
40. End Sub
    

Option Explicit<br /> <br /> <br /> Public Sub Myl()<br /> Dim MyLineObject(0) As AcadEntity<br /> Dim firstsolid As Acad3DSolid<br /> Dim myarea As Variant<br /> <br /> Dim BasePoints(11) As Double<br /> <br /> BasePoints(0) = 0#<br /> BasePoints(1) = 0#<br /> <br /> BasePoints(2) = 55#<br /> BasePoints(3) = -25#<br /> <br /> BasePoints(4) = 145#<br /> BasePoints(5) = -25#<br /> <br /> <br /> BasePoints(6) = 200#<br /> BasePoints(7) = 0#<br /> <br /> BasePoints(8) = 145#<br /> BasePoints(9) = 25#<br /> <br /> <br /> BasePoints(10) = 55#<br /> BasePoints(11) = 25#<br /> <br /> Set MyLineObject(0) = ThisDrawing.ModelSpace.AddLightWeightPolyline(BasePoints)<br /> MyLineObject(0).Closed = True<br /> Dim H As Double<br /> Dim t As Double<br /> H = 30<br /> t = 0<br /> myarea = ThisDrawing.ModelSpace.AddRegion(MyLineObject)<br /> Set firstsolid = ThisDrawing.ModelSpace.AddExtrudedSolid(myarea(0), H, t)<br /> <br /> End Sub<br />

xueliang123

zzyong00 发表于 2015-1-6 00:20

谢谢高手的指点迷津，我主要还不是很能分得清数据类型，另外我比较困惑什么时候用SET 什么时候不用

xueliang123

xueliang123 发表于 2015-1-7 08:42
谢谢高手的指点迷津，我主要还不是很能分得清数据类型，另外我比较困惑什么时候用SET 什么时候不用

弱弱的问一下zzyong00 ，你回复我的时候存放程序的界面是什么软件啊 挺方便的

zzyong00

就是这个打字的地方，上面第六个按钮
这问题。。。