关于面域还是没弄明白(请看代码)

sharksun

Sub RegionSplineAndLine()

' 创建样条曲线
Dim splineObj(0 To 0) As AcadSpline
Dim noOfPoints As Integer
Dim startTan(0 To 2) As Double
Dim endTan(0 To 2) As Double
Dim fitPoints(0 To 8) As Double

noOfPoints = 3
startTan(0) = 1: startTan(1) = 1: startTan(2) = 0
endTan(0) = 2: endTan(1) = 2: endTan(2) = 0
fitPoints(0) = 1: fitPoints(1) = 1: fitPoints(2) = 0
fitPoints(3) = 5: fitPoints(4) = 5: fitPoints(5) = 0
fitPoints(6) = 10: fitPoints(7) = 3: fitPoints(8) = 0

Set splineObj(0) = ThisDrawing.ModelSpace.AddSpline _
(fitPoints, startTan, endTan)



'创建3条直线
Dim lineObj(0 To 2) As AcadLine

Dim L1start(0 To 2) As Double
Dim L1end(0 To 2) As Double
Dim L2start(0 To 2) As Double
Dim L2end(0 To 2) As Double
Dim L3start(0 To 2) As Double
Dim L3end(0 To 2) As Double


L1start(0) = 2: L1start(1) = 1: L1start(2) = 0
L1end(0) = 8: L1end(1) = 1: L1end(2) = 0

L2start(0) = 3: L2start(1) = -1: L2start(2) = 0
L2end(0) = 3: L2end(1) = 12: L2end(2) = 0 L3start(0) = 6: L3start(1) = 0: L3start(2) = 0
L3end(0) = 6: L3end(1) = 9: L3end(2) = 0


Set lineObj(0) = ThisDrawing.ModelSpace.AddLine(L1start, L1end)
Set lineObj(1) = ThisDrawing.ModelSpace.AddLine(L2start, L2end)
Set lineObj(2) = ThisDrawing.ModelSpace.AddLine(L3start, L3end)


ThisDrawing.SendCommand "_boundary 4,2 "
我想直接生成面域,结果把boundary对话框调出来了,还得手动选择内部点.不知道上句代码应该怎么改才可以. 还有,boundary对话框,里有对象类型(面域和多段线),如何通过代码把默认值设为面域呢? 多谢指教

End Sub

雪山飞狐_lzh

是－boundary不是_boundary

sharksun

不行啊, 还是要你指定内部点啊.


你运行一下代码看看?

雪山飞狐_lzh

ThisDrawing.SendCommand "-boundary" & vbCr & "4,2" & vbCr & vbCr & "y" & vbCr
你 试试 做SendCommand的时候一定要自己用命令试一次，靠猜是没用的 另外，回车用 vbCr 代替，不用空格，虽然有时可以