|
Autocad VBA : Vorhandene Zeichnung Skalieren, Positionieren und anschließend Exceltabelle einfügen
CoXiDo am 28.02.2005 um 16:13 Uhr (0)
Hi, jo die ansätze waren schon super. Allerdings hätt ich da trotzdem noch ein paar fragen. Also als erstes, ich programmiere ja mit VB6 und nicht mit dem vom Autocad mitgelierferten VBA. Daher kann ich solche Objekte wie ThisDrawing und die Methode SendCommand nicht benutzen bzw. finden. Desweiteren hatte ich die idee die Funktion ScaleEntity(BasePoint, ScaleFactor) einzugeben. Mein Code Dim Selectionset As Object Set Selectionset = acadDo ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Vorhandene Zeichnung Skalieren, Positionieren und anschließend Exceltabelle einfügen
Huebi am 28.02.2005 um 17:04 Uhr (0)
Servus CoXiDo, Zitat: Also als erstes, ich programmiere ja mit VB6 und nicht mit dem vom Autocad mitgelierferten VBA. Daher kann ich solche Objekte wie ThisDrawing und die Methode SendCommand nicht benutzen bzw. finden. Du benutzt doch die Variable acadDoc die Du auch als AutoCAD-Document in Deinem VB6 Programm definierst. Nun nimm einfach den Namen ThisDrawing und ersetze es mit Deinem acadDoc und schon sollte es funktionieren. Hier mal ein Schnellschuß in VB6: Code: Private Sub Command1_Cl ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Auslesen von SQL DB mitAcad VBA
Dexta am 01.03.2005 um 13:17 Uhr (0)
Hi Heiko76, dein Beitrag hilft mir sehr weiter, ich habe nämlich fast das selbe Problem, bin aber zum einen kein VBA-Experte, und habe vor einer Woche angefangen, mich mit AutoCAD zu beschäftigen. Ich habe eine SQL-Datenbank in AutoCAD eingebunden, die für meine XRefs, bzw. Icons Werte bereitstellen soll, die dann mit einer Art Kombinationsfeld ausgewählt werden sollen. Die Datenbank steht auch schon, wie kann ich dieses mit einem VBA-Code realisieren? Dein Ansatz weiter oben hat mir schon sehr weitergeho ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Vorhandene Zeichnung Skalieren, Positionieren und anschließend Exceltabelle einfügen
Huebi am 01.03.2005 um 14:24 Uhr (0)
Servus CoXiDo, Also zuerstmal: Mein Name is Huebi und nicht Hubi!!!!! *lach*, ich bitte um Beachtung. Zum zweiten gebe ich Dir den Rat das Programm erst in VBA für AutoCAD zu erstellen. Da hast Du den vollen Zugriff auf die (sehr umfangreiche und mit Beispielen gut dokumentierte) Hilfe. Wenn s läuft kannst Du s ja dann nach VB6 portieren. Beim übertragen nach VB6 mußt Du natürlich auch an die Verweise denken (aber das weißt Du ja sicher). Nun zu Deinem Code: Du öffnest eine AutoCAD Zeichnung namens AcDo ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Vorhandene Zeichnung Skalieren, Positionieren und anschließend Exceltabelle einfügen
Huebi am 01.03.2005 um 15:32 Uhr (0)
Menno Franjo! Gehst Du mal in Einzelschritten durch das Programm? Guckst Du Dir die Variablen im Überwachungsfenster an ob sie gefüllt werden? Hast Du in VB6 den Verweis auf AutoCAD gesetzt? Wann ist eine Variable leer und wann gefüllt? Funktioniert überhaupt das Starten von AutoCAD und das Öffnen der Datei? Hast Du den Code mal in VBA für AutoCAD angeguckt? Fragen über Fragen. Geht nicht gibt s nicht. Bei mir klappt s hervorragend. Wenn Du willst, daß man Dir hilft (und ich hab s Dir wirklich schon vor ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Vorhandene Zeichnung Skalieren, Positionieren und anschließend Exceltabelle einfügen
CoXiDo am 01.03.2005 um 16:00 Uhr (0)
Also Huebi, ich bin dir sehr dankbar für die Hilfe und weiß es auch zu schätzen. Das mit dem Debugen hab ich schon längst doch es sind verschiedene Probleme. Ich fang mal mit dem hauptproblem an. AcSSet.Item(i).ScaleEntity AllMin, ScaleFactor wenn man sich AcSSet genauer anschaut und die einzelnen Elemente betrachtet erwarte ich eigentich nach dem durchlauf dieser funktion das sich z.B. beim rechteck die werte für Witdh und Hight ändern. Das tuen sie allerdings nicht!!! und ich verstehe nicht warum. V ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Vorhandene Zeichnung Skalieren, Positionieren und anschließend Exceltabelle einfügen
Huebi am 01.03.2005 um 16:22 Uhr (0)
Servus Franjo, ich glaub Dir schon, daß Du bald am Verzweifeln bist (armer Kerl). Ich vermute mal, daß es etwas mit der AutoCAD-Release zu tun haben könnte. Evtl. unterstützt ja Vers. 14 die Methode object.ScaleEntity nicht (das wär eine Frage für die 14-Anwender - bitte melden!!). Naja, als Workaoround kann ich Dich nur auf meinen ersten Beitrag verweisen (SendCommand). Das sollte doch funktionieren - ist ja recht robust *lach*. Vielleicht kann Dir ja jemand anders weiterhelfen - ich für meinen Teil bin ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : automatische Ermittlung der Rahmenabmaße
startrek am 02.03.2005 um 00:41 Uhr (0)
Und ich verstehe leider nichts vom programmieren, bin ein reiner Anwender, also leider verstehe ich nur Bahnhof. Julian, du hast hier im Acad/VBA gepostest, da wird vorrausgessetzt, dass ein Mindestmass an Kenntniss wie man Codefragmente nutzt/einsetzt, vorhanden ist. Im Rund um Autocad wärst vielleicht besser bedient gewesen, weisst nich wie man den codez startet/einfügt oder wo genau drückt denne der Schuh? ;-) Gruss Nancy [Diese Nachricht wurde von startrek am 02. Mrz. 2005 editiert.]
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Vorhandene Zeichnung Skalieren, Positionieren und anschließend Exceltabelle einfügen
CoXiDo am 02.03.2005 um 10:47 Uhr (0)
HALLO :-) Es hat geklappt. Also erstmal vielen lieben dank Huebi!!!! Und nun nochmal für alle meine Funktionierende Lösung: CODE: Dim acApp As Object Anwendungsobject Dim acDoc As Object Dokumentobject Dim acSelect As Object Selectionobject (Ausgewählte Elemente) Setzen des Aktuellen Dokumentes und öffnen der Datei Set acApp = CreateObject( Autocad.Application ) Set acDoc = acApp.ActiveDocument ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : SendCommand
Dirk.B am 02.03.2005 um 13:08 Uhr (0)
Hallo Hain! Wahrscheinlich hast Du bereits ne Lösung gefunden, aber trotzdem. Ich habe soetwas über "UserForm.Hide" und "UserForm.Show" gelöst. Nach dem anklicken eines CommandButton wechsel ich aus der UserForm (Dialogbox) in den AutoCAD Zeichnungsbereich um dort Objekte auszuwählen. Über UserForm.Show kommt man zur Dialogbox zurück. Kleines Beispiel aus dem Bereich Objektauswahl und speichern unter: Private Sub cmd2_Click() Dim objDxf As AcadSelectionSet Dim strTempName As String Dim strTempPath As Strin ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Inhalt Einfügen als Autocadobjekt
CoXiDo am 02.03.2005 um 16:09 Uhr (0)
Hallo ich bins wieder. Ich steh hier vor einem kleinem Problem. BIn fast fertig mit meinem programm allerdings komm ich an einer stelle nicht weiter. Stellt euch mal vor ich hätte estwas in meine Windows zwischenablage abgespeichert z.B. XLSWORKSHEET.Range( A2:C21 ).Copy Im manuellen fall tun das meine user auch. im nächsten schritt im Autocad werden folgende Schritte getan: - Mausklick auf Bearbeiten - Inhalt einfügen... - Einfügen als Autocad Object Mein Problem ist es ist nicht nur ein einfach ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Inhalt Einfügen als Autocadobjekt
Huebi am 02.03.2005 um 17:08 Uhr (0)
Servus Franjo, also das Bearbeiten - Inhalt einfügen... - Einfügen als AutoCAD-Objekt gibt es im 2004 nicht (mehr?), daher kann ich Dir nicht sagen, wie man da weiterkommt. Nur einen Tip könnte ich Dir geben, wie Du ein neues Objekt im Modelspace (oder Paperspace) herausbekommst. Frage vor dem Einfügen per VBA ab, wieviele Objekte im Modelspace sind: AnzahlVorher = acDok.Modelspace.Count Nach dem Einfügen sollte es eins mehr sein also ist das letzte Objekt Dein eingefügter Block Set NewBlock = acDok. ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Werte zwischen speichern
jobau am 04.03.2005 um 10:39 Uhr (0)
Hallo zusammen, ich lasse über eine Userform und mit 2 Cmd-Buttons und Textfeldern 2 verschiedene Punkte auswählen. Die Koordinaten werden in die Textfelder geschrieben und später zur Berechnung benutzt. Bisher speichere ich die Werte in txt-Dateien zwischen, damit die Daten vom ersten Punkt auch nach Auswahl des 2. Punktes noch im Textfeld stehen. Geht das auch irgendwie eleganter , also ohne das Ein/Auslesen in die Textdatei? Danke für jede Hilfe Gruß Jörg ------------------ AutoCAD 2004 DEU
|
| In das Form Autocad VBA wechseln |
