Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  AutoCAD ObjectARX und .NET
  AddAllowedClass

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  AddAllowedClass (1405 mal gelesen)
Theo37
Mitglied
Techniker


Sehen Sie sich das Profil von Theo37 an!   Senden Sie eine Private Message an Theo37  Schreiben Sie einen Gästebucheintrag für Theo37

Beiträge: 423
Registriert: 08.10.2008

erstellt am: 15. Feb. 2011 16:44    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

  Hallo an Alle,

eine Frage: Kann ich in dem Code-Schnipsel unten bei  AddAllowedClass auch mehrer Sachen eingeben. Ich hätte gern Texte, MTexte und vielleicht sogar Attributdefinitionen.
Geht das, wenn ja, wie?
 

Dim myEditor As Editor = Application.DocumentManager.MdiActiveDocument.Editor
        Dim Editorresult As PromptEntityResult
        Dim myPDO As New PromptEntityOptions("Einen Text wählen: ")
        myPDO.AllowObjectOnLockedLayer = True
        myPDO.SetRejectMessage("Das ist kein Text!")
        myPDO.AddAllowedClass(GetType(MText), False)
        Editorresult = myEditor.GetEntity(myPDO)

Danke, Theo

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


Ex-Mitglied

erstellt am: 15. Feb. 2011 16:52    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat

Hi,

was hindert Dich 'AddAllowedClass' mehr als einmal zu verwenden? 

Code:
myPDO.AddAllowedClass(GetType(DatabaseServices.MText), False)
myPDO.AddAllowedClass(GetType(DatabaseServices.DBText), False)
myPDO.AddAllowedClass(GetType(DatabaseServices.AttributeDefinition), False)


- alfred -

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

Theo37
Mitglied
Techniker


Sehen Sie sich das Profil von Theo37 an!   Senden Sie eine Private Message an Theo37  Schreiben Sie einen Gästebucheintrag für Theo37

Beiträge: 423
Registriert: 08.10.2008

erstellt am: 16. Feb. 2011 08:23    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Guten Morgen Alfred,

das ist so einfach, da hätt ich drauf kommen können.
Danke für die schnelle Lösung.

Gruß, Theo

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

Theo37
Mitglied
Techniker


Sehen Sie sich das Profil von Theo37 an!   Senden Sie eine Private Message an Theo37  Schreiben Sie einen Gästebucheintrag für Theo37

Beiträge: 423
Registriert: 08.10.2008

ACAD 2019
WIN 7 64bit
Intel Xenon CPU E5-1620 3.60GHz
16GB RAM

erstellt am: 16. Feb. 2011 08:49    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Alfred,

jetzt habe ich doch noch eine Frage.
Wie komme ich am einfachsten vom Editorresult auf den Text.
Ich benötige eigentlich nur die Texthöhe des gewählten Textes, Mtextes oder Attributes.

Danke, Theo

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


Ex-Mitglied

erstellt am: 16. Feb. 2011 09:13    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat

Hi,

ohne Test:

Code:
Dim tAcadDoc As ApplicationServices.Document = ApplicationServices.Application.DocumentManager.MdiActiveDocument
Dim myEditor As EditorInput.Editor = tAcadDoc.Editor
Dim Editorresult As EditorInput.PromptEntityResult
Dim myPDO As New EditorInput.PromptEntityOptions("Einen Text wählen: ")
myPDO.AllowObjectOnLockedLayer = True
myPDO.SetRejectMessage("Das ist kein Text!")
myPDO.AddAllowedClass(GetType(DatabaseServices.MText), False)
myPDO.AddAllowedClass(GetType(DatabaseServices.DBText), False)
myPDO.AddAllowedClass(GetType(DatabaseServices.AttributeDefinition), False)
Editorresult = myEditor.GetEntity(myPDO)

If Editorresult.Status = EditorInput.PromptStatus.OK Then
  Dim tTextSize As Double = -1    '-1 als Voreinstellung, damit wir wissen, dass es nicht evaluiert wurde
  Dim tTrAct As DatabaseServices.Transaction = Nothing
  Try
    tTrAct = tAcadDoc.TransactionManager.StartTransaction
    Dim tEnt As DatabaseServices.Entity = CType(tTrAct.GetObject(Editorresult.ObjectId, DatabaseServices.OpenMode.ForRead), DatabaseServices.Entity)
    Select Case tEnt.GetType.Name
      Case GetType(DatabaseServices.MText).Name
        tTextSize = CType(tEnt, DatabaseServices.MText).TextHeight
      Case GetType(DatabaseServices.DBText).Name
        tTextSize = CType(tEnt, DatabaseServices.DBText).Height
      Case GetType(DatabaseServices.AttributeDefinition).Name
        tTextSize = CType(tEnt, DatabaseServices.AttributeDefinition).Height
    End Select
  Catch ex As Exception
    MsgBox("Fehler " & ex.Message)
  Finally
    If tTrAct IsNot Nothing Then tTrAct.Dispose() : tTrAct = Nothing
  End Try
  MsgBox("Testsize = " & Format(tTextSize, "0.00"))
End If


- alfred -

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

Theo37
Mitglied
Techniker


Sehen Sie sich das Profil von Theo37 an!   Senden Sie eine Private Message an Theo37  Schreiben Sie einen Gästebucheintrag für Theo37

Beiträge: 423
Registriert: 08.10.2008

erstellt am: 16. Feb. 2011 16:03    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Danke, wie immer perfekt.

Gruß, Theo

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz