|
Autocad VBA : Vorhandene Zeichnung Skalieren, Positionieren und anschließend Exceltabelle einfügen
CoXiDo am 28.02.2005 um 16:13 Uhr (0)
Hi, jo die ansätze waren schon super. Allerdings hätt ich da trotzdem noch ein paar fragen. Also als erstes, ich programmiere ja mit VB6 und nicht mit dem vom Autocad mitgelierferten VBA. Daher kann ich solche Objekte wie ThisDrawing und die Methode SendCommand nicht benutzen bzw. finden. Desweiteren hatte ich die idee die Funktion ScaleEntity(BasePoint, ScaleFactor) einzugeben. Mein Code Dim Selectionset As Object Set Selectionset = acadDo ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : mit variablen Werten eine komplette Zeichnung erstellen
The VIP am 10.12.2003 um 11:08 Uhr (0)
So, da melde ich mich nun nach langer Zeit wieder zurück um an meinem Makro weiterzuarbeiten. Ich war leider Mitglied in einem größeren Entwicklungsprojekt und konnte mich deshalb zeitlich nicht mit VBA beschäftigen Aber ab heute darf ich wieder meinem neuen Hobby nachgehen. @Dirk Thiesen: Wenn ich den Recoder installiert habe wie kann ich ihn dann starten. Da steht kurz nach der Installation was von _options usw. aber wie ich das Programm starte steht nicht da. Kannst du mir weiterhelfen? Danke im ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Vorhandene Zeichnung Skalieren, Positionieren und anschließend Exceltabelle einfügen
CoXiDo am 01.03.2005 um 12:07 Uhr (0)
Hallo. Erstmal vielen dank Hubi für deine Hilfe und unterstützung. Ich war gestern doch zu ko den Code zu verstehen aber ich bin ihn heut durchgegangen und hab mir mal ein dummy prog geschireben. Dein Ansatz find ich logisch aber :-) es tut nix. Es wird nichts verkleinert bzw. skaliert und ich weiß net warum. Also nochmal von vorne. Im Anhang liegt der code, ist nur wenig anders als der von Hubi einen eintrag vorher. Ansonsten noch die Frage, währe es den in LISP möglich ein Skript zu schreiben mit dem ich ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : mit variablen Werten eine komplette Zeichnung erstellen
Dirk Thiesen am 28.10.2003 um 11:41 Uhr (0)
Hi, gerade hier wäre es doch sicher sinnvoll, mit Dialogboxen zu arbeiten, wie msgbox oder Inputbox, das wäre doch im Windows Zeitalter sicher Zeitgemäßer! Gruß Dirk Zitat: Original erstellt von RoSiNiNo: 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, ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
CAD-Huebner am 22.11.2004 um 14:20 Uhr (0)
Auf die erste Frage war mein Tippp, lies dir die VBA Beispiele im SamplesVBA Ordner von AutoCAD mal durch (speziell BlockReplace.dvb oder attext.dvb). Natürlich geht auch ein simples ATTEXT oder EATTEXT evt. in Verbindung mit SendCommand. Zur 2. Frage eine Gegenfrage Wonach sollen die Werte den sortiert werden, Namen, aufsteigende Werte der X oder Y-Koordinate? Da gibt es so viele Möglichkeiten, das muss man eben selbst wie gewünscht programmieren. Es gibt ja fertige Sortieralgoritmmen in VBA. Mit freundli ...
|
| 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 16:55 Uhr (0)
Danke für den Tipp. Aber wieso denkt ihr denn alle, ich würde eure Tipps nicht beherzigen?Dein Code von vorhin habe ich z.B. auch ausprobiert - ich habe ALLES getestet und jeden Tipp angenommen. Nur habe ich eben damti noch nicht das Problem lösen können. Tschüs Tobias Zitat: Original erstellt von startrek: und versuche bitte bitte auch mal, das eine oder andere was hier gepostet wurde zu beherzigen. Mehr kann und will ich auch nicht dazu sagen. Nancy
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Schrittweise Auswertung der Zeichnung mit SelectAtPoint
Sagu am 15.03.2007 um 13:12 Uhr (0)
Zum Punkt acSelectionSetLast bin ich noch nicht vorgedrungen...Beim Ausführen des Makros kommt mal die Fehlermeldung 436 Objekt unterstützt diese Eigenschaft oder Mehtode nicht oder 91 With-Blockvariable nicht festgelegt. Es werden die Zeilen mit * passend zu den Melfdungen gelb markiert. Was mache ich flasch? Hab wieder auf den Seiten und in der ACAD Hilfe herumgestöbert. Bin aber nicht weiter gekommen. Kann ich die Schraffur der Polylinie so anhängen? Hab es bei einem Kreis ähnlich gemacht. Dim plineO ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
startrek am 23.11.2004 um 09:40 Uhr (0)
Tobias, VBA kennt kein Pi. Die Zahl wirst Du wohl oder übel erstmal hinterlegen müssen. Gibt es denn nun ein eigenes Dateiformat in VBA zum tabellarischen Ablegen von ausgelesenen Daten? Nun, am besten Du lässt die Endung gleich ganz weg ... Das ist doch schnurz, es kommt auf s Trennzeichen an, Tab, Kommata, Semikolon, $, |, weissderGeier Momentan schreibst Du eh nur ein Textfile mit der Endung *.xls, wenn Du diese mit Excel öffnest, hast Du sicher schon bemerkt, dass erst mal der Texterkennungsassi a ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
startrek am 23.11.2004 um 16:45 Uhr (0)
Dein Winkelproblem kann ich nicht nachvollziehen, ebensowenig wie das was Du da zusammencodest. Prüfe mal die Werte im Direktfenster / Lokalfenster [elem] Die kannst Du ja ggf. via copypaste in Excel einfügen und dann Daten/Text in Spalten ... Code: Sub x() Const Pi# = 3.14159265358979 Dim elem As AcadEntity, ip For Each elem In ThisDrawing.ModelSpace If TypeOf elem Is IAcadBlockReference Then ip = elem.InsertionPoint Debug.Print ip(0), ip(1), ip(2), elem.Rotat ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Alle Zeichenobjekte einer Zeichnung in eine andere Kopieren
Theo37 am 23.10.2008 um 16:19 Uhr (0)
Hallo,das mit "copyobjects" funktioniert recht gut. Wenn auch etwas langsam bei großen Dateien. Ich habe dazu folgende Prozedur geschrieben:Public Sub copyalle()Dim Enti As AcadEntityDim Alle() As ObjectDim i As IntegerDim olddwg As AcadDocumentDim newdwg As AcadDocumentDim newobj As Variant i = 0 Set olddwg = ThisDrawing ReDim Alle(olddwg.ModelSpace.layout.block.Count - 1) Set newdwg = ThisDrawing.Application.Documents(1) For Each Enti In olddwg.ModelSpace.layout.block Set Alle(i) = Enti i = ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Schrittweise Auswertung der Zeichnung mit SelectAtPoint
Sagu am 15.03.2007 um 08:23 Uhr (0)
Hallo Forum, neues Problem, alte Baustelle!Habe ne Fläche mit kleinen Schraffurflächen Excel 2003 in ACAD 2004 erstellt. In diesem Bereich füllen die Einzelflächen (Solid, schwarz dargestellt) nicht den gesamten Bereich aus. Nun möchte ich die Restfläche (weiß )in einem bestimmten Rahmen ermitteln. Laufe hierfür in Rasterschritten über den Bereich und ermittle die Eigenschaften jedes Rasterpunktes. Ist der Typenname eine Schraffur (AcDbHatch ) soll er zum nächsten Rasterpunkt gehen, findet er etwas anderes ...
|
| 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:20 Uhr (0)
Der Code ist ja ganz gut und schön, aber diese Werte will ich doch gar nicht? Ich will keine Blockattribute haben. Sondern wie schon erwähnt: Blockname, ObjectID der Blöcke, Koordinaten des Basispunktes der Blöcke und den Drehwinkel der Blöcke in eine Excel-Tabelle ausgeben. Das klappt ja auch alles, nur stellt er mir die Werte des Drehwinkels auf Grund des Problems RAD -- DEG nicht richtig dar. Ich habe auch schon die Umrechnung versucht, habe mit Runden gearbeitet - aber es ändert sich einfach nichts. ...
|
| 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:19 Uhr (0)
Also so sieht mein Code derzeit aus. Was mir noch nicht gefällt, ist, dass er mir die Koordinaten der Blöcke mit etlichen Stellen ausliest. Kann ich da irgendwas dran deichseln, dass der mir z.B. nur zwei Nachkommastellen einträgt? Sub ReadBlockProperties() Dim AcMapEntity As AcadEntity Dim AcMapBlock As AcadBlockReference Dim fso As FileSystemObject Set fso = New FileSystemObject Dim TxtFile As TextStream Set TxtFile = fso.OpenTextFile("v:ausgabe.xls", ForWriting, True) For Each AcMapEntity In ThisDrawin ...
|
| In das Form Autocad VBA wechseln |
