块添加行不工作。。

Jeff_M · 发表于 2008-3-18 12:11:57

您好，下面是项目i和039的一小段代码；我正在努力，但当我尝试运行它时，设置Hline2=FCBlock。AddLine（Hline2STARTPNT，Hline2ENDPNT）行标记错误，表示&#039；无效的过程或参数&#039；-为什么？据我所知，它的编码应该是…

copy

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