|
Autocad VBA : VB Code funktioniert nur im ersten Durchlauf...
startrek am 14.03.2005 um 16:13 Uhr (0)
Hi Christian, geraten, IMHO könntes so besser gehen, sieht zumindest optisch besser aus ;-)) Code: Set acadpp = CreateObject( AutoCAD.Application ) [...] acadapp .Documents.Open ( C: mp est1-251.dwg ) [...] acadapp .quit set acadapp = nothing lg Nancy [Diese Nachricht wurde von startrek am 14. Mrz. 2005 editiert.] [Diese Nachricht wurde von startrek am 14. Mrz. 2005 editiert.] [Diese Nachricht wurde von startrek am 14. Mrz. 2005 editiert.]
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : koordinaten von excel nach autocad
startrek am 29.06.2005 um 22:32 Uhr (0)
Abend sTixi, ... ich mach mal den Anfang. Was sollen die Coords denne bewirken? Möchtest du Punkte zeichnen/setzen? Oder Polylinien aus den Stütz-punkt-en erzeugen oder was? So schwer eigentlich nicht, wenn man das Objektmodell von acad und excel ein bisserl kennt. wie wärs damit? http://ww3.cad.de/foren/ubb/Forum259/HTML/000498.shtml Weiss ja nicht was du planst, aber das ginge glaube ebenso mit einem Script *.scr, also einfach mal so ganz ohne vba;-) Bin aber da auch nicht der Überflieger, jedem das W ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : VBA: Datei auflisten, abspeichern und löschen
startrek am 04.07.2005 um 15:53 Uhr (0)
Hi Feyza, nur als Ansatz, ohne Errorhandling, Textboxen und Buttons. Die Ereignisse musst ggf. auf deine Steuerelemente umlegen. Code: Private Sub ListBox1_Click() Dim i%, sN$, sF$ With ListBox1 For i = 0 To .ListCount - 1 If .Selected(i) Then sF = Documents(.List(i)).FullName sN = Documents(.List(i)).Name If sF Then Documents(sN).SaveAs d: extbox_bla.dwg Kill sF End If Debug.Print ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : MS Office Verweise für AutoCAD
startrek am 19.07.2005 um 12:00 Uhr (0)
Hi sTixi, versuch s mal mit late Binding Code: dim acapp as object set acapp = createObject("Autocad.application") dim acpline as object deine 3D-Pline ... Set acPline = acapp.ActiveDocument.ModelSpace.Add3DPoly(acP) Gruss Nancy
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : MS Office Verweise für AutoCAD
startrek am 19.07.2005 um 12:12 Uhr (0)
nicht GetObject - Create Object ;;-)) Gruss Nancy
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Objektauswahl in AutoCAD
startrek am 02.09.2005 um 19:25 Uhr (0)
Abend Stelli,hoffe bin nicht voll daneben, aber wenns nur ein Entity sein darf/soll,vielleicht auch sowas in der Art:Code:dim o as object, pthisdrawing.utility.GetEntity o, p, "ein Objekt bitte: "debug.print typename(o)Gruss Nancy
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Objektauswahl in AutoCAD
startrek am 02.09.2005 um 20:33 Uhr (0)
Ich glaube bald Acad selbst macht das auch nicht anders;-)Beispiel:Code:Befehl: _extrudeAktuelle Dichte des Drahtmodells: ISOLINES=4Objekte wählen: 1 gefundenObjekte wählen:Extrusionshöhe angeben oder [Pfad]: 1Verjüngungswinkel für Extrusion angeben 0:Kann das gewählte Objekt nicht extrudieren.Hier hatte ich einfach eine stinknormale Linie angewählt gehabt.Irgendwann stellt halt Acad fest, dass das gewählte Objekt nicht dem Typ [Fläche/PLine]entspricht, um extrudiert werden zu können. Wobei Extrudieren abe ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Objektauswahl in AutoCAD
startrek am 02.09.2005 um 20:37 Uhr (0)
Gott bin ich wiedermal spät dran ..., sorry mein F5 usw. usw. ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Bücher Empfehlungen - VB6.0 und Acad Crossposting in VB/VBA
startrek am 01.10.2005 um 18:57 Uhr (0)
Abend Edgar,first: also schnippisch war das keinesfalls gemeint.Ich weiss nicht wie ich es anders sagen soll[te],ich mein normalerweise ists ja umgekehrt, man macht/versucht sicherstmal in einer Application in VBA.Irgendwann kommt der Punkt, wo man aus dieser Appli was in eine andererausschreiben will, also zum Bsp. alle Koordinaten einer Polyliniein eine Excel-Datei. Und das ist dann die erste Begegnung der 3.Art, also get-/createobject oder eben Dim as New xxx.Application.Aber egal ob nun early oder late ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD mit VB6
startrek am 11.10.2005 um 20:04 Uhr (0)
Hi Ralf,entweder mit early Binding, dann musst im VB nen Verweis setzen aufdeine Acad.TypenbibliothekCode:Dim acApp As AcadApplicationSet acApp = New AcadApplicationacApp.Visible = 1Hierbei hast Du nun auch den Objektkatalog von Acad zur Verfügung [F2].Oder mit late Binding, siehe z.B. unter anderem: http://ww3.cad.de/foren/ubb/Forum259/HTML/000722.shtml#000005 http://ww3.cad.de/foren/ubb/Forum259/HTML/000661.shtml#000003 Allerdings ist dann nix mit kennen ;-)Gruss Nancy
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD mit VB6
startrek am 11.10.2005 um 22:40 Uhr (0)
Ralph, das wird denke so schwierig auf die Schnelle und ohne Code.Erste [versuchte] Hilfe:Schau# mal im Taskmanager ob da noch ne acad.exe als Prozess läuft,wenn ja kann das viele Ursachen haben,das naheliegendste wäre eine inkorrekte Refernezierung.Schiessen tut man die acApp meisst mit acApp.Quit und die Variable freigeben: set acApp = Nothing Poste mal den [abgespeckten] Code, wenn geht;-)Gruss Nancy
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AutoCAD mit VB6
startrek am 11.10.2005 um 23:01 Uhr (0)
Bissel wirr & ungetestet,die Variablenzuweisung ist nicht optimal;-)lg Nancy-- Code: Set acApp = New AcadApplication acApp.Visible = 1 Set AcDok = acApp.Documents.Open(dwgname) For Each acDokElement In AcDok.PaperSpace If acDokElement.ObjectName = "AcDbBlockReference" Then Set Objekt = AcDok.ObjectIdToObject(Element.ObjectID) If Objekt.Name = "XLO_KON_NEU_180" Then Inhalt = Objekt.GetAttributes For X = LBound(Inhalt) To UBound(Inhalt) If Inhalt(X).TagString = "XLO_SA" Then Sachnumm ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Timer in Autocad 2000 einbinden ?
startrek am 12.10.2005 um 21:59 Uhr (0)
Hi Ralf,wie Timer einbinden unter Verweise???IMHO ist der sowieso da;-)Code:sub asdf() dim a# a=timer msgbox "test" msgbox timer - aend suboder was meintest Du?lg Nancy
|
| In das Form Autocad VBA wechseln |
