---

Hi alle zusammen,

weis jemand wie man das hier erweitern kann, dass eine mehrfach Auswahl möglich wird ?

Meine bescheidenen Kenntnisse der Lisp-Sprache sind zu bescheiden um da wirklich 'ne Lösung rauszubekommen (Lösung schon - aber funzen tut diese dann nicht...  )

Mit besten dank im voraus für sachdienliche Hinweise
(sollte es "nicht so einfach" wie ich es mir vorstelle klappen, dann bitte eine auf die Mütze  )

------------------
Grüsse

Thomas

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

---

Ungetestet:

(defun c:rgn2pline(/ AUSWAHL ENT INDEX)
  (defun rgn2pline ( ent / reg exp_objs obj_list ss)
    (and
        (eq "REGION" (cdr (assoc 0 (entget ent))))
        (setq reg (vlax-ename->vla-object ent))
        (setq exp_objs (vlax-invoke reg 'explode))
        (not (vla-delete reg));remove this to keep original region
        (setq obj_list (mapcar 'vlax-vla-object->ename exp_objs))
        (setq ss (ssadd))
        (foreach x obj_list
      (if (not (or (eq (cdr (assoc 0 (entget x))) "ELLIPSE")
          (eq (cdr (assoc 0 (entget x))) "CIRCLE")
        )
    )
    (ssadd x ss)
    )
  )
        (command "pedit" "m" ss "" "Y" "j" "" "")
        )
    (princ)
  )
 
  (setq AUSWAHL (ssget '((0 . "REGION"))))
  (setq INDEX -1)
  (repeat (sslength AUSWAHL)
    (rgn2pline (ssname AUSWAHL (setq INDEX(1+ INDEX))))
  )
)

------------------
- 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

---

Thomas war schneller, aber dann kannst Du Dir ja was aussuchen:

(defun c:rgn2pline (/ ent reg exp_objs obj_list ss aws n)
  (princ "\nBitte Regionen auswählen:")
  (setq aws (ssget '((0 . "REGION"))))
  (if aws
    (progn
      (setq n 0)
      (repeat (sslength aws)

  (and (setq ent (ssname aws n))
      (eq "REGION" (cdr (assoc 0 (entget ent))))
      (setq reg (vlax-ename->vla-object ent))
      (setq exp_objs (vlax-invoke reg 'explode))
      (setq obj_list (mapcar 'vlax-vla-object->ename exp_objs))
      (setq ss (ssadd))
      (foreach x obj_list
(ssadd x ss)
)
      (command "pedit" "_m" ss "" "_Y" "_j" "" "")
      ;(command "pedit" "O" ss ""  "j" "v" "" "")
      )
(setq n (+ n 1))))
    (alert " Die Auswahl war leer."))
  (princ)
  )

------------------
viele Grüße

Jörn

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