|
AutoCAD VBA : InsertBlock funktioniert immer nur einmal pro Zeichnung
oscarr am 13.03.2008 um 11:30 Uhr (0)
moin,versuch doch mal:UnloadDVB "K:ADTETCADT2008vbaprojekt.dvb"oder wo auch immer deine DVB liegt, bei mir half das gaz gut.Da es aber nervt beim debuggen die DVB ständig neu mit dem VBAMAN zu laden,hab ich das dann noch an eine winzige Bedingung geknüpft:If ThisDrawing.GetVariable("LOGINNAME") "Holger" Then UnloadDVB "K:ADTETCADT2008vbaprojekt.dvb"End IfGrußholger[Diese Nachricht wurde von oscarr am 13. Mrz. 2008 editiert.]
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Plotstilltabelle in Zeichnung per VBA ändern
Bernd P am 11.05.2009 um 14:15 Uhr (0)
Servusbestimmten vorgegebenen Namen willst du einen Plotstil in einer Tabelle ändern oder eine ganz andere Tabelle?Bei Tabelle bei Plotstil in einer Tabelle kann ich dir nicht helfen.Ich holl mir _-psetupin aktuelle SeiteneinrichtungseinstellungenCode:(progn (command "_-PSETUPIN" "VORLAGENNAME.dwt" "*" "_y" "_y" "_y" "_y" "_y" "_y" "_y" "_y" "_y" "_y" "_y" "_y" "_y" "_y" "_y" "_y" "_y" "_y" "_y"))Und wende sie dann mit _-Plot an.Code:^C^C-plot;;;EINRICHTUNGSNAME;;;_y;_nBitte Code durcheinander (lisp script ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : allen Blocken in einer Zeichnung Linieweight zuweisen
dj_assp am 15.03.2007 um 13:52 Uhr (0)
Hallo Leute ich habe wieder mal ein ProblemIch möchte mit VBA allen Blöcken in einer Zeichung eine Linieweight-Eigenschaft zuweisen.
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Excel-Werte in CAD-Zeichnung übernehmen
alfred neswadba am 04.11.2008 um 14:54 Uhr (0)
Hi,korrigiere mich, wenn ich falsch liege (komm nicht aus der Maschinenbauer-Seite), ist das nicht schon etwas alt? Wenn ich damit richtig liege, dass das auch AutoCAD 2002 beruht, dann habe ich das Problem, dass ich Dir nichts vorschreiben kann, da bei mir 2002 nicht mehr installiert ist. D.h. wir müssen Code direkt hier tippen, dvb übertragen geht (von mir zur Dir) nicht.Welchen Teil von Code hast Du schon und wo hängst Du?- alfred -
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Zeichnung/drawing kopieren/duplizieren
KlaK am 11.11.2013 um 19:57 Uhr (1)
Mal eine andere Frage:Warum erstellst Du Dir nicht einen Block mit den entsprechenden Attributen (Textfelder)?Diesen Block kannst Du beliebig plazieren und die Attribute mit Deinen Werten (z.B. Seriennummern) füllen.Schau mal in der Hilfe unter:- AcadBlock (oBlock = Thisdrawing.blocks.add(,)- oBlock.AddAttribute( )- AcadBlockReferenz (oBlockRef=ThisDrawing.ModellSpace.InsertBlock(ipoint,oblock,..)- oBlockRef.HasAttributes- oBlockRef.GetattributesIst für den Anfang vielleicht etwas viel, aber es gibt hier a ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : mit variablen Werten eine komplette Zeichnung erstellen
pan am 14.08.2003 um 12:13 Uhr (0)
zu 1) vieleicht die gute alte on error... Sub test1() Dim test As Integer On Error GoTo in200: test = ThisDrawing.Utility.GetInteger(vbCr & Durchmesser: 200 ) Exit Sub in200: test = 200 End Sub zu 2) dir fehlt True oder False hinter Getstring. sh. in der Hilfe Gruß Pan
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Schrittweise Auswertung der Zeichnung mit SelectAtPoint
Sagu am 15.03.2007 um 19:37 Uhr (0)
Hallo Stelli1,habe deinen Hinweis wie folgt übernommen:Public NeuesElement As AcadObjectPrivate Sub AcadDocument_ObjectAdded(ByVal Object As AcadObject) Set NeuesElement = ObjectEnd SubAcadApp.ActiveDocument.SendCommand ("._-boundary" & vbCr & "A" & vbCr & "_Island" & vbCr & "N" & vbCr & "N" & vbCr & "O" & vbCr & "_Polyline" & vbCr & vbCr & XYPoint & vbCr & vbCr) If Not NeuesElement Is Nothing Then plineArea = NeuesElement.Area End IfEs kommt eine Fehlermeldung, T ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
CADmium am 23.11.2004 um 13:57 Uhr (0)
ersetzte mal Pi durch 3.1415926 ! ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Vorhandene Zeichnung Skalieren, Positionieren und anschließend Exceltabelle einfügen
CoXiDo am 01.03.2005 um 15:08 Uhr (0)
okay nochmals danke. aber ich sag dir bei mir tut sich da garnichts. Egal welches Bild ich starte. DIe skalierung der einzelnen Objekte ändert sich nicht. Woran könnte das liegen? Danke
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : allen Blocken in einer Zeichnung Linieweight zuweisen
Stelli1 am 15.03.2007 um 14:32 Uhr (0)
Und was funktioniert nicht ?Abgesehen davon, wo liegt der Sinn darin die Linienstärke auf byBlock zu setzen. Das wäre bei Erzeugen der Blockelemente sinnvoll aber doch nicht bei den Einfügungen. Oder sollen die keine Linienstärke haben ?Stelli------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
RoSiNiNo am 24.11.2004 um 10:55 Uhr (0)
Wenn ich jetzt aber noch eine email von diesem Beitrag bekomme bin ich aber sauer. ------------------ Roland
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Alle Textstile in einer Zeichnung ändern
Netwurm am 24.09.2009 um 12:52 Uhr (1)
Nochmal ich Jetzt funktioniert es. Ich bin einfach nur ein bisschen betriebsblind gewesen.Hier der geänderte Code:Code:Sub run_Textstyles()Dim TextStyle As AcadTextStyleDim allTextstyles As AcadTextStylesSet allTextstyles = ThisDrawing.TextStylesDim FontFile As StringFontFile = "C:WINDOWSFontsARIALNI.TTF"Dim i As LongFor i = 0 To allTextstyles.Count - 1 Set TextStyle = allTextstyles.Item(i) ThisDrawing.ActiveTextStyle = TextStyle TextStyle.FontFile = FontFileNextThisDrawing.Regen acAllViewportsEnd SubVi ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : ausgewählte Elemente in der Zeichnung per Macros abfragen
fuchsi am 04.10.2007 um 13:08 Uhr (0)
Tja scheint so, dass -vbarun die Auswahl aufhebt.Aber ich habe mich ein bisschen mit dem Thema beschäftigt.Starte dein VBA-Makro auf folgende Weise(if (ssget) (vl-vbarun "test"))Dann hast du im Makro (in meinem Beispiel Makro TEST) mittels Thisdrawing.ActiveSelectionsetdie vorher mittels (ssget) gewählten (oder bereits vorgewählten) Objekte.------------------ Ing. Anton FuchsWWW.FFZELL.AT.TC
|
| In das Form AutoCAD VBA wechseln |
