---

Hallo zusammen,

34 PKT_BLK  Austauschen von Punkten gegen Blöcke. Mit diesem Tool lassen sich Punkte gegen Blöcke tauschen.

Gibt es sowas auch für Kreise?

Oder setze mir in allen Kreismittelpunkte eine Punkt?

Mein Problem:
Ich habe eine Zeichnung mit Flächenkreise in diesem die Information
undurchlässige Fläche, Flächengröße etc. drinstehen. Alles einzelne Elemente.
Der Auftrageber wünscht sich aber keinen Kreis sondern ein Rechteck mit hinterlegter weißer Schraffur.

Ich hoffe ihr versteht mein Anliegen.

LG
Dimitra

------------------
geht nicht.. gibts nicht

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

---

ja, ist machbar .. / Bsp.dwg wäre wie immer hilfreich ..

------------------
Also ich finde Unities gut ...
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

flaechen_text.dwg

links aussen habe ich noch den Block (rechteck) eingefügt

------------------
geht nicht.. gibts nicht

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

---

der Schnipsel in die Befehlszeile kopiert sollte reichen :

(if(and(setq A(ssget "_x" (list'(0 . "CIRCLE")(cons 410 (getvar"CTAB")))))
      (tblobjname "BLOCK" "rechteck")
  )   
  (mapcar
    '(lambda(X)(command "_-insert" "rechteck" (cdr(assoc 10 (entget (cadr X)))) 1.0 1.0 0))
    (ssnamex A)
  )
)

------------------
Also ich finde Unities gut ...
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Vielen Dank für die schnelle Hilfe,
ich bin sprachlos.
Mein Chef sagt das ist mehr Wert als ein Strauß Rosen!
Also dann vielen lieben Dank für die Blumen 

LG Dimitra

------------------
geht nicht.. gibts nicht

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

---

Zitat:

---

Original erstellt von Dimitra75:
Vielen Dank für die schnelle Hilfe,
ich bin sprachlos.
Mein Chef sagt das ist mehr Wert als ein Strauß Rosen!
Also dann vielen lieben Dank für die Blumen  

LG Dimitra

---

.. dann erklär doch deinem Chef , dass man mit kleinen Programmierungen oft sehr viel Zeit und damit auch Geld sparen kann ... überleg dir die Zeit, die du dran gesessen hättest, nimm deinen Stundensatz und rechne dann den Aufwand oder die Kosten für solche "Tools" dagegen( auch wenn er diesmal für dich 0 war )...

Danke für deine Danke.

------------------
Also ich finde Unities gut ...
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo zusammen,
kann man auch Schraffuren gegen Blöcke austauschen?

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

---

Hallo CADxxx,
grundsätzlich kann man alles gegen etwas anderes austauschen.

Die Frage ist nur: Was soll beim Austausch in welcher Weise berücksichtigt werden ?
Hier also: Welche Daten der Schraffur sollen den entsprechen den Block wie beeinflussen ?

- wo liegt der Einfügepunkt ? ... Geometrisches Mittel der Schraffur ?
- wie wird die Skalierung ermittelt ? ... Skalierung der Schraffur ?
- Blockdrehung ? ... Schraffurwinkel ?
- Gibt es Attribute ?
- Farbe, Linientyp,
- und vielleicht noch irgendwas

Erklär mal was du genau vorhast.

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

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

---

Beispiel.dwg

Hallo Andreas,
die Eigenschaften der Schraffur sind nicht zu berücksichtigen.
Der Einfügepunkt des Blockes ist der Mittelpunkt der Schraffur.
Wenn das auch noch geht, der Block soll 
parallel zur nächstliegende Linie sein.
Im Anhang ist ein Beispiel.
Vielen Dank im Voraus!

[Diese Nachricht wurde von CADxxx am 01. Okt. 2013 editiert.]

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

---

die basis einer Schraffur kannst du so ermitteln

Code:

---

(if(and
    (setq ent (car (entsel "\nSchraffur wählen:")))
    (setq obj (vlax-ename->vla-object ent))
    (not(vlax-invoke-method obj 'GetBoundingBox 'pt1 'pt2))
    )
  (if(setq basept
    (mapcar '* '(0.5 0.5 0.5) (mapcar '+ (vlax-safearray->list pt1) (vlax-safearray->list pt2)))
        basept (trans basept 0 1))
    (command"_insert" "BLOCKNAME" basept "1" "1" "0")
    )
  )

---

Die Ausrichtung des Inserts wird aber dann schwieriger, da erst das Linienobjekt gefunden werden muss.
Programmtechnisch sicher lösbar.

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

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

---

Ja, ist lösbar.
Das hat Spass gemacht.
Mal was anderes.
Ich hab mit neu erstellten Umgrenzungen gearbeitet, weil ich ja nicht sicher sein kann dass schon assoziative Umgrenzungen da sind.

Hier das Lisp (ohne Fehlerbearbeitung, einfach dreckig runtergetippt):

Code:

---

(defun c:hatch2blk (/ BASEPT DATA ENT_DATA MEM_AUNITS OBJ PT1 PT2 W)
  (command "_undo" "_be")
  (setq mem_aunits (getvar "aunits"))
  (setvar "aunits" 3)
  (foreach ent (vl-remove-if-not
'(lambda (dummy) (= (type dummy) 'ENAME))
(mapcar 'cadr (ssnamex (ssget '((0 . "HATCH")))))
      )

;;;    hier der Teil von CADWiesel
    (if (and
  (setq obj (vlax-ename->vla-object ent))
  (not (vlax-invoke-method obj 'GetBoundingBox 'pt1 'pt2))
)
      (if (setq basept
      (mapcar '*
      '(0.5 0.5 0.5)
      (mapcar '+
      (vlax-safearray->list pt1)
      (vlax-safearray->list pt2)
      )
      )
basept (trans basept 0 1)
  )

;;; hier, vor der Blockeinfügung, die Ermittlung der nächstgelegenen Linie
;;; (naja, nicht nur Linie. Wenn wenn ein Bogensegment gefunden wird, wird das verwendet. Das hab ich jetzt nicht extra raugefiltert.)
(progn
  (command "_-hatchedit" ent "_b" "_p" "_y")
  (setq ent_data (entget ent))
  (setq
    w
    (cadar
      (vl-sort
(mapcar
  '(lambda (obj)
      (list (distance basept
      (vlax-curve-getClosestPointTo
obj
basept
      )
    )
    (angle basept
  (vlax-curve-getClosestPointTo
    obj
    basept
  )
    )
      )
    )
  (mapcar
    '(lambda (data)
(vlax-ename->vla-object (cdr (assoc -1 data)))
      )
    (vl-remove-if
      '(lambda (data)
  (= (cdr (assoc 0 data)) "BLOCK_RECORD")
)
      (mapcar
'entget
(mapcar 'cdr
(vl-remove-if-not
  '(lambda (data) (= (car data) 330))
  ent_data
)
)
      )
    )
  )
)
'(lambda (d1 d2) (< (car d1) (car d2)))
      )
    )
  )
;;;   und rein mit dem Block
  (command "_insert" "kreuz" basept "1" "1" w)
)
      )
    )

;;;    Wenn die neu erstellten Umgrenzungen bestehen bleiben sollen, dieses mapcar auskommentieren
    (mapcar 'vla-delete
    (mapcar
      '(lambda (data)
(vlax-ename->vla-object (cdr (assoc -1 data)))
      )
      (vl-remove-if
'(lambda (data) (= (cdr (assoc 0 data)) "BLOCK_RECORD"))
(mapcar 'entget
(mapcar 'cdr
(vl-remove-if-not
  '(lambda (data) (= (car data) 330))
  ent_data
)
)
)
      )
    )
    )
;;;  Schraffur löschen
    (entdel ent)
  )
  (setvar "aunits" mem_aunits)
  (command "_undo" "_e")
  (princ)
)

---

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

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