社区 › VB › 从分解块挤出区域

Jeff_M 发表于 2007-8-29 14:01:39

侧轨…
1）；您可以挤出闭合多段线，无需区域；如果已经有块，只需更改X或Z比例
伪代码
从文件中收集轮廓数据，绘制pline轮廓，将轮廓挤出一个单元（X代表梁或Z代表COL）。
添加智能（属性、扩展数据等）
生成块，将X或Z修改为所需长度并旋转
X或Z值可通过EATTEXT与块名、位置、层等一起提取。

Jeff_M 发表于 2007-8-29 14:16:19

Cadaver，如何挤出闭合多段线&nbsp；从帮助文件中，它显示仅区域

Jeff_M 发表于 2007-8-29 15:56:18

这里是#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个实体的并集

Jeff_M 发表于 2007-8-29 16:01:50

我必须试一试&nbsp；谢谢杰夫

Jeff_M 发表于 2007-8-29 16:08:26

那太棒了&nbsp；我离得太近了，我只是错过了一些东西&nbsp；再次感谢杰夫

查看完整版本: 从分解块挤出区域