|
Autocad VBA : Block Handl mit Layerzugehrigkeit in TXT schreiben
Bernd P am 20.11.2003 um 16:21 Uhr (0)
Servus Verwenden für die Planköpfe Attribude. Die verwaldung der Daten wird mit Excel gemacht, dann in eine TXT Kopiert und in AC mit ATTIN eingelesen. Um die Datenverwaltung zu erleichtern wird mit ATTIN gearbeitet. Die Ganzen Köpfe für Pläne liegen in Kopf.dwg , die planeigene Beschriftung liegt jeweils auf einem eigenen Layer (01,02,03 usw.). Die Kopf.dwg wird per XREF in den Plan geladen und die nicht benötigten Layer gefroren (02,03 usw.). Mein Problem Wenn man mit ATTIN arbeitet werden die Blöcke du ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : sendcommand
Bernd P am 09.10.2007 um 08:18 Uhr (0)
ServusDer Code funktioniert jetzt soweit danke @allHier der Code für Eine ZelleCode:Sub Export_Bestimmt2() Dim acApp As Object, x, y Application.ScreenUpdating = False Set acApp = GetObject(, "Autocad.application") x = acApp.activedocument.FullName y = Worksheets("bestimmt").Cells(13, 4).Value AppActivate "Autocad 2006" acApp.activedocument.sendcommand "commandName" & chr(13) acApp.activedocument.sendcommand y AppActivate "Microsoft Excel" Sheets("start").SelectEnd Submehrere Zellen untereinander ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Attribute in AutoCAD über Excel VBA ausfüllen lassen
Bernd P am 14.05.2017 um 14:54 Uhr (1)
servushttp://ww3.cad.de/foren/ubb/Forum54/HTML/026881.shtml#000001 ----------------------- Bitte Systeminfo eintragen, warum siehst du hier. Schöne Grüsse aus der Steiermark Bernd P.
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : sendcommand
Bernd P am 21.09.2007 um 12:38 Uhr (0)
ServusWill aus Excel einen Befehl in Autocad aufrufen und hab das im Forum gefunden. Der Befehl wird durch Formeln zusammengestellt und steht in im Layout Bestimmt Zelle D13.Ich weiß das bei vbastmt der Befehl aus der Zelle reingehört aber wie hab ich keinen Schimmer.Der Befehl dreht in Acad das UCS auf Welt setzt einen Block mit Attribut und dreht dann UCS wieder zurück.Code:(command "_ucs" "_w") (command "_insert" "Kot_Hoehe_LP" "-101941.8499051,203057.2992329" "" "" "" "1023.2" ) (command "_ucs" "_p")Co ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Attribute in AutoCAD über Excel VBA ausfüllen lassen
Bernd P am 15.05.2017 um 12:03 Uhr (1)
Sorry mein Fehler ich sollte mehr schreiben Attributtext ändern bei Skript-Programmierung.----------------------- Bitte Systeminfo eintragen, warum siehst du hier. Schöne Grüsse aus der Steiermark Bernd P.
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Excel Spalte durchsuchen
Bernd P am 14.11.2013 um 09:37 Uhr (1)
servus, Range("a:a")----------------------- Bitte Systeminfo eintragen, warum siehst du hier. "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark Bernd P. Sport ist MordRekorde: Scalelist11727, Fehler34365, LayerfilterXXXX
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : sendcommand
Bernd P am 08.10.2007 um 15:41 Uhr (0)
ServusJo mei, wenn mans logisch durch denkt gehts eh.Code:Sub Export_Bestimmt2() Dim acApp As Object, x, y Application.ScreenUpdating = False Set acApp = GetObject(, "Autocad.application") x = acApp.activedocument.FullName y = Worksheets("bestimmt").Cells(13, 4).Value AppActivate "Autocad 2006" acApp.activedocument.sendcommand "commandName" & chr(13) acApp.activedocument.sendcommand y AppActivate "Microsoft Excel" Sheets("start").SelectEnd Sub------------------"Warum Einfach es geht auch komplizi ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : sendcommand
Bernd P am 08.10.2007 um 16:20 Uhr (0)
ServusGenau das war das Problem wie bekomme ich den String StringAusExcelFeld richtig rüber.Hier auch der Code zum persönlichen anpassen (die FETT markierten stellen.)Code:Sub Export_Bestimmt2() Dim acApp As Object, x, y Application.ScreenUpdating = False Set acApp = GetObject(, "Autocad.application") x = acApp.activedocument.FullName y = Worksheets("bestimmt").Cells(13, 4).Value AppActivate "Autocad 2006" acApp.activedocument.sendcommand "commandName" & chr(13) acApp.activedocument.sendcommand y ...
|
| In das Form AutoCAD VBA wechseln |
