Visual Basic Customization

Visual Basic Customization

New Member
Posts: 1
Registered: ‎12-07-2012
Message 1 of 1 (122 Views)

122 Views, 0 Replies
12-13-2012 06:42 AM
Welcome Forum! 
I have a question related to vba of AutoCad, reference your comments. Comments Reference sent to the email address:  thank you.
Questions:( I write mã VBA trong autocad running best, select in objects domain non empty, select the outside of objects domain Empty:)
Sub testboundary
Dim kiemtradoituong As Long, RetPoint As Variant
kiemtradoituong = ThisDrawing.ModelSpace.Count
Dim pt As Variant
pt = ThisDrawing.Utility.GetPoint(, "Select object or enter to finish")
ThisDrawing.SendCommand "-Boundary" & vbCr & pt(0) & "," & pt(1) & vbCr & vbCr
If ThisDrawing.ModelSpace.Count > kiemtradoituong Then
RetPoint = ThisDrawing.Utility.GetPoint(, " non domain Empty ")
RetPoint = ThisDrawing.Utility.GetPoint(, " domain Empty ")
End If
End sub
by language that supports creating  dynamic library (dll), so I make run some examples vba in autocad.( Address reference:
when I create file dll by visual tudio 2010 ( support, the variable (Dim pt As Variant) in vba autocad, changed (Dim pt As Object) run vba autocad error, looking for help
Best regards
Post to the Community

Have questions about Autodesk products? Ask the community.

New Post
Need installation help?

Start with some of our most frequented solutions or visit the Installation and Licensing Forum to get help installing your software.