|
Autocad VBA : Excel und AutoCAD
startrek am 28.06.2006 um 14:07 Uhr (0)
Hmm, so rein formell ist das schon richtig,allein mir erschließt sich der Sinn des Button-Codes [noch] nicht ganz,momentan startest du ein Acad und zoomst auf die Grenzen einer leeren Zeichnung? ;;-))Code:Private Sub CommandButton1_Click() Dim ac As Object Set ac = CreateObject("Autocad.application") ac.Visible = True to do, z.B. with ac.activedocumnet .modelspace.addpoint(p) ac.ZoomExtens .saveas "c:irgendwolablub.dwg" ggf. beenden? .close end with ac.quit set ac=nothingEnd SubGruss Nancy
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Exceldatei erweitern
startrek am 07.12.2006 um 12:31 Uhr (0)
Hallo Ines, Zitat:Original erstellt von InesP:Nancy, bei Deinem Code brachte mir das Programm Fehlermeldungen bezüglich xlUp, Rows. Bezieht sich Cells auf das aktive Workbook und muß ich das statt Cells angeben.ups, du verwendest late Binding, deswegen kennt dein VBA die excelinterne Konstante xlup nicht:Const xlUp = -4162 (&HFFFFEFBE) Element von Excel.XlDirectiondies sagt der Objektkatalog in Excel, du müsstest also xlup erstmal explicit definieren, sonst kann Acad/VBA damit überhaupt nix anfangen.Oder ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : CSV - Dateien einlesen
startrek am 06.01.2007 um 16:39 Uhr (0)
Hallo,mal als kleiner Ansatz, wobei die csv rechteckig! aufgebaut sein muss,sonst wirds Mist;-)Code:Sub x() Dim Feld Feld = toArray("d:Schnee.csv") StopEnd SubFunction toArray(Datei As String) As Variant Dim fso As Object, s$, sr, r&, c% Set fso = CreateObject("scripting.filesystemobject") s = fso.GetFile(Datei).OpenAsTextStream.ReadAll sr = Split(s, Chr(13)) ReDim arr(0 To UBound(sr) - 1, 0 To UBound(Split(sr(0), ";"))) EOF in sr() drin? For r = 0 To UBound(arr, 1) For c = 0 To UBound(arr, 2) ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD und VB6
startrek am 02.03.2007 um 01:19 Uhr (0)
Hallo Dirk,habs nur überflogen erstmal, die generelle Frage die ich mir stelle,ist, wozu _diesen_ Code in VB?Ich mein, ausführbar ist der nur mit Acad, bei jedem PC ohne Acad schmiert die exe ab, was steht also gegen das A hintendran?;-)Aber okay - ist ja nur ne Trockenübung, s geht ja ums Prinzip ...also general musst du in VB so drangehen, als wenn du extern auf Acad zugreifst (zB wie auch aus Excel heraus),faktisch gehört erstmal die Application (Acad) selber in ein Object.Code:dim objAcad as Objectset ...
| | In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Punktübergabe per ARRAY() Funktion
startrek am 29.11.2007 um 19:31 Uhr (0)
Zitat:Original erstellt von CADoktor: ... obwohl die Funktion Array() in diesem Fall ein Variant mit 3 Doubles zurückliefern sollte.Gibts irgendeinen Tipp? Diese Variante würde teilweise eine Menge Tipparbeit ersparen und Punktdefinitionen lesbarer machen.Das ist genau das Problem, Array()(Datenfeld) ist immer in erster Linie ein Variant, egal ob die Feldelemte Double sind.Autocad will aber ein normales Feld(0 to 2) as Double.Wenn das Double nicht deklariert wird, nimmt er selbst das normale Feld nicht.lg ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Probleme ein dem Verstehen eines Codeabschnitts
startrek am 07.12.2007 um 19:40 Uhr (0)
Hallo,Code:m_AcadBlockReference.GetAttributes(0).TextString = PktnrGetAttributes ist eine Methode welches ein Array liefert.Objektkatalog F2:Function GetAttributes() Element von AutoCAD.AcadBlockReference Gets Attributes in the blockMach doch einfach mal ein:Code:for i=lbound(varAtt) to ubound(varAtt)debug.print varAtt(i).textstring,varAtt(i).NamenextOder setz mal bitte ein F1 auf GetAttributes ab, Autocad hat eine sehr schöne VBA-Hilfe.lg Nancy
| | 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 : Inhalte eines ListViews an AutoCAD - Tabelle übergeben
startrek am 19.10.2011 um 20:57 Uhr (0)
Auch Hallo,nur ganz kurz, zu handlen sind die Dinger nur über Schleifen, also immer hübsch 2 Schleifchen um Spalten und Zeilen zu durchlaufen.In http://ww3.cad.de/foren/ubb/Forum259/HTML/001778.shtml#000003 ist das kurz tangiert, habe seither aber auch nix mehr damit gemacht;-)lg Nancy
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Inhalte eines ListViews an AutoCAD - Tabelle übergeben
startrek am 21.10.2011 um 20:14 Uhr (0)
Hi Dirk,zum Zweiten, ich zitiere hier mal aus Koflers VB6:"Die Auswahlkästchen können unabhängig von der Markierung der Einträge gewählt werden. Damit stehen gleichzeitig zwei Selektionsmöglichkeiten zur Verfügung. Diese Doppelgleisigkeit kann leicht Verwirrung stiften - überlegen Sie also zweimal, ob Sie dieses (...) Feature nutzen möchten! (Im Programmcode erfolgt die Auswertung der beiden Markierungen über die Selected- und Checked-Eigenschaften des ListItem-Objekts.)"Zum Ersten: Zitat:Original erstellt ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Inhalte eines ListViews an AutoCAD - Tabelle übergeben
startrek am 11.11.2011 um 14:51 Uhr (0)
Hi Dirk,zu 2.) fang mal bei Null an, also zu zählen meine ich;-)Code:For i = 0 To .Columns - 1HTH, Nancy
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Inhalte eines ListViews an AutoCAD - Tabelle übergeben
startrek am 20.11.2011 um 17:57 Uhr (0)
Hi Dirk,wenn ich das richtig sehe im Objektkatalog F2 hat AcadTable gar keine GetColumnname-Methode, sondern nur IAcadTable2 aber selbst da werd ich auch nicht recht schlau draus;-)Ich würde es so in der Art angehen (in einer neuen, leeren Zeichnung):Code:Sub table_add() Dim table As AcadTable, pt(2) As Double, i%, s Set table = ThisDrawing.ModelSpace.AddTable(pt, 4, 7, 10, 20) For i = 0 To table.Columns - 1 table.SetText 1, i, CStr(i) Next ZoomExtentsEnd SubSub vgl() Dim table As AcadTable, arr, i ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Inhalte eines ListViews an AutoCAD - Tabelle übergeben
startrek am 20.11.2011 um 20:36 Uhr (0)
Zitat:Original erstellt von Dirk.B:Das mit dem Code:For j = 1 To .Columns kommt von dem ganzen ausprobieren Kenn ich ... ;-)Den ultimativen Lerneffekt brachte mir damals das: http://ww3.cad.de/foren/ubb/Forum259/HTML/000365.shtml#000014 Ist zwar etwas länger, aber durchaus lesenswert;-)lg Nancy
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : VBA Makro mit AUTOCAD verheiraten
startrek am 12.12.2011 um 20:20 Uhr (0)
Hi Andre,zwei Werte abfragen kannst Du auch in Acad selbst,zB mit einer kleinen Userform und zwei Textboxen oder mit einer 0815 Inputbox.Das funktioniert in Acad genauso wie in Excel.Dritte Möglichkeit wäre über die Acad-Befehlszeile zB so ähnlich:Code:Sub x() Dim s1$, s2$, s3 With ThisDrawing.Utility s1 = .GetString(0, "erster Wert: ") s2 = .GetString(0, "zweiter Wert: ") s3 = CDbl(s1) + CDbl(s2) .Prompt "Ergebnis = " & CStr(s3) End WithEnd SubSetz hierzu auch mal ein F1 auf GetStri ...
| | In das Form AutoCAD VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
