社区 › Auto Lisp › .进口等价物？

dbroada 发表于 2022-7-6 22:54:46

.进口等价物？

我正在慢慢地完成VBA例程，寻找一个易于转换的例程。NET，我想我已经找到了一个。。。。
 
Public Sub DxfImport(myFile As String)
Dim P1(0 To 2) As Double
Dim myScale As Double
Dim myTest
If Right$(myFile, 4) <> ".dxf" Then myFile = myFile & ".dxf"
myTest = Dir$(myFile)
If myTest <> "" Then
   P1(0) = 0: P1(1) = 0: P1(2) = 0
   myScale = 1

   ThisDrawing.Import myFile, P1, myScale

   End If

End Sub

 
然而，我无法通过这幅画。导入行。
 
我试过了

PublicSub aNewBit(ByVal myFile)
Dim acDoc AsDocument = Application.DocumentManager.MdiActiveDocument
Dim p1(0 To 2) AsDouble
Dim myScale AsDouble
Dim myTest
If Right(myFile, 4) <> ".DXF"Then myFile = myFile & ".DXF"
myTest = Dir(myFile)
If myTest <> ""Then
p1(0) = 0 : p1(1) = 0 : p1(2) = 0
myScale = 1
acDoc.IMPORT(myFile, p1, myScale)
Else
MsgBox("File doesn't exist")
EndIf
EndSub

 
但正如您所见，在acDoc对象中没有找到Import。
 
有什么想法吗？

Tyke 发表于 2022-7-6 23:34:15

戴夫，你看到这个了吗
“DevTV:AutoCAD VBA到VB.NET迁移基础。
帮助将AutoCAD VBA代码移植到VB。NET中，Autodesk Developer Network团队创建了一个简单的迁移辅助实用程序和附带的视频：“
在：
http://usa.autodesk.com/adsk/servlet/index?siteID=123112&id=770215
 
随着Visual Studio 2010（和速成版）的出现，您将无法再导入VB6项目。但我需要进一步研究。
 
Jerry Winters还有一本书“用于AutoCAD自定义的VB.NET编程”，该书还涉及将VBA代码移植到VB。网

dbroada 发表于 2022-7-6 23:40:00

谢谢Tyke，当这周的任务完成后，我会看看那个链接！
 
你看过那本书吗？我也许可以让老板帮我买，但我想听听谁用过它。
 
另一方面，你收到我的首相了吗？

Tyke 发表于 2022-7-7 00:06:52

是的，我买了这本书，它是一本很好的书，有CD和样本，还有PDF文件，非常有用。
 
如果你愿意，我也可以为你找出一些其他参考资料。
 
我确实接到了首相的电话，并将在周末认真回答。

查看完整版本: .进口等价物？