---

  Hallo an Alle,

in meinen VBA-Text habe ich öfters solche Zeilen stehen:         

ThisDrawing.ActiveLayout.PaperUnits = acMillimeters
ThisDrawing.ActiveLayout.PlotRotation = ac90degrees

Bei Net geht das nicht mehr und ich muß mir die Konstanten(acMillimeters, ac90degrees) irgendwo bei Common.AcViewportScale.acMillimeters... holen.
Wie finde ich am einfachsten und sichersten heraus, wo diese jetzt zu holen sind?
Gibt es ne Hilfe wo das drinsteht?
Kann mann es irgendwie automatisieren, wie z.B. die Thisdrawing-Variable?

Gruß, Theo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

gib doch mal
!acMillimeters

in der Befehlszeile deines ACADs ein .. dann kennst du die Vorbelegungen ....

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

>> Wie finde ich am einfachsten und sichersten heraus, wo diese jetzt zu holen sind?

Du kannst im VisualStudio den Objektbrowser öffnen (Menü 'Ansicht') und darin suchen (z.B. nach 'acMillimeters'). Hier werden in allen Assemblies, die Du referenziert hast, nach dem gegebenen Begriff durchsucht und angezeigt (Namespace und Objekt).

>> Kann mann es irgendwie automatisieren

Da stehe ich auf der Leitung, Du automatisierst ja, indem Du programmierst, was sollte denn zu automatisieren sein

- alfred -

------------------
www.hollaus.at

---

Hallo,
ihr habt mir Beide sehr geholfen.
Mit  Automatisierung meinte ich wie bei der Thisdrawing-variable,
daß mann irgendwas vorweg eingibt so daß mann später doch wieder nur die Konstanten angeben muß.
Aber egal. Ich hätte noch nee andere Frage. Was muß ich machen damit ich in .Net in einer Prozedur der einen Klasse
eine Prozedur der anderen Klasse verwenden kann?
Ich möchte eine Klasse erstellen in der viele allgemeine Funktionen und Prozeduren enthalten sind.
Auf diese möchte ich dann aus Klassen zugreifen in denen meine selbst erstellten ACAD-Befehle enthalten sind.
Geht das? Wenn ja wie? Oder verwende ich da besser wieder Module?

Gruß, Theo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

wenn Du Funktionen definieren willst, die von mehreren anderen Programmteilen verwendet werden sollen, dann kannst Du das sowohl innerhalb eines Moduls wie auch einer Klasse machen. Nur im Falle 'Klasse' ist zu unterscheiden, ob Du diese vorher instanzieren mußt oder nicht, entsprechend die Funktionsdeklaration mit 'Shared' zu definieren hast.

Guck Dir dazu in der VB.NET-Hilfe an, was sich hinter 'Shared' verbirgt.

Eine Alternative zu ThisDrawing kannst Du durchaus machen, und solange keine Events damit zusammenspielen müssen, ist es auch einfach:

Code:

---

Imports Autodesk.AutoCAD

Public Class myAcadTools

  Public Shared Function ThisDrawing() as Interop.IAcadDocument
      Dim tRetVal as Interop.IAcadDocument
      If ApplicationServices.Application.DocumentManager.MdiActiveDocument isnot Nothing Then
        Dim tDoc as ApplicationServices.Document = ApplicationServices.Application.DocumentManager.MdiActiveDocument
        tRetVal = cType(tDoc.AcadDocument, Interop.IAcadDocument)
      else
        'dann ist keine DWG geoeffnet
      End If
      Return tRetVal
  End Function

End Class

---

'und aufrufen kannst Du das:
myAcadTools.ThisDrawing

HTH, - alfred -

------------------
www.hollaus.at