| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | AutoCAD Schulung mit IHK-Zertifizierung , ein Kurs (bis zu 100% förderbar mit Bildungsgutschein)
|
|
Autor
|
Thema: Skizzierte Symbole tauschen (1544 / mal gelesen)
|
HawK.2k7
Mitglied
   Beiträge: 18
Registriert: 13.07.2017 Win11 Enterprise
DELL Precision 5570
Intel i7-12800H
32 Gb RAM
nVidia RTX A2000
Inventor 2023.3.1
|
erstellt am: 25. Mai. 2018 12:59  <-- editieren / zitieren -->   Unities abgeben:          
Mahlzeit zusammen  , Ich möchte über VBA alte Skizzierte Symbole durch neue ersetzen, dass funktioniert auch soweit ganz gut.
Jetzt habe ich das Problem das diese Symbole unterschiedlich viele "angeforderte Eingaben (aE)" besitzen ( von keiner bis hin zu 12 aE). Wenn ich das richtig verstehe dürfen in dem Array zum füllen der aE nur exakt die Menge an Strings stehen die auch das Symbol an aE besitzt. Wenn die Anzahl unterschiedlich ist werden die aE nicht richtig gefüllt bzw. sind Leer. Wie komme ich an die richtige Anzahl an angeforderte Eingaben vor dem einfügen eines Symbols?  Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
KraBBy
Mitglied
Maschinenbau-Ingenieur
Beiträge: 749
Registriert: 19.09.2007 Inventor Professional 2020
WinX
|
erstellt am: 28. Mai. 2018 09:13 <-- editieren / zitieren --> Unities abgeben: Nur für HawK.2k7 
das könnte über die einzelnen Textboxen gehen. Diese haben die Eigenschaft .FormattedText. Darin sind wohl "<Prompt>" und "</Prompt>" enthalten. Wenn es jetzt keine anderen Formen von der angef. Eingabe gibt (?), dann sollte das schon eine Lösung sein. Code:
' "oSketchSymDef" ist die SketchedSymbolDefinition
' ...
'Anzahl "angeforderter Eingaben" ermitteln
Dim sTmp As String, oTB As TextBox
Dim iCnt As Integer
For Each oTB In oSketchSymDef.Sketch.TextBoxes
sTmp = oTB.FormattedText
If InStr(sTmp, "/Prompt") Then iCnt = iCnt + 1
Next
'iCnt ist jetzt die gesuchte Anzahl
------------------
Gruß KraBBy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
HawK.2k7
Mitglied
Beiträge: 18
Registriert: 13.07.2017 Win11 Enterprise
DELL Precision 5570
Intel i7-12800H
32 Gb RAM
nVidia RTX A2000
Inventor 2023.3.1
|
erstellt am: 29. Mai. 2018 07:50 <-- editieren / zitieren --> Unities abgeben:
|
Pete85
Mitglied
Beiträge: 156
Registriert: 09.05.2016
|
erstellt am: 09. Jul. 2019 14:01 <-- editieren / zitieren --> Unities abgeben: Nur für HawK.2k7
Moin! Wie kann ich denn die skizzierten Symbole tauschen? ich möchte, das dass Symbol an der gleichen Stele ersetzt wird (Es ist nur ein anderes Logo drin und sonst gleich) Danke für eure Hilfe Gruß Pete Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| | Anzeige: | Infos zum Werbeplatz >> | GeoTools CAD APP für Tiefbau, Facility Management, GIS, Vermessung und Kartografie GeoTools is a geo-data application that is useful to view, create, modify, analyze and report on CAD data that is geographic in nature. Useful for GIS data creation, surveying, mapping, facilities management, infrastructure, landscape development, city planning or similar, workflows.
|
|
KraBBy
Mitglied
Maschinenbau-Ingenieur
Beiträge: 749
Registriert: 19.09.2007 Inventor Professional 2020
WinX
|
erstellt am: 09. Jul. 2019 16:52 <-- editieren / zitieren --> Unities abgeben: Nur für HawK.2k7
|
Foren auf CAD.de
| 
