|
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 |
|
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 |
|
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 |
|
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 |
|
AutoCAD VBA : VBA nach VB portieren
Carsten1210 am 05.05.2009 um 16:36 Uhr (0)
Hi didi,Konvertierungstools sind mir dort nicht bekannt. Der Aufwand ist auch nicht zu verkennen, wenn du etwas portieren willst.Schau dir mal die .Net-Labs an. Ich weiss jetzt nur nicht ob dort auch Beispiele auf dem COM-Schnittstelle dabei sind.Wenn du nach was zu dem Thema VB.NET suchst solltest du vielleicht mal den Begriff VB durch VisualBasic ersetzen. Dann bekommst du auch mehr Treffer.Ich würde die VBA-Sachen so lange weiter laufen lassen, wie es geht und irgenwann die Sachen in .Net komplett neu e ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Zugriffsregelungen von Ordnern abfragen
Carsten1210 am 20.04.2007 um 08:45 Uhr (0)
Hi wwwilli,Schau mal in die angehängte Datei (einfach in ein Projekt importieren) nach der Funktion "UpdatePermissionsOfFolder". Da sollte eigentlich alles zu Usern und deren Rechten drin sein. Hab ich mal auf ner Seite von M$ gefunden.Sonst kannst du auch noch nach XCACLS und folder permissions und-color: #FFFF99'>suchen. Da kommt einiges zusammen.Gruß, Carsten
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : textboxinhalt speichern/legende erstellen
Carsten1210 am 13.10.2008 um 08:35 Uhr (0)
Hi, Zitat:sobald ich den Button drücke der mit dem makro verknüpft ist. beim debuggen ist die zeile mit dem Datei-und-color: #FFFF99'>Suchen verknüpft.Meinst du mit dem Dateiund-color: #FFFF99'>suchen diese Zeile: Zitat:Open Datei For Output As #1Wie sind denn da die Deklarationen der Variablen?!Gruß, Carsten
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Frage an Nancy zum Thema Attribute auslesen
Carsten1210 am 19.07.2006 um 20:23 Uhr (0)
Hallo Uli, (oder doch Nat_bambo?)Du kannst ja auch mit ObjectDBX eine Zeichnung bearbeiten / auslesen ohne diese zu öffnen. Da waren in den letzten 2 Wochen noch Beiträge hier im Forum. Einfach mal nach ObjectDBX hier im Forum und-color: #FFFF99'>suchen. Da findet sich schon einiges.Gruß, Carsten
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Automatischer Programmstart
Carsten1210 am 13.02.2008 um 09:17 Uhr (0)
Hallo und Willkommen Ines,Zum Thema Datei und-color: #FFFF99'>suchen schau dir mal diesen Beitrag an. In dem Beispiel geht es um den Datei-Öffnen Dialog, den du dort sicher gebrauchen kannst.Du kannst eine Acad.dvb erstellen, die immer mitgeladen wird, wenn diese in einem Support-Pfad steht. Dort müsstest dann mit dem "BeginOpen"-Event abfragen, um welche Datei es sich handelt und dann wenn nötig deine DVB laden. Habs aber nicht getestet, ob es so funktioniert.Ich würde die DVB in die Startgruppe eintragen lassen und gut is. ...
|
| In das Form AutoCAD VBA wechseln |
