用多段线分解块

puffeltje · 发表于 2022-7-6 22:52:38

你好

当我在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)

但是，当我使用以下代码放置和拉伸同一块时，块中的所有多段线都变为直线：

copy

 
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)

我做错什么了吗？

puffeltje · 发表于 2022-7-7 00:37:40

当我查看INSERT-BLOCK时，当我选中“分解”时，我无法为比例x、y和z输入不同的值。

因为我的符号是一个非常简单的符号（只有一些直线和多段线）。我写了一段代码来生成图形中的这些线。线条是我想要的；绘制的多段线宽度正确。到目前为止，一切顺利。
唯一的问题是我没有得到折线的正确颜色。我用代码放置多段线：
如何将颜色更改为红色？

[编程交流] 用多段线分解块

发表回复

精选推荐