|
Autocad VBA : Rechteck schraffieren
startrek am 18.10.2004 um 21:39 Uhr (0)
Nunja, geb ich mal auch noch meinen Senf dazu ;-) Ist nich viel, jedenfalls nur soviel: hab ja auch unter Excel begonnen und bin auch nicht grad der ACAD-Hirsch, so einiges habe ich mir unter xl auch selbst angeeignet, aber IMHO so ganz ohne Foren & Bücher - eher nicht ... ehrlichgesagt - auch schwer vorstellbar. Zurück zum Thema, auch ich hatte anfangs Probleme mit meinen Excel-Kenntnissen & Arrays, da diese wohl eher nur zB. mit Sheets oder Shapes vom Recorder aufgezeichnet werden. Bei reinen Range Ob ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Probleme mit Excel
startrek am 23.11.2004 um 20:36 Uhr (0)
Unter 97 weiss ichs nicht genau, aber prinzipiell so: Code: Sub qwe() Dim ExcelApp As Excel.Application Dim ExcelWb As Excel.Workbook Set ExcelApp = New Excel.Application Set ExcelWb = ExcelApp.Workbooks.Open("d:Mappe1.xls") ExcelApp.Visible = 1 MsgBox ExcelWb.ActiveSheet.Name ExcelWb.Close 0 ExcelApp.Quit set excelapp=nothing set excelwb=nothing End Sub Steht aber zB beinahe schon in dem Thread mit über 40 Antworten ;-) Gruss Nancy
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
startrek am 23.11.2004 um 14:03 Uhr (0)
Code: Sub Träume_am_laufenden_Block() Dim elem As AcadEntity Dim rownum As Long, ip As Variant Dim ExcelApp As Excel.Application Dim ExcelWbk As Excel.Workbook Dim ExcelWks As Excel.Worksheet rownum = 2 Set ExcelApp = New Excel.Application Set ExcelWbk = ExcelApp.Workbooks.Add ExcelApp.ActiveWorkbook.SaveAs "D:Mappe1.xls" Set ExcelWks = ExcelWbk.ActiveSheet With ExcelWks .Cells(1, 1) = "x": .Cells(1, 2) = "y" usw For Each elem In ThisDrawing.ModelSpace If TypeOf elem Is IAcadBlockReferenc ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Attribute mit Excel abgleichen
startrek am 09.02.2006 um 23:19 Uhr (0)
Ich nochmal Sven,beinahe vergessen, deine Frage: Wie ist eigentlich der eleganteste Weg die Daten zwischen ACAD=Excel zu übertragen? Über die Zwischenablage oder?Gute Frage, hmm sollte man denke von Fall zu Fall entscheiden.Die Zwischenablage ist sehr sehr schnell, aber du arbeitest da ausschliesslich mit einem String im Endeffekt.Effektiv hinsichtlich der Performance sind auch Arrays, zumal die Ranges sowieso Arrays sind.Ich weiss nicht, evtl. wär es eine Überlegung wert, ob man lieber aus Acad to Excel ...
| | In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Aus Excel Autocad aufrufen
startrek am 05.07.2005 um 13:15 Uhr (0)
Hi Goofy,starten kannst Du LT aus Excel vielleicht mit Shell, keine Ahnung, probier mal mit deinen Pfaden sowas:Code:Shell "c:programmeinternet exploreriexplore.exe e:index.htm"Vermute aber bald, das ist dann auch schon das Einzige, was Du mit VBA und LT machen kannst ... ;-)lg Nancy
| | In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Aufruf Dateieigenschaften in VBA
startrek am 23.03.2006 um 22:48 Uhr (0)
Hi wwwilli,vergiss sowas wie Application.Dialogs() unter Acad/VBA, dieses Feature ist ein Office-Kind.Ich behaupte aber mal mit API ginge das vielleicht, aber das sieht dann noch schlimmer aus als mit dem Common-Dings. Also quickn dirty wenns nicht kompliziert sein soll,verweise/binde zB. Excel ein, borg dir von da die Dialogs() und setz Excel wieder auf nothing, wenn du hast was du wolltest.Gruss Nancy
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : koordinaten von excel nach autocad
startrek am 29.06.2005 um 22:32 Uhr (0)
Abend sTixi, ... ich mach mal den Anfang. Was sollen die Coords denne bewirken? Möchtest du Punkte zeichnen/setzen? Oder Polylinien aus den Stütz-punkt-en erzeugen oder was? So schwer eigentlich nicht, wenn man das Objektmodell von acad und excel ein bisserl kennt. wie wärs damit? http://ww3.cad.de/foren/ubb/Forum259/HTML/000498.shtml Weiss ja nicht was du planst, aber das ginge glaube ebenso mit einem Script *.scr, also einfach mal so ganz ohne vba;-) Bin aber da auch nicht der Überflieger, jedem das W ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Standarddialogbox
startrek am 21.11.2005 um 12:48 Uhr (0)
Hi Bernd,keine Ahnung, warum die xls bei Dir nicht tut, ist auch ziemlich komplex das Teil.Alternativ als Würgaround-Code für Acad, der sich allerdings das Dialogfeld aus Excel borgt;-)[code]Sub file_dialog() Dim xlApp As Object, myFile As Variant Set xlApp = CreateObject("excel.application") myFile = xlApp.Application.GetOpenFilename("dwg-Dateien (*.dwg),*.dwg") xlApp.Quit: Set xlApp = Nothing If myFile False Then MsgBox myFile Documents.Open myFile End IfEnd Sub[code]HTH, Nancy
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Standarddialogbox
startrek am 21.11.2005 um 21:48 Uhr (0)
Its me again ...@stelli: naja bin manchmal eine recht pragmatische Natur;-)Aber okay Bernd - warum eigentlich Excel? -Ja, warum?Eigentlich ja nicht, wiegesagt, warum das geuppte File nicht geht, weiss ich nicht,[habs heute nochmal runtergeladen auf nem XP-Rechner, da gings]Hatte aber in dem verlinkten Beitrag, diesselben Module aus demxl-File in eine dvb eingebunden und gebibbert obs denn ging, da der Code doch etwas heftiger ist;-)Von daher war hier Excel nur das Medium und sozusagen entbehrlüsch;-)Bei me ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Datenübergabe von Excel auf Attribute und umgekehrt
startrek am 26.06.2006 um 12:49 Uhr (0)
Hallo Nat, Gibt es für ACAD einen Makrorekorder, den man von Excel her kennt?Niente, negativ ;-)Probier das mit den Einlesen aus der blockattr.dwg nochmal so:Code:Sub bla() Dim acApp As Object, acDoc As Object Dim fType%(0), fData(0), sset As Object, x As Object Dim r&, i%, attr Set acApp = GetObject(, "autocad.application") Set acDoc = acApp.ActiveDocument Set sset = acDoc.SelectionSets.Add("NewSet03") Block-Filter setzen fType(0) = 0: fData(0) = "INSERT" alle Blöcke wählen sset.Select acSelecti ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : ACAD-Befehl aus Excel starten
startrek am 14.02.2006 um 19:08 Uhr (0)
Hallo Alfonso,bin mir nicht sicher, obs einwandfrei läuft, da ich nicht weiss,was dein Lisp genau macht (Usereingaben? etc)U.U. braucht man ja nicht unbedingt ein appactivate,anyway, spiele mal bissel rum, achja ich bin mal einfach davon ausgegangen, dass Acad gestartet ist;-)HTH, Nancy-- Code:Sub test() Dim acApp As Object, x Set acApp = GetObject(, "Autocad.application") x = acApp.activedocument.FullName Cells(1, 1) = x AppActivate "Autodesk Architectural Desktop 2005" acApp.activedocument.sendcomm ...
| | In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Excel Workbook benennen oder identifizieren
startrek am 04.12.2006 um 00:22 Uhr (0)
Hi Tom,okay, ist glaube jetzt klar,beim saveas war ich excelintern in Gedanken,aber wir sind ja von aussen ;-)Bin etwas eingerostet, aber mal als Ansatz,schau mal ob das in etwa hinkommt:Code:Sub tom() Dim xlApp As Object Dim xlWB As Object Set xlApp = CreateObject("Excel.application") Set xlWB = xlApp.workbooks.Add With xlWB.sheets("Tabelle1") .cells(1, 1) = "A" .cells(1, 2) = "B" .cells(1, 3) = "C" End With xlApp.Visible = 1Theoretisch könnteste hier beenden und der User speichert selber ...
| | In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Bestimmten Text kopieren, umwandeln und ersetzen
startrek am 23.01.2006 um 22:34 Uhr (0)
Hi,und erstmal willkommen hier, Jens.Ich zitiere dich mal teilweise: Ich möchte nach mehreren bekannten Texten in einer Zeichnung suchen, diesen kopieren (10 Einheiten nach oben o.ä.), jeweils in MTEXT umwandeln und dann diesen Text mit Text aus einer Excel-Tabelle ersetzen. Habe aber die Hoffnung dass mein Problem eigentlich nicht soo riesig sein kann?!So wie du das beschreibst, klingts schon riesig;-)Wozu erst kopieren, umwandeln und dann ersetzen?Man kann nach mehreren bekannten Texten [was auch immer ...
| | In das Form Autocad VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
