wfcst2004 发表于 2005-12-18 21:44:00

求助

<P>各位热心的大虾向你请教问题，我编写两段段插块的程序，圆我能插到指定点，为什么线的不能？程序如下： </P>
<P>'创建直线块<BR>&nbsp;Dim sblockobj(0) As AcadBlock<BR>&nbsp;&nbsp;&nbsp; Dim insertionpoint(0 To 2) As Double<BR>&nbsp;&nbsp;&nbsp; insertionpoint(0) = 2014#: insertionpoint(1) = 1436.5: insertionpoint(2) = 0#<BR>&nbsp;&nbsp;&nbsp; Set sblockobj(0) = acadApp.ActiveDocument.Blocks.Add(insertionpoint, "lineblock") '创建直线块<BR>&nbsp;&nbsp;&nbsp; Dim stp0(0 To 2) As Double<BR>&nbsp;Dim enp0(0 To 2) As Double<BR>&nbsp; stp0(0) = 2014: stp0(1) = 1436.5: enp0(2) = 0<BR>&nbsp;enp0(0) = 2016: enp0(1) = 1436.5: enp0(2) = 0<BR>&nbsp;Set plnObj = acadApp.ActiveDocument.ModelSpace.AddLine(stp0, enp0)<BR>&nbsp;Dim sblockRefobj As AcadBlockReference<BR>insertionpoint(0) = 2014#: insertionpoint(1) = 1436.5: insertionpoint(2) = 0#<BR>Set sblockRefobj(0) = acadApp.ActiveDocument.ModelSpace.InsertBlock(insertionpoint, "lineblock", 1#, 1#, 1#, 0) '插入块</P>
<P>'插入直线块</P>
<P>insertionpoint(0) = 2038.8: insertionpoint(1) = 1436.5: insertionpoint(2) = 0#<BR>Set sblockRefobj(0) = acadApp.ActiveDocument.ModelSpace.InsertBlock(insertionpoint, "lineblock", 1#, 1#, 1#, 0) </P>
<P>为什么不能插到我指定的（2038.8，1436.5）点？</P>
<P>还有如果我想镜像很多对象时，我该怎么办？谢谢！</P>
<P>我的联系方式：E-mail:wfcst2004@163.com qq:46184430,</P>
页: [1]
查看完整版本: 求助