|
AutoCAD VBA : InsertBlock funktioniert immer nur einmal pro Zeichnung
Stelli1 am 13.03.2008 um 11:48 Uhr (0)
Hallo,hab ein Beispiel (gab es schon in einem Thread) mal um eine Funktion erweitert.Code: Ein formular anlegen Eine Listbox (Listbox1) Ein Button (CommandButton1)Option ExplicitPrivate Sub CommandButton1_Click() Dim InsPkt(0 To 2) As Double Dim Spalte As Integer Dim Reihe As Integer Dim Blockref As AcadBlockReference Dim Blockdef As AcadBlock Ist der gewünschte Block schon in der Zeichnunf definiert ? Set Blockdef = GetBlockDef("Testblock") If Blockdef Is Nothing Then Block anlegen Set B ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
kiltswitch am 23.11.2004 um 15:02 Uhr (0)
Oh, danke! Nun, das Thema ist ja nun sehr komplex und es gibt viele viele Fragen und Teilprobleme: Datenbanken, automatisches Mastzusammensetzen, Blockauslesen, Konzeptbildung.... Da können schon schnell über 100 Beiträge zusammenkommen. Zitat: Original erstellt von CADmium: Offtopic : @kiltswitch : Übrigens : Glückwunsch zum (über) 100. Post zum gleichen Thema!! Rekordverdächtig! [b]SCNR [/B]
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
kiltswitch am 23.11.2004 um 08:44 Uhr (0)
Also hat es wie von mir schon vermutet mit dem Bogenmaß zu tun und Excel hat damit Probleme? Wie kann man denn dieses Problem lösen? Wie bekomme ich es hin, dass mir Excel die Werte richtig darstellt, am besten in Grad wie in der CAD-Zeichnung? Gibt es zu Excel eine Alternative? Mein Vorgesetzter meinte, in VBA direkt gäbe es evtl. auch die Möglichkeit, eine Datei zu schreiben - man bräuchte dann evtl. nicht Excel als externes Programm. Stimmt das und wenn ja, was für ein Dateityp wäre das dann und wie kan ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : mit variablen Werten eine komplette Zeichnung erstellen
RoSiNiNo am 12.08.2003 um 13:29 Uhr (0)
zu 2. kein Problem, du hast ja schon die Punkte Code: Linie1.startpoint=Bogen1.startpoint linie1.endpoint=bogen2.startpoint linie2.startpoint=bogen1.endpoint linie2.endpoint=bogen2.endpoint oder, wenn du neue Linien zeichnen möchtest Code: dim Linie1 as acadline dim Linie2 as acadline set linie1=addlineex(bogen1.startpoint,bogen2.startpoint) set linie2=addlineex(bogen1.endpoint,bogen2.endpoint) ------------------ Roland [Diese Nachricht wurde von RoSiNiNo am 12. August 2003 editiert.]
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
Brischke am 23.11.2004 um 09:01 Uhr (0)
Zitat: Original erstellt von kiltswitch: Also hat es wie von mir schon vermutet mit dem Bogenmaß zu tun und Excel hat damit Probleme? Wie kann man denn dieses Problem lösen? Wie bekomme ich es hin, dass mir Excel die Werte richtig darstellt, am besten in Grad wie in der CAD-Zeichnung? erstellt von Brischke am: 04. Nov. 2004 10:13 in diesem Thread Zitat: Original erstellt von kiltswitch: Gibt es zu Excel eine Alternative? Mein Vorgesetzter meinte, in VBA direkt gäbe es evtl. auch die Möglic ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : mit variablen Werten eine komplette Zeichnung erstellen
RoSiNiNo am 17.09.2003 um 16:10 Uhr (0)
Ist nicht falsch, du mußt aber mit Keywords arbeiten. Code: Dim keywordList As String Liste an Schlüsselwörtern Dim GlasKeyWord As String Schlüsselwortabfrage für Glas RETRYUSERINPUT: keywordList = Ja Nein Yes No ThisDrawing.Utility.InitializeUserInput 128, keywordList On Error Resume Next GlasKeyWord = ThisDrawing.Utility.GetKeyword(vbCr & Mit Glas? [Ja/Nein] J : ) If Err Then Err.Clear ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Vorhandene Zeichnung Skalieren, Positionieren und anschließend Exceltabelle einfügen
Huebi am 01.03.2005 um 16:22 Uhr (0)
Servus Franjo, ich glaub Dir schon, daß Du bald am Verzweifeln bist (armer Kerl). Ich vermute mal, daß es etwas mit der AutoCAD-Release zu tun haben könnte. Evtl. unterstützt ja Vers. 14 die Methode object.ScaleEntity nicht (das wär eine Frage für die 14-Anwender - bitte melden!!). Naja, als Workaoround kann ich Dich nur auf meinen ersten Beitrag verweisen (SendCommand). Das sollte doch funktionieren - ist ja recht robust *lach*. Vielleicht kann Dir ja jemand anders weiterhelfen - ich für meinen Teil bin ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
kiltswitch am 23.11.2004 um 10:57 Uhr (0)
Verdammt, ich bekomme es einfach nicht hin, dass die Werte der Drehwinkel der Blöcke mit ihrem korrekten Wert in Excel dargestellt werden. :-( Habe schon in der Hilfe rumgesucht, finde dort aber einfach nichts passendes. Auch im Internet schon rumgestöbert - nix brauchbares gefunden. :-( Kann mir keiner helfen? Oben steht ja mein Code da zum Anschauen, ob ein Fehler drin ist. Tobias
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
kiltswitch am 23.11.2004 um 14:39 Uhr (0)
Also Nancy ihr Code funktioniert, wenn ich das mit der Pi-Funktion von Excel (WorksheetFunction.Pi) herausnehme und dafür die Variable Pi einsetze, die ich vorher mit dem Datentyp Double deklariert habe. ABER: Es passiert genau das Gleiche wie bei meinem Code, die Werte des Drehwinkels sind in der Exceldatei einfach falsch. Mich wundert, dass es 5 Blöcke gibt, da steht ein Wert drin, der wie bei den anderen Blöcken nicht dem Wert "0" entspricht. Mmh....
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : mit variablen Werten eine komplette Zeichnung erstellen
The VIP am 08.08.2003 um 13:06 Uhr (0)
Ich hoffe mal nicht dass ich durch meine (vielen) Fragen die ich evtl. noch haben werde, diesen Thread hier sprenge... Gebt mir einfach Bescheid, wenn ich abdrifte oder das ganz hier unübersichtlich wird und ich zu bestimmten Themen besser einen neuen Thread eröffnen soll. Ich hab es über die Hilfe-F1 und meinen Excel-Kenntnissen folgendes hinbekommen: Sub Aussenwand() Dim ANTWORT As Integer Dim circleObj As AcadCircle Dim centerPoint(0 To 2) As Double ANTWORT = InputBox( Durch ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Schrittweise Auswertung der Zeichnung mit SelectAtPoint
Stelli1 am 16.03.2007 um 11:09 Uhr (0)
Hallo,das Problem bei dir ist folgendes. In AutoCAD wird der Event AcadDocument_ObjectAdded ausgelöst und abgearbeitet. In Excel natürlich nicht, es sein denn du hast den Datentyp mit der Option withevents deklariert.Ungetestet müsste das so aussehen:Code:Dim withevents AcadDoc as acadDocumentErgeignisroutinesub AcadDoc_ObjectAdded (ByVal Object As Object) Codeend subIn einem gewissen Punkt wiederspreche ich da Nancy. Mit Create/GetObject kann man auch early Binding einsetzen. Ich bevorzuge das weil man d ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
kiltswitch am 23.11.2004 um 14:43 Uhr (0)
Nein, es funktioniert auch so nicht - genau das Gleiche: er legt die Datei an, aber ich kann sie nicht öffnen. Bzw. genauer: er will sie öffnen, aber Excel hängt sich auf. Zitat: Original erstellt von startrek: tja, dumm gelaufen ;-) versuchs mal mit Excelapp vor Worksheetfunction Code: .Cells(rownum, 4) = elem.Rotation * 180 / [b]ExcelApp .WorksheetFunction.Pi ansonsten bin ich für meinen Teil planlos. Nancy[/B]
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
kiltswitch am 22.11.2004 um 14:50 Uhr (0)
Zunächst Danke für Deine Antwort. Den Tipp, mal den Ordner Samples zu durchstöbern, werde ich gern annehmen. Mit ungeordnet meinte ich nur, dass die Werte nicht separat in eigene Spalten abgelegt worden, sondern hintereinanderweg da standen. Aber das Problem habe ich lösen können. Es sollen wie schon erwähnt alle Blöcke/Blockreferenzen der aktuellen Zeichnung in eine Datei ausgelesen werden. Dabei ist der Blockname, die Koordinaten seines Basispunktes sowie sein Drehwinkel von Interesse. Mein Code tut das ...
|
| In das Form Autocad VBA wechseln |
