| | | 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
Beiträge: 423 Registriert: 08.10.2008
|
erstellt am: 15. Feb. 2011 16:44 <-- editieren / zitieren --> Unities abgeben:
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 / zitieren -->
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
Beiträge: 423 Registriert: 08.10.2008
|
erstellt am: 16. Feb. 2011 08:23 <-- editieren / zitieren --> Unities abgeben:
|
Theo37 Mitglied Techniker
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 / zitieren --> Unities abgeben:
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 / zitieren -->
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
Beiträge: 423 Registriert: 08.10.2008
|
erstellt am: 16. Feb. 2011 16:03 <-- editieren / zitieren --> Unities abgeben:
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|