---

Hallo Newsgroup!

Ich habe folgendes Problem. Bekomme von INtergraph Ginius eine DWG-Datei, die allerdings die ganzen Flurstückspunkte (normalerweise Kreise) als Symbol darstellt, sprich, Text. Da ich die Zeichung aber in Autocad weiterbearbeite und weitergeben will, möchte ich nicht jedesmal die Symbol.shx (die kreiirt wird) mitgeben.
Der Text, bzw. das Symbol für den Kreis ist auch nicht gerade schön und macht die DWG unnötig groß...

Habe auch versucht, den Text als Block abzuspeichern, diesen dann austauschen mit einem "Kreis-Block" und den dann auflösen, aber das ist wohl auch nicht zu automatisieren...!?!?!

Ich bräuchte jetzt eine Routine, die einen vorherigen Auswahlsatz bearbeitet, die z.b. nach einem "D" oder "B" sucht (sollte vielleicht als Auswahl bestimmt werden können), als Text und diesen dann löscht und auf dem Basispunkt vom vorherigen gelöschten Text (immer nur 1 Zeichen) einen Kreis mit einer Angabe vom Durchmesser zeichnen sollte.

Da ich mich mit Sauswahl und die Änderung dieser nicht auskenne, würde ich mir jetzt einen Wolf suchen, in Sachen Lisp ist das bestimmt nur ein kleiner Code, wenn man die Abfragen (Buchstabenauswahl und Größe vom Kreis) weglassen würde...

Mit Datenextrakt habe ich zwar schon eine CSV erstellt mit 380000 Objekten, allerdings holt er vom Text immer den "unten-links"-Punkt - und nicht den Basispunkt (ist wohl nicht wählbar... :-( ). Davon hätte ich mit NOtepad++ ein Script erstellen können, aber die Position vom Kreis wäre dann immer falsch...

Hat jemand eine Idee, wie sowas mit 2-3 Zeilen schnell umsetzbar wäre? Mit dem Aktionsrekorder kann ich sowas wohl auch nicht "lösen"?

Vielen Dank für die Tipps, Bemühungen, Lösungen, Ansätze oder Beschimpfungen... :-)

------------------
Bis dann,
  Arwed Fränken

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hier mal ein Ansatz

Code:

---

(vl-load-com)
(mapcar'(lambda(x / elem base)
  (setq elem(entget x))
  (if(setq base(assoc 10 elem))
  (entmake
      (list
        '(0 . "CIRCLE")
        '(100 . "AcDbEntity")
        (cons 8 "0")
        '(100 . "AcDbCircle")
        base
        (cons 40 0.5);Durchmesser
        '(210 0.0 0.0 1.0)
        ) ;_ end of list
      )
  )
  (if elem(entdel x))
  )
  (if(setq aw(ssget "X" '((0 . "TEXT")(1 . "D"))))(vl-remove-if 'listp(mapcar 'cadr (ssnamex aw))))
  )

---

------------------
Gruß
CADwiesel
Besucht uns im CHAT

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ui, das ging ja fix, Dankeschön! Ich werds morgen früh direkt ausprobieren!

Vielen Dank!

------------------
Bis dann,
  Arwed Fränken

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Freu dich nicht zu früh, da gibt es das gleiche Problem wie mit deiner CSV Vorbereitung  
(Aber du hättest und kannst es immer noch einfach die Textausrichtung auf Links stellen, damit wäre das Problem von deiner Seite aus gelöst   )

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Cadwiesel!

Ist sehr fix das Tool, nicht mehr wie eine Minute bei der Auswahl mit "D", allerdings ist hier der Kreismittelpunkt am Einfügepunkt unten links vom Text! Der Einfügepunkt vom Kreismittelpunkt sollte aber der Mittelpunkt, bzw. Mitte zentriert vom Text sein - auch wenn der Text wohl Unten links eingefügt wurde von Intergraph...

Autocad zeigt mir als Fang von dem Text den "Basispunkt" an, wobei das ja ein "Symbol" ist..

------------------
Bis dann,
  Arwed Fränken

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ok, zu früh gefreut..., aber trotzdem schon gut! ;-)

------------------
Bis dann,
  Arwed Fränken

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von zimmernagel:
auch wenn der Text wohl Unten links eingefügt wurde von Intergraph...

---

Dann muß ich meinen vorherigen Tipp erweitern:
Setze zuerst den Basispunkt aus MitteZentriert über den Befehl: ZENTRTEXTAUSR,
danach stelle den Basispunkt über das Eigenschaftenfeld auf Links. Allerdings bei 400.000 Objekten..

PS: Das nächste Mal ein kleines DWG-Beispiel, oder zwei: Vorher/Nachher, das raubt weniger Zeit und du hast die Lösung schneller (nur ein Tip).

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

teil1-test.dwg

Hallo cadffm!

Danke für den Tipp, allerdings hat das mit der Umformatierung mit Links nicht so geklappt. Der Kreis ist jetzt eher noch weiter weg vom eigentlichen "Basispunkt", wo er hin soll. Vielleicht sieht man das ja besser in der Zeichnung, wo der Flurstückspunkt, bzw. Kreis hinsoll... ;-)

Anhang ist eine 2018er AutoCAD-DWG...

------------------
Bis dann,
  Arwed Fränken

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

180724_Kreis.JPG

Hallo Arwed,

also bei mir funktiooniert das. Wenn Du erst die Ausrichtung der Texte auf Links stellst und dann den Code lädst.
Siehe Bildchen, ich habe erst ein D gewählt, dann mit "ähnliche wählen" alle diese Texte ausgewählt. Dann im Eigenschaftenfenster die Ausrichtung geändert (sieht man ja am "B" wie die jetzt ist), und anschließen den Code geladen. Fertig.

HTH
Gruß
Thomas

Bild noch drangehangen

[Diese Nachricht wurde von spider_dd am 24. Jul. 2018 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Damit du noch vor dem Wochenende ferig wirst, hab' ich dir das Toolchen mal etwas zugeschnitten...
Passt, wackelt und hat Luft!

Code:

---

(defun c:txt2Kreis( / aw suchstring)
(vl-load-com)
  (if(setq suchstring(getstring"\nSuchstring eingeben: "))
(mapcar'(lambda(x / elem base)
  (setq elem(entget x))
  (if(setq base(cdr(assoc 11 elem)))
  (entmake
      (list
        '(0 . "CIRCLE")
        '(100 . "AcDbEntity")
        (cons 8 "0")
        (cons 62 (abs(- 256(apply '+(vl-string->list suchstring)))));das mit der Farbe für unterschiedliche Texte fand ich auch nicht schlecht
        '(100 . "AcDbCircle")
        (cons 10 base)
        (cons 40 0.5);Durchmesser
        '(210 0.0 0.0 1.0)
        )
      )
  )
  (if elem(entdel x))
  )
  (if(setq aw(ssget "X" (list '(0 . "TEXT")(cons 1 suchstring))))(vl-remove-if 'listp(mapcar 'cadr (ssnamex aw))))
  )
  )
  (princ)
)

---

------------------
Gruß
CADwiesel
Besucht uns im CHAT

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi, ja, danke, bei der kleinen Zeichnung, die ich hier im anhang hatte, ging das. Meine 1. Zeichnung von 4 Stück hat allein 70 mb, und da sieht man beim Eigenschaftsfenster leider nix mehr... :-(

Ich werde jetzt mal das Tool probieren, was mir Cadwiesel grad hier geschrieben hat, dann schau ich mal!

Aber danke für das Ausprobieren Spider_DD! Und Danke für das Tool, Cadwiesel!!!

So wie's aussieht, kann das Wochenende kommen... *UFF* *schwitz*

------------------
Bis dann,
  Arwed Fränken

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Auch wenn es mit dem zugeschnitten Proggi nun erledigt ist, noch ein Tipp zum ... da sieht man beim Eigenschaftsfenster leider nix mehr...

Bei den Optionen auf dem Reiter Auswahl kann man die Anzahl der "Objektgrenze für Eigenschaftenpalette" hochdrehen. Dann klappt das auch wieder dort.

Gruß
Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Suuuupi, klappt einwandfrei, 380.000 Elemente in 45 sek umgesetzt! Und das sogar noch in Farbe...

Vielen Dank!

Gibt's eigentlich die Möglichkeit das Eigenschaftsfenster aufzuschrauben, dass der auch bei einer Auswahl von mehr wie 32768 Objekte noch was anzeigt??? :-/

------------------
Bis dann,
  Arwed Fränken

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke Cadwiesel!

Jetzt wär's nur noch gut, wenn ich trotzdem alle Kreise in "weiss" hätte... :-(

Bekomme das über das Eig.-fenster nicht mehr geändert, zeigt mir ja nicht mehr an....

------------------
Bis dann,
  Arwed Fränken

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Mußt Du ja auch nicht  

http://forum.cad.de/foren/ubb/Forum52/HTML/004955.shtml#000003

PS: Dir ist aber schon klar, dass grad bei solchen Vermessungsdingen manche sogar beim Tiefbauer auf den auf mm gucken? Wenn es irgendwie möglich wäre, würde ich solche Dateien grundsätzlich neu anfordern und nicht (von Fremden!) dran rumbasteln lassen.

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Was nützt mir die MM-Genauigkeit, wenn mein GPS-Stäbchen eine Genauigkeit von 15 mm minimal hat!?!?!? ;-)

------------------
Bis dann,
  Arwed Fränken

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

De Zeile

Code:

---

(cons 62 (abs(- 256(apply '+(vl-string->list suchstring)))))

---

auskommentieren (Semikolon davor)
Layer wird an dieser Stelle geändert

Code:

---

(cons 8 "0")

---

Ersetze "0" durch "DeinLayerName"

------------------
Gruß
CADwiesel
Besucht uns im CHAT

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von zimmernagel:
Danke Cadwiesel!

Bekomme das über das Eig.-fenster nicht mehr geändert, zeigt mir ja nicht mehr an....

---

Hilft dir diesbezüglich evtl. die Sysvar "PROPOBJLIMIT" weiter? Ausgangswert ist 25000, also 25000 Objekte werden in dem Eig.Fenster angezeigt. Wählst du mehr aus, wird im Eig.Fenster nichtsmehr angezeigt. Ich habe sie standardmäßig auf "0", damit ist die Einschränkung ausgeschaltet  

Gruß
Jörg

Edit: Ach das steht es ja schon weiter oben von Spider_dd... Ich schiebs auf die Hitze :P

------------------
Wer immer tut, was er schon kann, bleibt immer das, was er schon ist.

[Diese Nachricht wurde von C4DP4P57 am 25. Jul. 2018 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Und selbst wenn man spider_dd nicht gelesen hat, könnte man den alternativen Weg aus meinem link beschreiten...
Danke für's aufmerksame Lesen meiner Antworten! 

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das mit den Layern ist superpraktisch, dann kann man schneller filtern und anpassen! Ansonsten sage ich allen Vielen Dank. Bedingt dadurch das Ginius (Auskunftsystem von uns) die Grenzsteine mit Schriftart darstellt, und wir alle 3 Monate neue Karten bekommen, ich aber hier Civil 3d 2019 habe, ist die Lösung mit den Schriftarteneinbinden in AutoCAD zwar eine Lösung, um die Darstellung richtig zu bekommen, aber für die Vermessung und spätere Bearbeitung ist es mir lieber einen richtigen Kreis zu haben!!! ;-)

------------------
Bis dann,
  Arwed Fränken

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP