|
Autocad VBA : Attribute an Blockreferenz anhängen
fuchsi am 17.11.2003 um 13:56 Uhr (0)
mit Dim p1(0 To 2) As Double p1(0) = 0 p1(1) = 0 p1(2) = 0 Set ret = ThisDrawing.Blocks( 1 ).AddAttribute(2, acAttributeModeNormal, prompt , p1, tag , value ) kannst du in der blockdefinition ein attribut hizufügen, um diese hizugefügte attribut , auch in den bereits vorhandenen blöcken einzufügen gibt es das expresstool ATTSYNC (das jedoch bei blöcken, die vorher kein attribut hatten probleme hat) wie man das in vb noch machen kann, muss ich erst suchen ------------------ ****************************** ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Datei bearbeiten ohne öffnen ???
fuchsi am 20.11.2003 um 09:00 Uhr (0)
google mal nach ObjectDBX.AxDbDocument auf dieser seite wird erklärt, wie man von einer externen zeichnung definierte views in die eigene zeichnung kompoiert, ohne diese sichtbar zu öffnen. ist zwar lisp, funktioniert aber auch mit VB http://www.visuallisp-tutorial.mapcar.net/importviews.html ------------------ *********************************************** AutoCad 2000i, 2002, 2004 deutsch und englisch Windows 2000, NT, XP
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Datei bearbeiten ohne öffnen ???
fuchsi am 20.11.2003 um 13:09 Uhr (0)
hallo das objectdbx funktioniert auch mit 2000i du musst nur die datei axdb15.dll im acad-inst verzeichnis registrieren. (falls sie sich nicht registrieren lässt, installiere den neuesten VoloView , da werden die dll´s im ordner gemeinsame dateienautodesk shared aktualisiert) das ganze funktioniert auch in VBA Set dbxDoc2 = ThisDrawing.Application.GetInterfaceObject( ObjectDBX.AxDbDocument.15 ) Call dbxDoc2.Open( d: est.dwg ) mit der variable dbxDoc2 kannst du dann alles machen, was du mit ThisDrawing auc ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Datei bearbeiten ohne öffnen ???
fuchsi am 20.11.2003 um 13:20 Uhr (0)
hab mich beim deklarieren vertan Set dbxDoc2 = ThisDrawing.Application.GetInterfaceObject( ObjectDBX.AxDbDocument ) ohne die .15 beim angehängten jpg siehst du die eigenschaten eines AxDBDokumentes zum thema open dwg von rosinino open-dwg ist eine vereinigung von firmen,personen mit den zweck das dwg-file format zu durchleuchten, und jedem zur verfügung zu stellen. unter anderem gibts da eine pror-umgebung downzuloaden mit der man OHNE acad dwgs erstellen/ändern kann (funtioniert in VB mittels API -DLL) h ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Datei bearbeiten ohne öffnen ???
fuchsi am 24.11.2003 um 10:00 Uhr (0)
also bei mir macht er es Set objDbx = ThisDrawing.Application.GetInterfaceObject( ObjectDBX.AxDbDocument ) objDbx.Open ( d: est.dwg ) For Each Object In objDbx.ModelSpace Debug.Print Object.Color Object.Color = acByBlock das macht er nicht Next objDbx.SaveAs d: est.dwg wenn ich dann die zeichnung öffne, sind alle elemente farbe vonblock vielleicht hast du das sichern der zeichnung vergessen ?? ------------------ *********************************************** AutoCad 2000i, 2002, 2004 deut ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : neue Eigenschaft erstellen
fuchsi am 24.11.2003 um 10:40 Uhr (0)
geh mal auf folgende seite http://www.activedwg.com/Download_Links.htm und such nach AsdkOpmX mit diesem arx kannst du beliebeige eigenschaften an die autocad-elemente hinzufügen, die AUCH im eigenschaftsfenster angezeigt,verändert werden können. ------------------ *********************************************** AutoCad 2000i, 2002, 2004 deutsch und englisch Windows 2000, NT, XP
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : CommandButton Laufzeit
fuchsi am 26.11.2003 um 11:56 Uhr (0)
in vba ist das etwas komplizierter als in VB6 Private WithEvents Mycmd As CommandButton Private Sub UserForm_Initialize() Set Mycmd = Controls.Add( Forms.CommandButton.1 , TEST1 , True) , CommandButton2, Visible) Mycmd.Left = 18 Mycmd.top = 100 Mycmd.Width = 175 Mycmd.Height = 20 Mycmd.Caption = This is fun. & Mycmd.Name End Sub Private Sub Mycmd_Click() Debug.Print aa End Sub ------------------ *********************************************** AutoCad 2000i, 2002, 2004 deut ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : CommandButton Laufzeit
fuchsi am 26.11.2003 um 12:35 Uhr (0)
das ganze jetzt mit mehreren buttons leider kann man die deklaration WithEvents nicht mit einem datenfeld kombinieren darum musst du einen umweg über klassenmodule machen als erstes machst du eine userform1 mit fogendem code Private a1(5) As Klasse1 Private Sub UserForm_Initialize() Set a1(0) = New Klasse1 a1(0).showButton (100) a1(0).Wert = Button 1 Set a1(1) = New Klasse1 a1(1).showButton (130) a1(1).Wert = Button 2 Set a1(2) = New Klasse1 a1(2).showButton ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : ARX-Anwendungen
fuchsi am 28.11.2003 um 18:05 Uhr (0)
huch da waren ja in meinem letztem beitrag viele vertiepsler dabei hoffentlich hats jeder lesen können ------------------ *********************************************** AutoCad 2000i, 2002, 2004 deutsch und englisch Windows 2000, NT, XP Programmiere in Lisp, VB6, VBA und C#.NET
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Absoluter Nullpunkt
fuchsi am 17.12.2003 um 08:26 Uhr (0)
so jetzt habe ich hargenau deine konstellation nachgebaut und es funktioniert. es gibt nur ein problem: wenn das userform MODAL geöfnet wird, kommt bei der zeile die du fett markieren wolltest, ein laufzeitfehler AutoCad Hauptfenster ist nicht sichtbar . bei modalen fenstern sind natürlich keinerlei punkteingaben in der zeichnung erlaubt. entweder du machst die eigenschaft ShowModal des userforms auf false (dann bleibt das userform einfach stehen, und du kannst trotzdem in der zeichnung arbeiten , ähnlich ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Getobject error
fuchsi am 18.12.2003 um 09:18 Uhr (0)
gib den verweis auf das autocad-objekt raus, und dimensionieren die variablen nicht als acadapplication, acadlayer, acad.... sondern als variant oder object ------------------
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Getobject error
fuchsi am 18.12.2003 um 11:29 Uhr (0)
also du arbeitest mit VB6. du hast sicher unter Projekt- Verweise einen verweis auf autoCAD 200x Object Library gesetzt. sonst würde die anweisung Dim objAcadApp As AcadApplication nicht funktionieren. gib diesen verweis raus(damit bist du nämlich ziemlich versionsabhängig) und dimensionieren die variablen statt Dim objAcadApp As AcadApplication einfach Dim objAcadApp fertig ------------------
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : sld erstellen und in UserForm einfügen
fuchsi am 12.02.2004 um 16:18 Uhr (0)
also ich weiss zwar nicht was ne lsa-applikation ist, aber autocad-dias kannst du mit einer sogenannten slide.ocx in einem vb vba programm anzeigen lassen. musst danach googeln , ist gratis zum runterladen. ------------------
|
| In das Form Autocad VBA wechseln |
