wfcst2004 发表于 2005-12-18 09:32: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]
查看完整版本: [求助]