|
Autocad VBA : Automatischer Programmstart
Carsten1210 am 21.11.2006 um 14:21 Uhr (0)
Hallo Ines,EIne Möglichkeit ist, dein Makro in die Startgruppe (Unter Appload) einzutragen. Dann wird diese .dvb bei jeder Zeichnung (Beim Öffnen) geladen.Alternativ lädt Autocad auch die Datei ACAD.DVB automatisch beim Start, wenn diese im Supportverzeichnis liegt.Gruß, Carsten
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Block per VBA automatisch auf den 0 Punkt setzen und Zoom grenzen
Carsten1210 am 15.12.2006 um 12:15 Uhr (0)
Hallo Patrick,Du sollst die Variablen von Autocad, wie attreq, nicht mit sendcommand setzen. Besser ist es so: ThisDrawing.SetVariable "attreq", 0 Um den Block zu löschen sollte es mit sset.Item(0).Delete gehen.Gruß, Carsten
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Grafik beim AutoCAD - Start anzeigen
Carsten1210 am 17.02.2007 um 16:43 Uhr (0)
Hi Benny,Erstell dir mal eine Datei Namens "Acaddoc.lsp" mit folgendem Inhalt:(defun-q S::STARTUP ( )(command "_-vbarun" "meinmakro"))Diese Datei packst du in einen Support-Ordner, damit wird diese automatisch bei jeder Zeichnung ausgeführt. Das Makro lädst du entweder über die Startgruppe (unter Appload) oder du nennst die DVB mit diesem Makro einfach "acad.dvb" und packst diese auch in den Support-Ornder. Diese wird dann auch automatisch geladen.In deinem Makro solltest du aber eine Abfrage einbauen, ob ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : AutoCAD Fenster minimieren
Carsten1210 am 14.09.2007 um 18:27 Uhr (0)
Hallo Jörg,Minimieren kannst du AutoCAD so:Code:ThisDrawing.Application.WindowState = acMinZum Maximieren bzw. Wiederherstellen kannst du acMax oder acNorm nutzen.Gruß, Carsten
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Dateifehler bei Blockeinfügen
Carsten1210 am 29.09.2007 um 15:45 Uhr (0)
Hi Raplh,Hilft dir dieser Beitrag vielleicht schon weiter?!Welche AutoCAD-Version (bzw. Mechanical-Version) nutzt du denn?! Im puren 2008 läuft dein Code ohne Probleme.Gruß, Carsten[Diese Nachricht wurde von Carsten1210 am 29. Sep. 2007 editiert.]
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : AcadTable und eingebettetes Projekt
Carsten1210 am 03.04.2008 um 11:46 Uhr (0)
Hi Ines,Nimm den Anhang (Ist das Lisp aus dem Link), entferne das .txt und lade das in AutoCAD (Mit appload oder per DragnDrop auf die Zeichenfläche ziehen).Aufrufen kannst du das dann mit dem Befehl rem_vba_proj .Das Lisp fragt zur Sicherheit nochmal nach, ob das eingebettete Objekt wirklich gelöscht werden soll, oder nicht. Danach musst dud die Zeichnung speichern. Nach dem erneuten Öffnen ist das eingebettete Projekt nicht mehr vorhanden.Gruß, Carsten
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : AutoCad-Dialoge über VBA aufrufen
Carsten1210 am 15.04.2008 um 18:15 Uhr (0)
Hi Jürgen,Schau mal hier, hier oder hier.Gruß, Carsten
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Fasen mit Zusatzfunktion
Carsten1210 am 13.10.2006 um 13:09 Uhr (0)
Hallo Dirk,Mit Events kannst du Ereignisse abfangen (z.B. Datei schließen, Befehlsbeendigung). Schau mal in der Hilfe unter Events nach.Um mit IntersectWith Schnittpunkte berechnen zu können musst du ein Objekt nehmen und mit anderen Objekt überprüfen, ob Sie sich schneiden, daher sollen die Objekte, die geändert (durch Runden / Fasen) wurden in einem Stapel per Event aufgenommen werden.Dadurch erhälst du für die einzelnen Elemente die Schnittpunkte, worauf du den Endpunkt des Elements ändern musst. (Endpu ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : UCS (help!)
Carsten1210 am 21.04.2005 um 20:50 Uhr (0)
Hello Christophe. This is a Bug in AutoCAD-VBA. I had the same Problem changing the UCS for inseting a block. Try it like this: Public Sub Feder() Dim actlayer As AcadLayer Dim layalt As AcadLayer Set layalt = ThisDrawing.ActiveLayer Set actlayer = ThisDrawing.Layers("0") Dim objBlockRef As AcadBlockReference Dim EinfügePT(0 To 2) As Double Dim Punkt0, Punkt1 As Variant Dim Punkt2(0 To 2) As Double On Error Resume Next ThisDrawing.ActiveLayer = actlayer ThisDrawing.ActiveSpace = acModelSpace Punkt0 = ThisD ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Block einfügen / Sichtbarkeit
Carsten1210 am 07.02.2006 um 15:21 Uhr (0)
Hallo Dirk,Packt den Lisp Code mal in den (Text-) Editor und speicher das als .lsp-Datei. Diese musst du dann per Appload in AutoCAD laden.Die Variable "Blockname" übergibt dann in VBA den Namen des einzufügenden Blocks.Spiel mal ein bißchen damit rum.Bin gerade auf ne ADT 2006 Schulung. Schaue heute Abend noch mal rein.Gruß, Carsten
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Programmoptimierung
Carsten1210 am 12.02.2006 um 19:48 Uhr (0)
Hallo Dirk,Hab mal ein bißchen in deinem Code geändert. Lade die Lisp- und die DVB-Datei in AutoCAD.Dein Programm kannst du in Autocad mit dem Befehl Spax starten. Dies ist in der Lisp-Datei hinterlegt (Erste Zeile).Den Rest der Schraubentypen musst du noch einfügen. Ein Bißchen sollst du ja auch noch zu tun haben.Schau dir mal die Änderungen an. Wenn noch Fragen sind, einfach melden / posten.Gruß aus dem Münsterland, Carsten
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Aufruf Dateieigenschaften in VBA
Carsten1210 am 23.03.2006 um 12:11 Uhr (0)
Hallo wwwilli,Ich denke, wenn du einen Pfad vorschlagen willst, musst du die erste Variante wählen. Sonst nimmt Autocad die Angaben der aktuellen Datei. Gruß, Carsten
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Ordnerbaum in VBA für AutoCAD?
Carsten1210 am 29.03.2006 um 11:47 Uhr (0)
Hallo Cimex,Du meinst das Tree-View-Steuerelement.Du solltest dir mal das Programm Blockinfo von Stelli anschauen. Dort hat er es eingesetzt. http://autocad.cad.de/modules.php?name=Downloads&d_op=viewdownloaddetails&lid=88&title=Blockinfo.dvb Gruß, Carsten
|
| In das Form Autocad VBA wechseln |
