Message 1 of 48
Xref and UCS
Not applicable
04-01-2007
11:18 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hi,
I'm new to .NET. I had been trying to create a dll to change the UCS and Layer when the user types XREF in the command line. I don't know how to go about it. I just tried the code below, but it is not working. Can anybody help me?
Imports System
Imports System.Runtime.InteropServices
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports acadApp = Autodesk.AutoCAD.ApplicationServices.Application
Public Class UCS
Public Sub XrefCommand()
If acadApp.DocumentManager.MdiActiveDocument.CommandInProgress = "XREF" Then
MsgBox("Done!")
End If
End Sub
End Class
Thanks Message was edited by: cadprog
I'm new to .NET. I had been trying to create a dll to change the UCS and Layer when the user types XREF in the command line. I don't know how to go about it. I just tried the code below, but it is not working. Can anybody help me?
Imports System
Imports System.Runtime.InteropServices
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports acadApp = Autodesk.AutoCAD.ApplicationServices.Application
Public Class UCS
Public Sub XrefCommand()
If acadApp.DocumentManager.MdiActiveDocument.CommandInProgress = "XREF" Then
MsgBox("Done!")
End If
End Sub
End Class
Thanks Message was edited by: cadprog