x1pt11y1pt120注意不要忘记给数组的最后一个变量赋值pt20x2pt21y2pt220SetAddli
eXYThisDrawi
gModelSpaceAddLi
ept1pt2E
dFu
ctio
根据起点和相对起点的直角坐标创建直线PublicFu
ctio
AddLi
eReXYByValptStAsVaria
tByValxAsDoubleByValyAsDoubleAsAcadLi
eDimptE
2AsDoubleptE
0ptSt0xptE
1ptSt1yptE
20SetAddLi
eReXYThisDrawi
gModelSpaceAddLi
eptStptE
E
dFu
ctio
根据起点和相对极坐标创建直线PublicFu
ctio
AddLi
eReALByValptStAsVaria
tByVala
gleAsDoubleByValdistAsDoubleAsAcadLi
eDimptE
2AsDoubleptE
0ptSt0distCosa
gleptE
1ptSt1distSi
a
gleptE
2ptSt2SetAddLi
eReALThisDrawi
gModelSpaceAddLi
eptStptE
E
dFu
ctio
上面的些函数可以为我们作为我们以后书写代码的基础
第五集AutoCADVBA创建多段线
再将创建多段线之前，我们先看一下多段线和轻量多段线的区别，如
果你是创建二维图形，那么在用VBA创建时，只有坐标的参数有区
f别，轻量多段线只有x、y两个坐标值，而多段线则有x、y、x三个坐标值。下面我们先看一下如何通过代码来创建多段线和轻量多段线。创建多段线PublicSubPolyLi
eDemo
DimptArr8AsDoubleptArr0100ptArr1100ptArr20ptArr3200ptArr4200ptArr50ptArr6100ptArr7200ptArr80IfUBou
dptArr1Mod30The
MsgBox