---

hi !

ich habe folgenden code für die auswahl von elementen:

Code:

---

(setq selected_elements
(SSGET "_C" p_ur p_ol '((0 . "LINE,ARC,LWPOLYLINE")))
)

---

p_ur und p_ol sind listen mit punktkoordinaten.

die werte für p_ur und p_ol sind beispielhaft um dort fehler auszuschließen:

Zitat:

---

p_ur: (322.276 99.0865 0)
p_ol: (311.05 110.312 0)

---

wenn ich in der lisp-funktion die elementauswahl durchführe, dann werden keine elemente gefunden. da p_ur und p_ol mit werten an der befehlszeile verfügbar sind habe ich den code auch dort einmal ausprobliert und es werden die gesuchten elemente gefunden.

kann mir einer von euch sage worin der fehler liegen könnte ?

das merkwürdige ist mal wieder, dass es schon einmal funktioniert hat.

------------------
jan :-)

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

---

Hallo Jan,
war der Auswahlbereich eventuell zum Zeitpunkt der Ausführung nicht im sichtbaren Bereich?
Schalte doch ein (command "_.zoom" "_w" p_ur p_ol) davor, falls es so sein sollte.

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

Jörn

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

---

Hi !

ich habe alles nochmal ausprobiert und irgendwie bekomme ich kein Ergebnis - habe das auch nochmal mit einem anderen CAD.DE'ler ausprobiert.

Auch kein Erfolg - und deshalb hier nochmal der gesamte Mustercode.

Vielleicht hat einer von Euch mehr Ideen - Versionen 2006-2008 !!

Gruß Jan :-)

Code:

---

(DEFUN c:flae_test (
/ farbe
;;p_ul       p_ur
;;p_ol       p_or
r_mitte h_mitte
links rechts
oben unten
  FlaeToolAsk4GetElements#center
  *FlaeToolAsk4SearArea*
)

(setq FlaeToolAsk4GetElements#center (getpoint "\nwähle einen Punkt: "))
(setq *FlaeToolAsk4SearArea* (getdist "\ndefiniere einen Suchradius: "))
 
 
  (setq
    ;;split center-coord
    r_mitte (car FlaeToolAsk4GetElements#center)
    h_mitte (cadr FlaeToolAsk4GetElements#center)

    ;;calculate coord-values for the window-corners
    links  (- r_mitte *FlaeToolAsk4SearArea*)
    rechts  (+ r_mitte *FlaeToolAsk4SearArea*)
    oben    (+ h_mitte *FlaeToolAsk4SearArea*)
    unten  (- h_mitte *FlaeToolAsk4SearArea*)

    ;;coordinates for the point top-left (p_ol) and button-right (p_or)
    p_ul    (list links unten )
    p_ur    (list rechts unten )
    p_ol    (list links oben )
    p_or    (list rechts oben )
    ) ;end-setq

  ;;zoom need window for selection
  (command "_.zoom" "_w" p_ul p_or)
  ;;nochmal um alles zu sehen
  (command "_.zoom" "fa" 0.8)

  (princ "\np_ur: ")
  (princ p_ur)
  (princ "\np_ol: ")
  (princ p_ol)

  (setq selected_elements
(SSGET "_c"
p_ur
p_ol
'((0 . "LINE,ARC,LWPOLYLINE"))
)
) ;end-setq

(command "rechteck" p_ul p_or)

 
  (command "_.zoom" "_p") ;0.8 rückgängig
  (command "_.zoom" "_p") ;ausgangssituation
  selected_elements ;Rückgabewert
  )

---

------------------
jan :-)

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

---

hallo rabbit007,

den suchradius frage ich hier nur ab um einen wert zu haben - ansonsten werden die daten an die funktion übergeben.

das das mit der befehlszeile funktioniert hatte ich ausprobiert:

Zitat:

---

da p_ur und p_ol mit werten an der befehlszeile verfügbar sind habe ich den code auch dort einmal ausprobliert und es werden die gesuchten elemente gefunden.

---

gruß Jan :-)

------------------
jan :-)

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