块添加行不工作。。
您好，下面是项目i和039的一小段代码；我正在努力，但当我尝试运行它时，设置Hline2=FCBlock。AddLine（Hline2STARTPNT，Hline2ENDPNT）行标记错误，表示'；无效的过程或参数'；-为什么？据我所知，它的编码应该是…Option Explicit
Dim FCBlock As AcadBlock 'Block definition for Chart..
Dim FCBlockX As AcadBlockReference 'Insertable block reference for Chart..
Dim FCBlockPNT(0 To 2) As Double 'Insertion point for Chart block..
Dim Hline2, Hline3, Hline4, Hline5, Hline6, Hline7, Hline8, Hline9 As AcadLine 'Horizontal seperator lines between FXs..
Dim Hline2STARTPNT(0 To 2), Hline2ENDPNT(0 To 2) As Double 'Start and End points for Hline..
' Create block definition..
'BlockName = "Fixings_Chart"
FCBlockPNT(0) = 0: FCBlockPNT(1) = 0: FCBlockPNT(2) = 0
Set FCBlock = ThisDrawing.Blocks.Add(FCBlockPNT, "Fixings_Chart")
' Check which FIX2 is present..
If fx2CHK.Value = True Then
Hline2STARTPNT(0) = 0#: Hline2STARTPNT(1) = -10#: Hline2STARTPNT(2) = 0#'Start point for Hline 2..
Hline2ENDPNT(0) = 90#: Hline2ENDPNT(1) = -10#: Hline2ENDPNT(2) = 0#'End point for Hline 2..
Set Hline2 = FCBlock.AddLine(Hline2STARTPNT, Hline2ENDPNT)
End If
..是什么导致它爆裂？我'；我可以俯瞰吗
您正在一行上组合模糊语句。在VBA中，任何未显式设置为某物的都是变体，因此只有HLine9是暗淡的；作为一条线，所有其他的都是变体。将每个Dim语句分解为每行一个，但希望作为变体的语句除外。 嗨，谢谢，那'；s移动了它。我一直认为你可以（只要它们被声明为同一类型）在这样一行中列出所有变量，但感谢你的洞察力。。
页:
[1]