xueliang123 发表于 2015-1-4 15:49:23

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

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 发表于 2015-1-4 15:55:04

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

xueliang123 发表于 2015-1-4 15:57:36

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

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

Option Explicit


Public Sub Myl()
Dim MyLineObject(0) As AcadEntity
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
myarea = ThisDrawing.ModelSpace.AddRegion(MyLineObject)
Set firstsolid = ThisDrawing.ModelSpace.AddExtrudedSolid(myarea(0), H, t)

End Sub

xueliang123 发表于 2015-1-7 08:42:11

zzyong00 发表于 2015-1-6 00:20 static/image/common/back.gif


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

xueliang123 发表于 2015-1-7 16:11:52

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

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

zzyong00 发表于 2015-1-8 13:39:17

就是这个打字的地方，上面第六个按钮
这问题。。。
页: [1]
查看完整版本: AUTOCAD vba 面域拉伸画3D实体 报错高手进