[求助]

wfcst2004

各位大虾：

为什么没人理我？现在各位大虾的豪爽都到哪里去了？请帮个忙吧，为什么我这段程序运行时能通过，就是不给我在CAD下画多义线？

小顽童

你的程序在哪里呢？

wfcst2004

你好：我的程序在此：

Private Sub Command1_Click()
 On Error Resume Next
  Dim acadApp As AcadApplication
 Set acadApp = GetObject(, "AutoCAD.Application")
    acaApp.Command = script.exe
    If Err Then
        Err.Clear
      Set acadApp = CreateObject("AutoCAD.Application")
        If Err Then
            MsgBox Err.Description
            Exit Sub
        End If
    End If
Dim plineobj As Autocad.AcadLWPolyline
 Dim points(0 To 5) As Double
 points(0) = 1: points(1) = 1
 points(2) = 100: points(3) = 100
 points(4) = 200: points(5) = 200
 Set plineobj = acadApp.ActiveDocument.ModelSpace.AddlightweightLWPolyline(points)
 plineobj.Closed = ture
   ZoomExtents
 ZoomAll
acadApp.Visible = True
End Sub

谢谢你！总算有侠义之士了

小顽童

改好了，：）

 On Error Resume Next
  Dim acadApp As AcadApplication
  Dim acaddoc As AcadDocument
 Set acadApp = GetObject(, "AutoCAD.Application")
'    acaApp.Command = script.exe
    If Err Then
        Err.Clear
      Set acadApp = CreateObject("AutoCAD.Application")
      Set acaddoc = acadApp.ActiveDocument
      acadApp.Visible = True
        If Err Then
            MsgBox Err.Description
            Exit Sub
        End If
    End If
Dim Plineobj As AcadLWPolyline
 Dim points(0 To 5) As Double
 points(0) = 1: points(1) = 1
 points(2) = 100: points(3) = 100
 points(4) = 200: points(5) = 200
 Set Plineobj = acaddoc.ModelSpace.AddLightWeightPolyline(points)
 lineobj.Closed = ture
   ZoomExtents
 ZoomAll

End Sub

wfcst2004

真的很好用，谢谢呀！热心的大虾能留个联系方式么？好以后向你请教问题，不过在上面的问题中您能否解释一下为什么要加这些呢？是在不好意思，我还有个问题请教：我编写两段段插块的程序，圆我能插到指定点，为什么线的不能？程序如下：

'创建直线块
 Dim sblockobj(0) As AcadBlock
    Dim insertionpoint(0 To 2) As Double
    insertionpoint(0) = 2014#: insertionpoint(1) = 1436.5: insertionpoint(2) = 0#
    Set sblockobj(0) = acadApp.ActiveDocument.Blocks.Add(insertionpoint, "lineblock") '创建直线块
    Dim stp0(0 To 2) As Double
 Dim enp0(0 To 2) As Double
  stp0(0) = 2014: stp0(1) = 1436.5: enp0(2) = 0
 enp0(0) = 2016: enp0(1) = 1436.5: enp0(2) = 0
 Set plnObj = acadApp.ActiveDocument.ModelSpace.AddLine(stp0, enp0)
 Dim sblockRefobj As AcadBlockReference
insertionpoint(0) = 2014#: insertionpoint(1) = 1436.5: insertionpoint(2) = 0#
Set sblockRefobj(0) = acadApp.ActiveDocument.ModelSpace.InsertBlock(insertionpoint, "lineblock", 1#, 1#, 1#, 0) '插入块

'插入直线块

insertionpoint(0) = 2038.8: insertionpoint(1) = 1436.5: insertionpoint(2) = 0#
Set sblockRefobj(0) = acadApp.ActiveDocument.ModelSpace.InsertBlock(insertionpoint, "lineblock", 1#, 1#, 1#, 0)

为什么不能插到我指定的（2038.8，1436.5）点？

还有如果我想镜像很多对象时，我该怎么办？谢谢！

我的联系方式：E-mail:wfcst2004@163.com qq:46184430,您的那，能同您联系么？

小顽童

我的信箱：my9683@163.com

wfcst2004

朋友，你好，谢谢你的回复了，实在不好意思我上面的问题麻烦你再看一下好么？我插不到指定点（程序能通过，但在找不到所插的线）

小顽童

你在定义块的时候是怎么定义的？

wfcst2004

就是创建块之间的－－定义？我不知道你是怎样收费的？如果你有能力解决让我同时镜像很多内容的话，我可以付费？不过我知道这（同时镜像很多内容）很不好办？你必须让我知道你的实力，谢谢

小顽童

嗯，把你的要求写详细些，最好附上例图，寄到我的信箱，我的QQ：1161713，解决不了你的问题我也不好意思收费，呵~~