创建多行

comcu · 发表于 2022-7-6 17:28:05

你好

有谁能告诉我一个使用vba绘制多行的好例子吗？

我查看了帮助文件，但似乎没有太多信息？

干杯

Col公司

rocheey · 发表于 2022-7-6 17:34:49

将点作为XYZ集进行种子设定，因此直线“主要”部分的点数将是一个由3个集组成的数组：主线上的点将为第一个点的索引0,1,2，第二个点的索引3,4,5，第三个点的索引6,7,8。等等等等。

对正是要偏移的边。acTop和acBottom是偏移“主线”的“边”：acZero基本上是从点中间的假想线偏移两条线。

MLineScale控制偏移量。

帮助中提供的示例代码帮助不大。
取样本代码，删除除索引中的点以外的所有点
0-8，并使其具有以下值：
0=0. 1=0. 2=0.
3=0. 4=-10. 5=0.
6=10. 7=-10. 8=0

这基本上会形成一个“L”形，不同于样本源提供的重叠垃圾。

然后使用对齐和多尺度属性；那么你应该掌握诀窍了。

fixo · 发表于 2022-7-6 17:42:35

嗨，上校
不确定你的意思，但是
希望这会有所帮助，只需在屏幕上选择点即可

copy


Public Sub DrawMLineDynamicaly()
' partially borrowed from Tony Tanzillo's 'Getpoint' function
Dim pickPt As Variant
Dim mlCoords() As Double
Dim i As Integer
Dim oMline As AcadMLine
i = 0
On Error Resume Next
pickPt = ThisDrawing.Utility.GetPoint(, vbCr & "First point: ")
If Err = 0 Then
   ReDim mlCoords(2)
   mlCoords(i) = pickPt(0): mlCoords(i + 1) = pickPt(1): mlCoords(i + 2) = 0#
   Do Until Err.Number <> 0
       i = i + 3
       pickPt = ThisDrawing.Utility.GetPoint(pickPt, vbCr & "Pick next point or press Enter to stop: ")
       ReDim Preserve mlCoords(UBound(mlCoords) + 3)
       mlCoords(i) = pickPt(0): mlCoords(i + 1) = pickPt(1): mlCoords(i + 2) = 0#
       If oMline Is Nothing Then
           Set oMline = ThisDrawing.ModelSpace.AddMLine(mlCoords)
           oMline.Update
       Else
           oMline.Coordinates = mlCoords
           oMline.Update
       End If
   Loop
End If
End Sub

~'J'~

comcu · 发表于 2022-7-6 17:46:50

Fixo，

谢谢你。我试图创建的是您发布的代码的一个版本，但允许用户输入尺寸、宽度、高度和托架数量，并将最终产品设置为幕墙屏幕。

谢谢你的帮助。

干杯

col公司

comcu · 发表于 2022-7-6 17:50:16

罗西，
谢谢你的解释。你没提mlinestyle？我从帮助中看到它是只读的？

我试过了

copy


MyObjMLine.stylename = “MLineStyleName”

它返回了一个错误。这是否意味着不能用vba更改，而必须手动更改？
干杯

Col公司

fixo · 发表于 2022-7-6 17:54:06

Col，请看一下帮助：

来自帮助
样式名
对于MLine对象，此属性为只读

要设置所需的MlineStyle，请使用：

copy

ThisDrawing.SetVariable "CMLSTYLE", "MyStyleName" '<--style name

~'J'~

fixo · 发表于 2022-7-6 17:59:14

Fixo，

非常感谢。它运行得非常好。

我会努力进一步发展。

非常感谢，

Col公司

comcu · 发表于 2022-7-6 18:03:30

不客气
干杯

~'J'~

fixo · 发表于 2022-7-6 18:09:19

comcu · 发表于 2022-7-6 18:14:17

Fixo,

jpeg attached. it is a very simple example, the amount of columns/ rows could 10 or 100, for eg.

Im sure i can use you example, i just need to work out how to accept input from the command line and then work out the calculation required.

cheers,

col

[编程交流] 创建多行

发表回复

精选推荐