Selection en pointant dans un polygone

[fabcad]

quelqu'un aurait il dévellopper en lisp ou vlisp une routine pour Selectionner un polygone en pointant à l'intérieur.

Je suis preneur!

[rebcao]

NON ! mais en sélectionnant le polygonne....

 

Je pense qu'il faudrait juste l'adapter...

 

Christian

 

[Edité le 22/6/2006 par rebcao]

[bonuscad]

Sans trop savoir dans quel configuration tu dois executer cette action.

Les polygones sont vides ou couper entièrement par d'autre entités?

 

Essayes déjà ce bout de code voir si cela peut te rendre service, si c'est l'environnement est plus complexe, une solution simple sera difficile à mettre en place.

 

((lambda ( / ent dxf_ent lst)
(setvar "HPBOUND" 1)
(setq ent (bpoly (getpoint "\nPoint interne: ")))
(cond
	(ent
		(setq
			dxf_ent (entget ent)
			lst (mapcar '(lambda (x) (trans x ent 1)) (mapcar 'cdr (vl-remove-if '(lambda (x) (/= (car x) 10)) dxf_ent)))
		)
		(entdel ent)
		(if (zerop (getvar "pickfirst")) (setvar "pickfirst" 1))
		(setq ent (nentselp (car lst)))
		(sssetfirst nil (ssadd (car ent)))
	)
)
(prin1)
))