|
AutoCAD VBA : Win-Dialog Ordner und-color: #FFFF99'>suchen öffnen?
Carsten1210 am 10.07.2007 um 20:40 Uhr (0)
Hi Einstein,Ich erinnere mich noch. Wenn ich den Code per Einzelschritt abarbeite sieht das nach der Ordnerauswahl so aus: Ich habs jetzt mal mit 2006, 2007 und 2008 und Windows XP Pro. getestet, da funktioniert alles bestens. Was für eine Windowsversion benutzt du eigentlich?!Gruß, Carsten[Diese Nachricht wurde von Carsten1210 am 10. Jul. 2007 editiert.]
|
| In das Form AutoCAD VBA wechseln |
|
Rund um Autocad : nach 2 identischen wörtern und-color: #FFFF99'>suchen
Carsten1210 am 06.07.2006 um 13:30 Uhr (0)
Hallo Jerome,Guckst du hier: http://ww3.cad.de/foren/ubb/Forum54/HTML/007058.shtml Gruß, Carsten
|
| In das Form Rund um Autocad wechseln |
|
SolidWorks : Problem mit Zeichnungsbefehl Modell ersetzen
Carsten1210 am 22.04.2015 um 10:30 Uhr (1)
Hi,Wir tauschen bei sowas dann die Referenzen beim Dateiöffnen.Da bleiben mehr Bezüge bestehen als beim tauschen mit dem Befehl.Keine Ahnung warum das so ist.Wäre ein schöner Befehl, aber bei dem was da raus kommt kann man den vergessen.Gruß, Carsten
|
| In das Form SolidWorks wechseln |
|
AutoCAD VBA : Text in Blockreferenz ersetzen
Carsten1210 am 09.01.2008 um 12:22 Uhr (0)
Hi Daniel,Probiers mal so:Code:Public Sub aaa()Dim Block As AcadBlockDim Object As AcadObjectDim Ausgabe As StringDim Pickedpoint As VariantOn Local Error Resume NextAusgabe = "Objekt wählen:"ThisDrawing.Utility.GetEntity Object, Pickedpoint, AusgabeSet Block = ThisDrawing.Blocks(Object.Name)Ab hier enthält "Block" die einzelnen Elemente des BlocksEnd SubGruß, Carsten
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Win-Dialog Ordner und-color: #FFFF99'>suchen öffnen?
Carsten1210 am 10.07.2007 um 21:21 Uhr (0)
Hi,Ich denke mal, das du dann schlechte Karten hast. Kannst ja mal nach Folder Shell und Win98 googlen. Vielleicht kannst du da ja was auftreiben. Das sind ja auch Funktionen, die vom Betriebssystem zu Verfügung gestellt werden.Gruß, Carsten
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Nach Text und-color: #FFFF99'>suchen und diesen löschen
Carsten1210 am 24.10.2008 um 06:53 Uhr (0)
Hi Gerhard,Wie sind die Texte denn in das Layout eingefügt worden?! Als Block, Mtext oder als Text?! Ich würde auch das ThisDrawing.ActiveLayout durchlaufen und diese dann nach dem Test überprüfen.Gruß, Carsten
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Nach Text und-color: #FFFF99'>suchen und diesen löschen
Carsten1210 am 24.10.2008 um 07:15 Uhr (0)
Hi Gerhard,Hier mal ein Ansatz:Code:Public Sub Suchetext()Dim Object As AcadObjectFor Each Object In ThisDrawing.ActiveLayout.BlockIf TypeName(Object) = "IAcadText2" Then If Object.TextString = "gesperrt" Then Object.Delete End IfEnd IfNextEnd SubGruß, Carsten
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Nach Text und-color: #FFFF99'>suchen und diesen löschen
Carsten1210 am 24.10.2008 um 08:00 Uhr (0)
Hallo Gerhard,Starte das Makro mal mit F8 und schau dann im Direktfenster im unteren Bereich der IDE (Das musst du vielleicht erst über Ansicht... einblenden) nach. Da kannst du dir die Struktur anschauen.Gruß, Carsten[Diese Nachricht wurde von Carsten1210 am 24. Okt. 2008 editiert.]
|
| In das Form AutoCAD VBA wechseln |
 |
SolidWorks : Frage zu Meldung ersetzen ausgecheckter Dateien
Carsten1210 am 10.02.2022 um 09:51 Uhr (15)
Hi Leonard,hast du zufällig im Auscheck-Dialog alle Dateien selektiert?! Normalerweise werden nur die markiert die nicht ausgecheckt sind.Wenn du Ja oder Ja zu allem machst werden deine Änderunge verloren gehen da er die Dateien vom Server holt und deine lokal geänderten (ausgecheckten) Dateien überschreibt. Also immer Nein bzw. Nein zu allem wenn deine geänderten Dateien nicht wieder zurückgesetzt werden sollen.Und darauf achten das man nicht alles in den Dialogen auswählt.Gruß, Carsten[Diese Nachricht wu ...
|
| In das Form SolidWorks wechseln |
|
Autocad VBA : Text aus Layer in Datei exportieren
Carsten1210 am 02.05.2006 um 11:44 Uhr (0)
Hallo Frank,Probiers mal hiermit:Sub Extract_Text() Dim sstext As AcadSelectionSet Variable für Auswahlsatz anlegen Dim FilterType(9) As Integer Variable für Filterliste (Typ) Dim FilterData(9) As Variant Variable für Filterliste (Daten) Dim fs As Object Variable für FileSystemObject Dim a As Object Variable für Datei Dim Object As Object Variable für vorhandene TextstringsOn Error Resume Next ThisDrawing.SelectionSets.Item("SS2").Delete Auswahlsatz, wenn vorhanden löschen Set sstext = ThisDrawing. ...
|
| In das Form Autocad VBA wechseln |
|
SolidWorks : vb.net - Probleme beim Einstieg
Carsten1210 am 28.06.2018 um 10:28 Uhr (1)
Hallo Andi,Auf welcher Basis willst du nach der Zeichnung im Tresor und-color: #FFFF99'>suchen (Dateinamen, Zeichnungsnummer oder was auch immer).Hier ein paar Beispiele:SucheFileinfoGruss, Carsten
|
| In das Form SolidWorks wechseln |
|
Rund um AutoCAD : AutoCAD und Microstation
Carsten1210 am 24.04.2007 um 14:45 Uhr (1)
Hi,Hier sollte was dabei sein. Kannst auch selber nach der Beschreibung schauen: Unter www.industrie24.com / Downloads und dort nach Bemassung und-color: #FFFF99'>suchen.Gruß, Carsten
|
| In das Form Rund um AutoCAD wechseln |
|
Autocad VBA : Block einfügen / Sichtbarkeit
Carsten1210 am 14.12.2006 um 16:05 Uhr (0)
Hallo Patrick,Danke für die Erläuterung. Wieder schlauer geworden. Probier es mal so:Public Sub test()Dim path As StringDim abcabc = "S:/Bib/01_Verbindungsbeschlaege/01_Schnaepper/01.dwg"path = """" & abc & """"ThisDrawing.SendCommand "(blockIn " & path & ")" & vbCrEnd SubEdit: Sehe gerade, das du es schon hattest. Dann fehlen vielleicht noch 2 " links und rechts vom String.Fürs ersetzen von Zeichen in einem String gibt es die funktion replace. Die erleuterung dafür findest du in der VBA-Hilfe in der IDE ...
|
| In das Form Autocad VBA wechseln |
