|
Autocad VBA : Führungslinienkommentar via VBA
fuchsi am 27.09.2004 um 16:20 Uhr (0)
das kann ich dier so nicht sagen, da ich kein mechanical zum testen hier habe. dieses beispiel bezog sich eher auf den autocad-befehl FÜHRUNG obs eine mechanical-unterstützung in VBA gibt ???? zur not geht ja immer noch thisdrawing.sendcommand( LINIE 0,0,0 1,1,0) & vbcr) also alle befehle, die du per tastatur verwenden kannst, solltest auch mit thisdrawing.sendcommand reinschiessen können ------------------ WWW.FFZELL.AT.TC
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Late binding
fuchsi am 27.09.2004 um 16:37 Uhr (0)
probiers mal so Function StartAcad() As Object On Error Resume Next Set StartAcad = CreateObject( AutoCAD.APPLICATION ) If Err.Number = 0 Then Exit Function Else Err.Clear Set StartAcad = CreateObject( AutoCAD.APPLICATION.15 ) If Err.Number = 0 Then Exit Function Else Err.Clear Set StartAcad = CreateObject( AutoCAD.APPLICATION.16 ) If Err.Number = 0 Then Exit Function Else ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : DWG-Vorschau in VB-Programm
Feyza am 28.09.2004 um 16:34 Uhr (0)
Hallo FraG,danke für diesen VB Script.Es funktioniert sehr gut, nur bei einigen Zeichnungen, sieht es richtig verzehrt aus. Als wäre es 3 Dimensional. Aber im Vorschau von AutoCAD sind diese Zeichnungen in Ordnung.Hast Du vielleicht für dieses Problem eine Lösung?!Danke im voraus.Mit freundlichen grüßenFeyza------------------
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Elemente in Blöcken auslesen
Abele am 04.10.2004 um 11:40 Uhr (0)
Hallo zusammen, ich stehe immer wieder vor dem Problem, das ich bestimmte Layer aus Zeichnungen entfernen will, diese aber noch laut AutoCAD in dictionaries referenziert sind. Ich habe nun schon festgestellt, das das wohl bedeutet, das in irgendwelchen Blöcken Elemente mit diesem Layer vorhanden sind. Nun dachte ich mir ich mach in VBA eine Routine, die die Blöcke durchsucht. In der Regel gehe ich wie folgt vor Dim Objekt as acadblockreference Dim Element as acadentity Dim I as double For each element in t ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Elemente in Blöcken auslesen
Brischke am 04.10.2004 um 11:46 Uhr (0)
HAllo Abele, du musst durch die Blocks-Collection der aktuellen Zeichnung und dann durch die Elemente des Blockes hecheln . Du musst zusätzlich wenn dur eine Blockreferenz findest, schauen, dass die Attributrefrenzen acuh nicht die Layereigenschaften zugewiesen bekommen haben. Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Elemente in Blöcken auslesen
Brischke am 04.10.2004 um 12:29 Uhr (0)
Hallo Abele, schau dir mal das Objektmodell genau an. Das kann so nicht funktionieren Die Hierarchi ist in etwa so: -Drawing ---Blocks -----Block -------z.B. LINE -------ff Elemente der Blockdefinition Da nur die Elemente die Eigenschaft LAYER haben, muss das Programm in deinem Konstrukt einen Fehler bringen. Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Elemente in Blöcken auslesen
Brischke am 04.10.2004 um 13:06 Uhr (0)
Hallo Abele, sind Layerfilter definiert? hängen die Layer evtl. am BLKEND oder SEQUEND? ist der layer aktuell gesetzt? das könnten alles Ursachen sein. Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Elemente in Blöcken auslesen
Brischke am 04.10.2004 um 21:09 Uhr (0)
Hallo Abele, :hmm schau mal in der DXF-Hilfe nach den oben genannten Stichwörtern. Diese sind AutoCAD-Objekte. Layerfilter werden, wenn ich das richtig in Erinnerung habe, in Dictionaries gespeichert, wie alle nichtgrafischen Objekte eben. Habe im Moment auch wegen der Messevorbereitung wenig Zeit, sonst hätte ich selbst mal nachgesehen, und dir egtwas besser helfen können. Wenn es dir auf eine Lösung ankommt, dann schau mal auf cadwiesel.de und auch auf defun.de .. dort solltest du für dein Problem Lösung ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Pfad und Dateiname auslesen und an Attribut übergeben
JoeG am 11.10.2004 um 08:19 Uhr (0)
Hallo Dirk Du kannst das auch Autocad überlasen Als Anlage habe ich einen Block beigefügt. Wenn du diesen Block einfügst zeigt er dir den Namen der Zeichnung an. Der angezeigte Name wird bei jedem Öffnen der Zeichnung aktualisiert. Der Block enthält einen RText mit einer Diesel-Funktion mfg Joe
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : automatisierungsfehler - plotten
tappenbeck am 12.10.2004 um 10:35 Uhr (0)
hi ! ich habe einmal eine funktion erstellt bei der in eine datei geplottet wird (PlotToFile-Methode). nun bekomme ich dann und wann einen automatisierungsfehler und beim debuggen wird mir folgender code angezeigt: On Error GoTo Err_PlotToFile bln_CreatePlotFilesuccess = objPlot.PlotToFile(strFullPfadPlotFile) wenn man die hilfe bemüht wird einem mitgeteilt, das man doch die err-eigenschaften für weitere informationen auswerten soll. ist ja auch eigentlich logisch - aber was macht man, wenn die fehlerrou ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Pfad und Dateiname auslesen und an Attribut übergeben
JoeG am 12.10.2004 um 15:48 Uhr (0)
Hallo Dirk Als erstes erzeigst du ein Textobjekte mit dem Befehl rtext . Das Textobjekt kann Dieselausdrücke verarbeiten. Für denn Pfad haben ich „$(upper, $(getvar, DWGPREFIX) $(getvar, DWGNAME) )“ in das Fenster eingegeben. Das war’s auch schon, für andere Anwendungen z.B. Datum und so gibt es unter DIESEL eine halbwegs gute Onlinehilfe in Autocad. In VBA habe ich noch eine andere Möglichkeit Sub block() Dim Einfügepunkt(0 To 2) As Double Einfügepunkt(0) = 2 Einfügepunkt(1) = 2 Einfügep ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : punkte kugeln
JoeG am 14.10.2004 um 07:17 Uhr (0)
Hallo renebus Wenn das eine einmalige Sache ist versuch es mahl so, ansonsten wirst du um ein kleines VBA-Programm nicht herumkommen. Ein Befehlsscript erzeigen: Die Textdatei hab ich in Excel geöffnet da kann man die restlichen Befehle gut ergänzen. Die Zeile könnte so aussehen: Kugel 10,15,1 10 Das ganze dann als DSV-Datei speichern und in *.scr umbenennen. Mit einem Texteditor die Trennzeichen gegen ein LEER ersetzen und in Autocad laden. In VBA ist das auch nicht allzu aufwendig meld dich einfach we ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Objekte verrunden
JoeG am 14.10.2004 um 11:00 Uhr (0)
Hallo Leute Kann man den Befehl „_fillet“ in VBA irgendwie nutzen um zwei Objekte zu verrunden. Das eine Objekte ist in einem Auswahlsatz gespeichert das andere als Objektvariable. Man könnte den Befehl über „SendCommand“ an Autocad schicken, aber wie bekommt man die zwei Objekte? Vielleicht kennt jemand die Lösung oder einen besseren Weg Joe
|
| In das Form Autocad VBA wechseln |
