我正在尝试一个非常简单的代码
打开一个autocad文件
绘制一个正方形
分解它以获得线而不是折线
选择全部
,最后在excel上写下线长。
每个thinf似乎都很好,直到输入长度。
你能不能看一下。
Sub Filtresiz()
Dim LWline as AcadLine
Dim SetseC as AcadSelectionSet
Dim strDrawing as String
Dim LwlengtH as Double
On Error Resume Next
Set Graphics = GetObject(, “AutoCAD.Application”)
if Err.Description > vbNullString then
Err.Clear
Set Graphics = CreateObject(“AutoCAD.Application”)
end if