Aller au contenu

Selection en pointant dans un polygone


Messages recommandés

Posté(e)

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

Choisissez un travail que vous aimez et vous n'aurez pas à travailler un seul jour de votre vie. - Confucius

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité