块.添加行不起作用..
嗨，下面是我正在进行的一个项目的一小段代码，但是当我试图运行它时，Set Hline2 = FCBlock。AddLine(Hline2STARTPNT，Hline2ENDPNT) line标记一个错误，表示“无效的过程或参数”-为什么？就我所见，它的编码应该是这样的...
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
.....是什么导致它变得古怪？我忽略了什么？
**** Hidden Message ***** 您正在将 Dim 语句组合到一行上。在VBA中，任何未显式设置为某些内容的内容都是变体，因此只有HLine9被Dim'ed为Line，所有其他都是变体。将每个 Dim 语句拆分为每行一个，但要作为变体的语句除外。 嗨，
谢谢，就这样了。我一直认为您可以（只要它们被声明为同一类型）这样一行列出所有变量，但感谢您的洞察力。。
页:
[1]