这里是#039;这是单向的,Duh
- Private Function DrawDeadendPole(insptpole As Variant, PoleHt As Double) As Acad3DSolid
- ....all your code to create the solid
- objRegion(0).Delete
- ThisDrawing.Regen acActiveViewport
- Set DrawDeadendPole = obj3D
- End Sub
然后在调用子节点中:
- ...blah blah blah
- Call LayerSet("3D-STEL", 235)
- Dim LeftPole as Acad3dSolid
- Dim RightPole as Acad3dSolid
- Set LeftPole = DrawDeadendPole(leftLeg, PoleHt)
- Set RightPole = DrawDeadendPole(rightLeg, PoleHt)
- leftLeg(2) = leftLeg(2) + BmHt
- ....more blah....
这将为您提供3个实体的并集 |