用多段线分解块
你好当我在VBA中使用以下代码时，我可以放置一个块，它会按预期爆炸。
p1 = ThisDrawing.Utility.GetPoint(, NL & "Geef invoerpunt: ")
Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(p1, PicPath & symbool & ".dwg", 1#, 1#, 1#, 0)
'explodeer het geplaatste symbool zodat elk onderdeel te muteren is.
'de opdracht "blockRefObj.Explode" blijkt niet te werken. Opgelost met onderstaande regel
ThisDrawing.SendCommand ("explode" & vbCr & "(handent " & Chr(34) & blockRefObj.Handle & Chr(34) & ")" & vbCr & vbCr)
但是，当我使用以下代码放置和拉伸同一块时，块中的所有多段线都变为直线：
p1 = ThisDrawing.Utility.GetPoint(, NL & "Geef 1e invoerpunt: ")
p2 = ThisDrawing.Utility.GetPoint(, NL & "Geef 2e invoerpunt: ")
'horizontale kabel, dus delta-X wordt de lengte
lengte = (p2(0) - p1(0)) / 10
Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(p1, PicPath & symbool & ".dwg", lengte, 1#, 1#, 0)
ThisDrawing.SendCommand ("explode" & vbCr & "(handent " & Chr(34) & blockRefObj.Handle & Chr(34) & ")" & vbCr & vbCr)
我做错什么了吗？ 当我查看INSERT-BLOCK时，当我选中“分解”时，我无法为比例x、y和z输入不同的值。
因为我的符号是一个非常简单的符号（只有一些直线和多段线）。我写了一段代码来生成图形中的这些线。线条是我想要的；绘制的多段线宽度正确。到目前为止，一切顺利。
唯一的问题是我没有得到折线的正确颜色。我用代码放置多段线：
如何将颜色更改为红色？
页:
[1]