|
Rund um AutoCAD : Formatieren einer Schraffurfläche in eienr Anmerkung
Stelli1 am 28.09.2012 um 12:21 Uhr (0)
HalloA,um dann wieder an den ersten Baum zurückzukehren.Mit ^AcDbHatch.Geometrie.Fläche wird mir die Fläche ausgegeben.Für Extract der Daten ist das in Ordnung. Aber für die Zeichnung sollte da eine Rundung rein.Noch eine Idee?Mit den Map Funktionen (von 2013) und SQLite oder Oracle mit einem Label wäre das kein Problem.Aber hier sollte es so gemacht werden.Wilfried Stelberg------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : PDF-Plot AutoCAD 2009
Stelli1 am 17.03.2009 um 20:39 Uhr (0)
Hallo Elmar,herzlich willkommen auf CAD.de Ich kann dein Problem so nicht nachvollziehen.Hast du Rasterbilder in deiner Zeichnung oder kommen auch die Vektoren nicht sauber raus ?Wenn Rasterbilder drin sind, sind diese über Bildeinfügen oder über die Darstellungsverwaltung eingebunden ?Hast du schon mal mit dem DWG to PDF "Plotter" von 2009 probiert ? Wilfried Stelberg------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form Rund um AutoCAD wechseln |
|
AutoCAD VBA : Objekte innerhalb Schraffur auswählen
Stelli1 am 13.11.2012 um 20:12 Uhr (0)
Hallo,wenn du doch über die Texte gehst, kannst du die Textkoordinate auslesen.Dann schau mal in der Hilfe nach SelectAtPoint nach.Damit lässt du in der Zeichnung nach Objekten an dieser Koordinate suchen.Da sollte dann auch diene Schraffur bei sein.Wichtig ist, dass sich das zu suchende Objekt im sichtbaren Ausschnitt befindet.Also vorher Zoom Grenzen oder an die Textkoordinate.Wilfrid Stelberg------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Alle AcadCircle und Polygone durchlaufen
Stelli1 am 09.08.2007 um 20:28 Uhr (0)
Hallo Peter,wäre dein Profil von Anfang an ausgefüllt gewesen hätte ich sehen können das du mit Isybau wahrscheinlich nichts anfangen kannst. Gibt es in Österreich nichts ähnliches ?Zum AutCAD Problem:Du musst dir zuerst ein Selectionset bilden (gibts jede Menge Beispiele in Forum)Am Selectionset hängen einige Methoden um eine Auswahl -auch gefiltert- aus der Zeichnung zu holen.Zu jeder Methode gibt es in der AutoCAD (VBA)Hilfe ein Beispiel.Wilfried Stelberg------------------Warum lispeln wenns auch anders ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blockattribute eingeben; Layer löschen
Stelli1 am 03.07.2007 um 12:44 Uhr (0)
Hallo,dann kopier noch diese Funktion dazu.Sie ändert in der ganzen Zeichnung die Blöcke, egal ob sie verwendet werden oder nicht.Code:Public Sub AllBlocksToByBlock() Dim objBlockDef As AcadBlock For Each objBlockDef In ThisDrawing.Blocks If Not objBlockDef.IsLayout And Not objBlockDef.IsXRef Then SetBlockToDefault objBlockDef, "0", acByBlock End If Next objBlockDef ThisDrawing.Regen acAllViewportsEnd SubAnsonsten hast du in den Funktionen alle Mittel drin aus der Einzelauswahl eine Selektio ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Blockvoransicht
Stelli1 am 09.03.2007 um 15:37 Uhr (0)
Hallo Dirk,nimm doch mal die letzte Variante (die ganze SUB) von mir und kopiere diese in ein Modul. Unter Extras Verweise wählst du noch den Verweis Autocad/ObjectDBX Common 1xxx aus. Ändere den Pfad "D:Daten_PZ" in deinen gewünschten Pfad. Dann erstellst du mit Datei/Neu eine leere Zeichnung. Schalte mal den Vollbildmodus des Dokumentes aus und schieb die Größe des Fensters mal ein wenig kleiner. Dann startest du mal die Funktion Blocks2wmf und du siehst alle deine Blöcke aus allen Dateien des gewählten ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Dateiauswahl aus Verzeichnis
Stelli1 am 30.01.2006 um 11:01 Uhr (0)
Halo Ines,in dem Artikel war folgender Code: Zitat:Original erstellt von startrek:.....Code:Sub asdf() Dim f$, p$, i& p = "D:Cad" f = Dir(p & "*.dwg") i = 1 Do While f "" Documents.Open p & f With ActiveDocument MsgBox i & ": " & .WindowTitle If Not .Saved Then .Save .Close End With i = i + 1: f = Dir LoopEnd SubGruss Nancy Das ist keine Endlosschleife.Dir(p & "*.dwg") liest die erste Datei im Pfadf = Dir liest die nächste Datei. Gibst keine mehr wird die Schleife beendet. Wichti ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Speicher zugemüllt ?!?
Stelli1 am 25.04.2006 um 11:38 Uhr (0)
Hallo,ich habe nicht ganz verstanden wieso die Zeichnung 3000 geöffnet wird. Holst du Blöcke aus anderen Zeichnungen (Vorlagen) ?Bernd meint folgendes:Du deklarierst z.B. mit DIM Master_Doc as AcadDocument ein Objekt vom Typ Dokument. Mit Set Master_Doc = Thisdrawing instanzierst du eine Klasse im Speicher. Diese bleibt auch nach deinen SaveAs im Speicher.Am Ende deiner Prozedur sollest du mit Set Master_Doc= nothing die Instanz der Klasse aus dem Speicher entfernen. Schaeu doch auch mal wo deine Undo Date ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Xref-Liste erstellen
Stelli1 am 08.12.2006 um 18:33 Uhr (0)
Hey Ho wwwilli,war das jetzt ne Frage Lad dir doch mal die Blockinfo.dvb.Da fügst du in der Funktion FILLBLOCKINFO noch eine Zeile ein die prüft ob es ein Bildchen ist. Wenn du vorher noch ein Node in den Treeview einbaust bis du fertig. In dieser Funktion wird schon rekursiv in der Zeichnung gesucht. Über den Export kannst du das Ganze auch in eine Textdatei bringen.Übringens was willst du damit machen ?Wenn du eine DWG samt aller abhängigen Zeichnungen und Bilder weitergeben willst kannst du das auch m ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Attribute mit Excel abgleichen
Stelli1 am 06.02.2006 um 11:19 Uhr (0)
Hallo Sven,mit einem Verweis wird auf eine externe Bibliothek verwiesen.Mit dem Verweis hat man Zugriff auf dessen Objektmodel.Damit kannst du die darin enthaltenen Objekte und Datentypen deklarieren. Ein weiterer Vorteil ist die Kontexteingabehilde im Editor. Verweis und Projekt/Verweise der VBE.Mit einem Selektionset (AWSATZ) kannst du Teile (Auswahl) deiner Zeichnung bearbeiten. Anstatt SelectOnScreen gibt es auch die Möglichkeit alle Elemente mit einer Eigenschaft (Block) in eine Auswahl zu bringen.Alt ...
|
| In das Form Autocad VBA wechseln |
|
Autodesk GIS Produkte : Topobase: Blöcke werden nicht publiziert
Stelli1 am 08.06.2009 um 12:29 Uhr (0)
Hallo,es kommt darauf an wie du die Stilisierung gemacht hast. Die "einfache" aus Map speichert eine Referenz zur Zeichnung. Ich denke das hier ein Problem vorliegt ?Schau doch mal in die Layerdatei nach dem Export nach MapGuide bzw mal in die gespeicherte vom Client. Häng doch mal .txt an den Dateinamen und mach mal einen Upload.Bei der "erweiterten Stilisierung" werden die Blöcke "decodiert" und die Definition in das Layerfile geschrieben so das eine Referenz nicht mehr notwendig ist.Ich kanns gerade nic ...
|
| In das Form Autodesk GIS Produkte wechseln |
|
AutoCAD VBA : AcadTable und eingebettetes Projekt
Stelli1 am 02.04.2008 um 13:20 Uhr (0)
Hallo Ines,ich glaube nicht das dein Excel Makro da irgendein VBA Projekt in AutoCAD anlegt. Das ist wahrscheinlich noch der Rest aus deinen ersten Anläufen.Entferne doch mal über den VBA Manager das Projekt aus der DWG und speichere.Wenn das nicht klappt schreib doch mal alle Zeichnungselemente aus deiner Zeichnung (mit WBLOCK) in eine neue Datei. Dann sollte das DIng raus sein.Wilfried Stelberg[edit]Bei Excel hängt das VBA Projekt INHO in der XLS. Entferne doch die Daten (bis auf ein paar Musterdaten) au ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Block copieren und neu einfügen
Stelli1 am 05.09.2005 um 19:59 Uhr (0)
Hallo Fuchsi,da die Diskussion wieder aufgenommen ist.... noch die ein oder andere Frage/Problem.Mit ..Code:Dim arx As ObjectDim arx As AxDbDocumentDim col(0) As ObjectDim blockdef As AcadBlockDim acadTyp As StringacadTyp = Left$(ThisDrawing.Application.Version, 2)Set arx = ThisDrawing.Application.GetInterfaceObject("ObjectDBX.AxDbDocument." & acadTyp)arx.Open "D:Daten_PZPZ_AW_DIN.DWG" For Each blockdef In arx.Blocks If blockdef.IsLayout = False Then Set col(0) = blockdef Call arx.CopyObjec ...
|
| In das Form Autocad VBA wechseln |
