VB调用Autocad的两种方法比较。

兰州人

1、在引用项中，AutoCAD XXX打勾。

2、用object方法。

在VB中，引用引用选择Autocad，可以像在AutoCAD一样操作方便。 问题存在（AutoCad不同版本问题），

Private Sub Form_Load()
  Dim ojbLine As AcadLine
  Dim pp(0 To 2) As Double, ppp(0 To 2) As Double
  For jj = 0 To 1
    pp(jj) = jj
    ppp(jj) = jj * 5
  Next jj
  Set objline = objModelSpace.AddLine(pp, ppp)
  Dim xlSheet1 As Worksheet
  Set xlSheet1 = xlsMdb.xlSheet
  For ii = 1 To 10
    xlSheet1.Cells(ii, 2) = ii
  Next ii
End Sub

Function objModelSpace() As AcadModelSpace
  Dim appAutoCad As AutoCAD.AcadApplication
  On Error Resume Next
  Set appAutoCad = GetObject(, "AutoCAD.Application")
  If Err Then
    Err.Clear
    Set appAutoCad = CreateObject("AutoCAD.Application")
   
  End If
  appAutoCad.Visible = True
  Dim AcadDoc As AcadDocument
  Set AcadDoc = appAutoCad.ActiveDocument
  'Dim objModelSpace As AcadModelSpace
  Set objModelSpace = AcadDoc.ModelSpace

End Function

用object方法操作不能像在autocad中自如。但不存在版本问题。！！

Dim obj_Acad As Object, obj_Doc As Object, obj_ModelSpace As Object
Dim boo As Boolean

Public Sub AutoCADConnect()        '连接AutoCAD
On Error Resume Next
Set obj_Acad = GetObject(, "autocad.application")
If Err Then
   Err.Clear
   On Error Resume Next
   Set obj_Acad = CreateObject("autocad.application")
   If Err Then
      Err.Clear
      MsgBox "不能运行AutoCAD,请检查是否安装！", vbOKOnly, "警告！"
      Exit Sub
      End If
End If
obj_Acad.Visible = True
Set obj_Doc = obj_Acad.ActiveDocument
Set obj_ModelSpace = obj_Doc.ModelSpace
MsgBox "运行结束！", vbOKOnly, "工程1！"
boo = True
End Sub

Private Sub Command1_Click()
Call AutoCADConnect       '调用连接AutoCAD的子程序
End Sub

muzi2005888

怎么看不太明白

收下仔细看

楼主是不是想讨论前期绑定和后期绑定的问题

muzi2005888

其实一直以来都佩服楼主功力深厚

一直困扰的一个问题，还请楼主赐教！

就是关于非连续面域的填充

一个非连续的面域（把符合条件的部分做成面域并且合并，但不是连续，就是好像群岛一样，但他们是一个整体、同一个面域）

填充完成之后（填充为指定颜色），填充物不可见（可以肯定是填充物确实存在，用快速选择可以找到）

可是连续的面域填充就没有问题

谢谢

DeLiN001

楼主有个问题请教：在VBA的程序如何调用LISP程序，并要求从LISP程序中获取一个值.