|
AutoCAD VBA : Bemaßung in Zeichnung ändern
facebraker am 12.08.2010 um 09:02 Uhr (0)
Guten Morgen, seit Ihr schon wach?ich muss echt sagen, ich beneide euch Nachtmenschen, wenn ich nicht meine 8h Schlaf bekomme, werde ich unausstehlich :-( Zitat:was Probleme machen könnte, ist, dass die Bruchteile vonm inches eventuell nicht dezimal ausgegeben werden sollten, sondern in 16teln oder 32teln.So wie es aussieht, stellt er auch die Bruchteile dar, wir würden das schonmal als Lösung abhaken.Aber das nächste Problem kommt und da spekuliere ich auch auf ein Makro, die Schweißzeichen müßen auch umg ...
|
| 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:22 Uhr (0)
Also ich habe den Code gerade mal ausprobiert, aber irgendwie geht das mit der Datei nicht. Ich kann die Excel-Datei nämlich nicht öffnen bzw. beim Öffnen bleibt es hängen?
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
RoSiNiNo am 23.11.2004 um 10:05 Uhr (0)
Ich habe jetzt ca. zwei Minuten gebraucht um folgendes in der ACAD-Hilfe zu finden: Auflisten von AutoCAD-Attributen in einer Excel-Tabelle Dieses Unterprogramm sucht alle Blockreferenzen in der aktuellen Zeichnung. Anschließend sucht es die mit diesen Blockreferenzen verknüpften Attribute und listet sie in einer Excel-Tabelle auf. Gehen Sie zum Ausführen dieses Beispiels wie folgt vor: Öffnen Sie eine Zeichnung, die Blockreferenzen mit Attributen enthält. (Die Musterzeichnung sample/activeX/att ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Schrittweise Auswertung der Zeichnung mit SelectAtPoint
Sagu am 18.03.2007 um 09:04 Uhr (0)
Hallo Forum,zur Zeit versuche ich mich an meinem SelectionSet. Ich bin davon ausgegangen, dass, wenn ich über SelectAtPoint einen Punkt, der auf einer Schraffur liegt, dem SelectionSet der TypeName der Schraffur zugeordnet wird. Über eine MsgBox kommt "Punkt" als Ausgabe. Mein Problem ist, dass ich für die Select Case Anweisung eine Eigenschaft der Schraffur benötige (siehe Code oben). Über Filter hab ich es nicht hinbekommen und auch schon im Forum geblättert. Wie kann ich eine Eigenschaft, die bei allen ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
CADmium am 24.11.2004 um 11:44 Uhr (0)
zum allerletzten: wenn Angdir=0 dann w=w ( 280 ) Angdir=1 dann w=360-w ( 360-280= 80 ) dann: w=w-angbase ( 80-270 = -190) dann: ist w 0 dann w=w+360 (-190 +360 = 170) sonst w=w w.z.b.w. ------------------ - 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 : allen Blocken in einer Zeichnung Linieweight zuweisen
dj_assp am 15.03.2007 um 14:26 Uhr (0)
Ich habe es jetzt so geschrieben aber funktioiert nicht. Dim sset As AcadSelectionSet Dim FilterType(0) As Integer Dim FilterData(0) As Variant Dim Object As AcadObject Set sset = ThisDrawing.SelectionSets.Add("SS2") Auswahlsatz erstellen FilterType(0) = 0 FilterData(0) = "INSERT" Filter setzen ungleich sset.Select acSelectionSetAll, , , FilterType, FilterData Alle Elemente laut Filter in AuswahlsatzFor Each Object In sset Für jedes Element im Auswahlsatz Object.Lineweight = acLnWtByBlockNext
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Schrittweise Auswertung der Zeichnung mit SelectAtPoint
Sagu am 15.03.2007 um 15:37 Uhr (0)
Soweit die TheorieAch so zu den Berechnungen,mein erster Schritt war ein Berechnungsalgorithmus in Excel. Der funktioniert auch ganz gut. Bis auf eine bestimmte Prozentzahl lassen sich die fehlenden Flächen ermitteln. Bei Veränderung der Eingangsparameter lässt sich der Fehler durch die unbetrachteten Kreise nicht abschätzen. Hier fand ich als beste Alternative: die Verbindung zwischen ACAD und Excel. Der Nachteil in Excel lassen sich nur eine bestimmte Anzahl an benachbarten Kreisen gleichzeitig analysier ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Blockattribute aus einer Zeichnung und in Excel übergeben
KlaK am 03.04.2013 um 01:04 Uhr (0)
Nachdem im Fernseh nichts kam und ich noch nicht müde war bin ich doch mal Deinem Link gefolgt und habe die ZIP-Datei gefunden. OK, da hast Du ja schon Deine Versuche mitgeliefert.Im Prinzip mußt Du in Deinem Code gar nicht viel verändern.Im Versuch 2 solltest Du doch schon ganz gute Ergebnisse bekommen haben, nur müßtest Du anstelle des festen Textes Deinen Zellenwert übergeben.Im Versuch 3 schaut es noch besser aus, nachdem ich aber meine HomeUse noch nicht verlängert habe, konnte ich den Code nicht test ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : mit variablen Werten eine komplette Zeichnung erstellen
BerndE am 07.08.2003 um 10:57 Uhr (0)
HI, so ein MacroRecorder wäre ne feine Sache, wenn einer einen kennt, würde mich das auch interessieren. Ansonsten hat mir die Onlinehilfe von AutoCad viel weitergeholfen beim Einstieg. Habe meine VBA-Erfahrungen in Access sammeln können, der Einstieg in VBA-für Autocad gestaltete sich aber recht schwierig. Schau mal unter dem AutoCad-menübefehl ? |_Entwicklerhilfe |_ActiveX and VBA Reference |_Code Examples Außerdem findest du unter Programmeacad2000samples ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Alle Elemente innerhalb der Zeichnung durchlaufen
CADmium am 17.09.2007 um 15:35 Uhr (0)
Guck dir mal das count-Example aus der hilfe an .. denke, das sagt ne MengeSub Example_Count() Use count to retrieve the number of objects in a collection You might use this value in a loop structure to iterate through the collection MsgBox "There are " & ThisDrawing.Layers.count & " layer(s) in the drawing." MsgBox "There are " & ThisDrawing.ModelSpace.count & " object(s) in ModelSpace." Dim objCount As Integer Dim I As Integer objCount = ThisDrawing.ModelSpace.count Dim ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : mit variablen Werten eine komplette Zeichnung erstellen
RoSiNiNo am 12.08.2003 um 07:38 Uhr (0)
Kommt ganz darauf an was du damit machen willst. Wenn du den Kreis nachher noch einmal angreifen willst (Farbe ändern, verschieben,...), dann solltest du ihn dir auch merken. Code: dim Kreis as acadcircle set kreis = thisdrawing.modelspace.addcircle(Einsetzpunkt, Radius) wenn du den Kreis nicht mehr brauchst, dann Code: thisdrawing.modelspace.addcircle Einsetzpunkt, Radius ------------------ Roland
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Alle Zeichenobjekte einer Zeichnung in eine andere Kopieren
VBA_Spielmann am 29.01.2010 um 09:13 Uhr (0)
Hallo zusammen,ich möchte nochmal aufgreifen. Ich habe mal den Code von Theo37 getestet, funktioniert gut.Nun habe ich aber festgestellt, daß keine Bemassung kopiert wird ?!? Wenn ich das Objektmodell richtig verstehe, müßten doch Bemassungselemente auch unter die zu kopierenden Elemente fallen...Kann da jemand nachvollziehen, bzw. hat jemand eine Lösung dafür ?Danke, Gruß Georg
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Alle Zeichenobjekte einer Zeichnung in eine andere Kopieren
Carsten1210 am 23.10.2008 um 18:06 Uhr (0)
Hi Gloem,Dumme Frage: Wenn du alles aus der Quelldatei kopieren willst, warum öffnest du die Quelldatei nicht und speichert diese unter einem neuen Namen ab?!Und sonst gäbe es noch die WBlock-Methode, wo du mit einem Selectionset eine Vorauswahl der Objekte machen kannst.Das sollte auf jeden Fall bei größeren Dateien das schnellste sein.Gruß, Carsten
|
| In das Form AutoCAD VBA wechseln |
