(ssget (getpoint))

[Matt666]

Salut !!

Je suis bloqué sur un lisp, parce que je n'arrive pas à sélectionner plus d'un objet qui passe par un point...

 

Je m'en remets à vous...

Exemple : 4 lignes passant par un point. Je veux sélectionner ces 4 lignes en pointant sur leur point d'intersection.

 

Normalement avec (ssget pt), on peut sélectionner l'entité au-dessus de toutes les autres.

Maintenant j'aimerais sélectionner TOUTES les lignes en une seule saisie...

Comment faire ??

 

C'est surement simple, avec le nombre de paramètres de la fonction ssget !

 

Merci d'avance !

Matt.

[Bred]

Salut,

personnelement, je ne vois qu'une manière... peut-être y en a t'il d'autre....

(Taper sans tests, dis moi si ça fonctionne...)

 

(defun getline-inter ()
(setq p (getpoint "\n sélectionner le point d'intersection :")
     sel (ssget "_X" '((0 . "LINE"))))
(repeat (setq i (sslength sel))
 (if (not
(inters '(0 0 0)
	p
	(cdr (assoc 10 (entget (ssname sel (setq i (1- i))))))
	(cdr (assoc 11 (entget (ssname sel i))))
	T))
   (ssdel (ssname sel i) sel)
   )
 )
 sel
 )

[Matt666]

Ah oui ok je vois... Par un inters !

Mon problème est que ce ne sont pas forcément que des lignes... Des polylignes par exemple !!

Aille..

 

Merci je teste ça !

Matt.

[bonuscad]

Le mode "Capture" ("_Crossing") de ssget accepte des points confondus

 

donc:

(initget 1)
(ssget "_C" (setvar "LASTPOINT" (getpoint "\nPoint de sélection: ")) (getvar "LASTPOINT"))

 

devrait fonctionner comme tu l'espère.

activer "OSMODE" et y mettre la valeur booléenne 32 auparavant, serait peut être aussi plus fonctionnel.

[Bred]

Le mode "Capture" ("_Crossing") de ssget accepte des points confondus

Superbe !

[Matt666]

Salut BonusCAD..

 

Merci pour cette solution, elle fonctionne... Sur autoCAD ! Et pas sur BricsCAD :(

Sniff...

Mais merci quand même !

 

Bred, tout à fais d'accord !!

[Patrick_35]

Salut

 

plus court ;)

 

(setq js (ssget "_c" (setq pt (getpoint)) pt))

 

@+