|
AutoCAD VBA : Text in Zeichnung eingeben
Carsten1210 am 15.08.2008 um 22:25 Uhr (0)
Hi Uwe,Willst du einen Text oder einen MText erstellen?!Aus der Hilfe:Code:Sub Ch4_ChangeTextHeight() Dim textObj As AcadText Dim textString As String Dim insertionPoint(0 To 2) As Double Definieren des Text-Objekts textString = "Hallo allerseits!" insertionPoint(0) = 3 insertionPoint(1) = 3 insertionPoint(2) = 0 height = 0.5 Erstellen des Textobjekts im Modellbereich Set textObj = ThisDrawing.ModelSpace. _ AddText(textString, insertionPoint, height)oder Code:Sub Ch4_CreateMText() Dim mtextOb ...
|
| In das Form AutoCAD VBA wechseln |
|
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 : Pfadabfrage
Carsten1210 am 12.01.2007 um 19:38 Uhr (0)
Hi Nancy,Dein Code gibt ihm aber den Pfad der Zeichnung, nicht den Pfad der aktuellen dvb zurück. Gruß, Carsten Zitat:Original erstellt von startrek:oder Trick17?;-)Code:?thisdrawing.PathC:Dokumente und EinstellungenNEDesktopRadebeullg Nancy
|
| 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 09:42 Uhr (0)
Hallo Patrick,Zu 1: Schau dir in der Hilfe die Methode Insert Block an.Zu 2: Die Methode lautet: ZoomExtents.Zu 3: Schau mal unter Export nach.Den Blocj löschen kannst du ja mit Object.delete machen. Da du denn Namen vom Einfügen kennst, kannst du ihn ja auch leicht in der Zeichnung finden.Gruß, Carsten
|
| 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 : 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 : allen Blocken in einer Zeichnung Linieweight zuweisen
Carsten1210 am 15.03.2007 um 14:38 Uhr (0)
Der Sinn des ganzen ist mir auch nicht ganz klar.Funktionieren sollte es auf jeden Fall. Allerdings solltest bei den Selectionsets immer prüfen, ob es den schon in der Zeichnung gibt, das du sonst ne Fehlermeldung bekommst.Schreib doch was nicht funktioniert, oder was für eine Fehlermeldung du bekommst.Gruß, Carsten
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : dwg-Zeichnung kopieren
Carsten1210 am 02.06.2008 um 11:53 Uhr (0)
Hi Stechi,Wenn es nur ums kopieren geht, könntest du es auch mit dem FileSystemObject machen.Hier mal ein paar Links zu dem Thema: Link1 Link2 .Gruß, Carsten
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : vba tool mit jeder Zeichnung starten
Carsten1210 am 23.04.2007 um 13:31 Uhr (0)
Hallo Heiko,Alternativ kannst du es wie hier beschrieben über die Startgruppe oder als acad.dvb machen.Gruß, Carsten
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Schrittweise Auswertung der Zeichnung mit SelectAtPoint
Carsten1210 am 17.03.2007 um 14:08 Uhr (0)
Hi,Du musst "IAcadHatch" als Typename nehmen.Die erste Variante zum prüfen, ob ein Selectionset vorhanden ist, sollte eigentlich funktionieren.Gruß, Carsten
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Schrittweise Auswertung der Zeichnung mit SelectAtPoint
Carsten1210 am 15.03.2007 um 08:49 Uhr (0)
Hi,Du hast ein End Select bei deiner Select Case-Anweisung vergessen, deshalb bekommst du die Fehlermeldung.Gruß, Carsten
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : allen Blocken in einer Zeichnung Linieweight zuweisen
Carsten1210 am 15.03.2007 um 14:10 Uhr (0)
Hi,Das hab ich bei der Suche übersehen. Gruß, Carsten
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : allen Blocken in einer Zeichnung Linieweight zuweisen
Carsten1210 am 15.03.2007 um 15:22 Uhr (0)
Hi,Hier hast du ein Beispiel zum erstellen von Selectionsets.Gruß, Carsten
|
| In das Form Autocad VBA wechseln |
