Nettoyer \"permanant\"

[litelsousa]

Bonjour à tous et surtout BONNE ANNEE!!!

 

Existe t'il une façon de faire un "nettoyer permanant", à savoir que les objets hors cadre ne soient pas juste cachés mais supprimés (et si besoin est ajustés).

 

ça doit bien exister mais même sur le forum je n'ai pas trouvé!!!

 

Merci

[didier]

Coucou

 

ça doit bien exister mais même sur le forum je n'ai pas trouvé!!!

 

bien présomptueux !

 

c'est quoi HORS CADRE ?

 

amicalement

[litelsousa]

Ce serait par exemple la polyligne fermée de la commande nettoyer

[didier]

coucou

 

encore une fois le vocabulaire nous a piégés...

 

pour Toi, nettoyer c'est WIPEOUT

pour moi nettoyer c'est nettoyer, donc supprimer

 

je pense qu'il suffit de temps en temps

de remettre en ORDRETRACE AVANT

ton WIPEOUT

 

(tu mets çà dans un bouton ou dans un lisp de deux lignes)

 

amicalement

[litelsousa]

Non je veux supprimer tout ce qui est hors de mon cadre.

 

la commande "wipeout" ne fais que me cacher ce qui est hors de mon cadre.

 

(c'est quand même vachement dur d'expliquer avec des mots ce qu'on veut à l'écran...)

[bonuscad]

Non je veux supprimer tout ce qui est hors de mon cadre.

 

La commande _EXTRIM peut ajuster automatiquement à ta polyligne servant de cadre. Après tu achève avec la commande EFFACER (_ERASE) ce qui n'a pas été fait.

[litelsousa]

Ahah voilà qui est déjà très intéressant, merci

 

Il faut plus que je trouve la suite... demain

[didier]

coucou

 

comment çà c'est dur d'exprimer ...

 

tu veux supprimer les entités

utilise le mot EFFACER

 

tu veux garder ce qu'il y a à l'intérieur du cadre

utilise le mot AJUSTER

 

tu veux cacher les entités hors cadre

utilise le mot WIPEOUT.

 

je ne sais pas...,

mais pour aider les gens il faut les comprendre

pour se faire comprendre, il faut s'exprimer....

 

excuse la lassitude mais c'est récurrent.

je fais de gros efforts de mise en page

et de vocabulaire pour questionner et répondre.

 

 

amicalement, bien sûr

[rebcao]

Bonsoir,

 

Pour moi NETTOYER = WIPEOUT car la commande qui crée les fameux WIPEOUT s'appelle NETTOYER ! (Menu Dessin, depuis les versions 2004 et LT 2004)

 

De plus depuis la version 2009, l'objet s'appelle également NETTOYER (= WIPEOUT)

 

Christian

 

 

 

[Edité le 11/1/2011 par rebcao]

[LUDWIG]

Tu peux aussi créer une fenêtre de présentation à l'échelle 1 (ou 10, ou 0,1) qui n'affiche que ce que tu souhaites avoir (en terme de calque et de délimitation de dessin).

 

Tu utilises ensuite la commande exportpresent et tu génères un dwg de ce que tu voies dans la présentation (mis à l'échelle suivant l'échelle choisie pour la fenêtre). Je ne sais pas comment ça fonctionne avec les fenêtres polygonales.

 

http://docs.autodesk.com/ACD/2011/FRA/filesAUG/WS1a9193826455f5ff871a2511502a31f63-76e9.htm

 

[Edité le 11/1/2011 par LUDWIG]

[didier]

coucou

 

je te l'accorde Rebcao, WIPEOUT est identique à NETTOYER.

 

mais le mot nettoyer veut dire tellement de choses

que lors de la prochaine traduction du logiciel,

va savoir s'ils ne vont pas clarifier les choses en utilisant un autre mot.

 

ai-je besoin de te rappeler les PLANS qui sont devenus CALQUES

et pourquoi pas COUCHES dans une future traduction exotique.

heureusement que les américains

sont plus constants dans leurs noms de commandes.

 

c'est pour cette raison que j'enfonce le clou

avec une utilisation EXPLICITE des mots.

 

amicalement

[pascal19]

bonjour

j'ai eu une manip similaire à faire sur plusieurs fichier j'ai donc fait le script utilisant:

 

WP2PL pour transformer le nettoyer en polyligne

 

;; WO2PL (gile)
;; Recrée le contour des wipeouts (lwpolyline)
(defun c:wo2pl (/ ss n wo elst pts norm)
 (if (setq ss (ssget '((0 . "WIPEOUT"))))
   (repeat (setq n (sslength ss))
     (setq wo	 (ssname ss (setq n (1- n)))
    elst (entget wo)
    norm (vunit (v^v (cdr (assoc 11 elst)) (cdr (assoc 12 elst))))
    pts	 (wipeout2plst wo)
     )
     (entmake
(append
  (list	'(0 . "LWPOLYLINE")
	'(100 . "AcDbEntity")
	'(100 . "AcDbPolyline")
	(cons 90 (length pts))
	(cons 38 (caddr (trans (car pts) 0 norm)))
	'(70 . 1)
	(cons 210 norm)
  )
  (mapcar '(lambda (pt)
	     (setq pt (trans pt 0 norm))
	     (list 10 (car pt) (cadr pt))
	   )
	  pts
  )
)
     )
   )
 )
 (princ)
)

;;Wipeout2Plst (gile)
;; Retourne la liste des sommets du wipeout (coordonnées SCG)
(defun wipeout2plst (wo / elst u v mat)
 (setq	elst (entget wo)
u    (cdr (assoc 11 elst))
v    (cdr (assoc 12 elst))
mat  (list u (mapcar '- v) '(0. 0. 1.))
 )
 (mapcar
   '(lambda (p)
      (mapcar '+
       (mxv (trp mat) p)
       (mapcar '(lambda (x y) (/ (+ x y) 2.)) u v)
       (cdr (assoc 10 elst))
      )
    )
   (cdr
     (mapcar 'cdr
      (vl-remove-if-not '(lambda (x) (= (car x) 14)) elst)
     )
   )
 )
)

;; V^V (gile)
;; Retourne le produit vectoriel (vecteur) de deux vecteurs
(defun v^v (v1 v2)
 (list	(- (* (cadr v1) (caddr v2)) (* (caddr v1) (cadr v2)))
(- (* (caddr v1) (car v2)) (* (car v1) (caddr v2)))
(- (* (car v1) (cadr v2)) (* (cadr v1) (car v2)))
 )
)

;; VUNIT
;; Retourne le vecteur unitaire d'un vecteur
(defun vunit (v)
 ((lambda (l)
    (if (/= 0 l)
      (mapcar (function (lambda (x) (/ x l))) v)
    )
  )
   (distance '(0 0 0) v)
 )
)

;; Transpose a matrix Doug Wilson
(defun trp (m)
 (apply 'mapcar (cons 'list m))
)

;; Apply a transformation matrix to a vector by Vladimir Nesterovsky
(defun mxv (m v)
 (mapcar '(lambda (r) (apply '+ (mapcar '* r v))) m)
)  

 

puis ssof pour selectionner et effacer tout à l'interieur de la polyligne

 

;;; SSOF pour sélectionner tous les objets contenus, suivant
;;; la vue, dans le cercle, l'ellipse ou la polyligne.

(defun c:ssof (/ ss opt)
 (and
   (or
     (and
(setq ss (cadr (ssgetfirst)))
(= 1 (sslength ss))
     )
     (and
(sssetfirst nil nil)
(setq ss (ssget	"_:S:E"
		(list
		  '(-4 . "			  '(0 . "CIRCLE")
		  '(-4 . "			  '(0 . "ELLIPSE")
		  '(41 . 0.0)
		  (cons 42 (* 2 pi))
		  '(-4 . "AND>")
		  '(-4 . "			  '(0 . "LWPOLYLINE")
		  '(-4 . "&")
		  '(70 . 1)
		  '(-4 . "AND>")
		  '(0 . "WIPEOUT")
		  '(-4 . "OR>")
		  
		)
	 )
)
     )
   )
   (sssetfirst
     nil
     (SelByObj (ssname ss 0) "Wp" nil)
   )
 )
 (princ)
)

;;;===============================================================;;;

 

et enfin extrim (commande express) pour ajuster tout avec la polyligne comme seuil

 

cordialement

 

ps merci à gile pour les deux lisp

 

 

 

[Steven]

Salut litelsousa

 

 

 

Tu un rectangle ou une polyligne à plusieurs sommets à l'intérieur duquel tu souhaites garder les objets. à l'extérieur du même rectangle, tu as les objets que tu souhaites effacer. C'est bien ça?

 

Si c'est le cas, tu peux faire ceci:

 

Commmande: effacer (valider)

Choix des objets: TOUT (valider)

Choix des objets: s (soustraire)

Suupprimer les objets: op (pour options), tu choisis l'option CPolygone, tu valides.

Tu cliques à chaque sommet de ta polyligne et tu valides deux fois.

 

De ce fait, tout ce qu'il y a à l'xtérieur du rectangle sera effacer et tu conserveras ce qu'il y a à l'intérieur du rectangle.

 

Notes:

Les options de la commande "effacer" sont cacher. Tout comme d'autres commandes comme copier, déplacer, etc.

C'est pour ça qu'il est plus efficace d'utiliser les commandes d'AutoCAD plutôt que les commandes Windows.

 

Par exemple, si tu utilises la commande Windows Suppr pour effacer tes objets , tu ne pourras pas faire ce que je viens d'expliquer. Par contre, si tu utilises la commande AutoCAD effacer , tu n'auras jamais de soucis.

 

Voilou

;)

 

Si un petit lisp ou une maro pouvais faire d'un seul coup la succetion d'options expliqué plus haut, ça serait l"idéal :)

 

[Edité le 12/1/2011 par Steven]

[litelsousa]

Merci beaucoup à tous!!!

 

Voilà la macro que j'ai fait:

 

^C^Ceffacer;tout;s;cp;\\\\;;extrim;

 

ça me garde uniquement ce que j'ai dans mon cadre

 

Les 4 "\" m'obligent à faire un cadre rectangulair, mais je vais pas trop en demander trop quand même

[Steven]

Merci beaucoup à tous!!!

 

Voilà la macro que j'ai fait:

 

^C^Ceffacer;tout;s;cp;\\\\;;extrim;

 

ça me garde uniquement ce que j'ai dans mon cadre

 

Les 4 "\" m'obligent à faire un cadre rectangulair, mais je vais pas trop en demander trop quand même

 

C'est nickel ça :D

 

Il suffit de rajouter des \ dans la macro pour aller au-delà de 4 point. J'en ai mis 10 comme il y a de quoi voir venir.

[litelsousa]

:mad: :mad: :mad:

Bon en faite ça merde un petit peu sur les grosses bases cadastrales...

 

Mais c'est déjà ça...

[DJESNIPE]

Salut à tous,

 

Vous pouvez aussi mettre le fond de plan cadastral en bloc et utiliser la fonction xdelim.

Cela marche très bien pour masquer ce qu'il y a en dehors d'un cadre et peut aussi faire l'inverse.

[bryce]

Bonjour,

 

Attention, petite séquence "pinaillage"... :P

 

Notes:

 

Les options de la commande "effacer" sont cacher. Tout comme d'autres commandes comme copier, déplacer, etc.

 

Non, il n'y a pas d'options cachées dans les commandes dont tu parles.

CP, SP, C, F, T & Co ne sont pas des options, mais des modes de sélection utilisables lorsque l'invite est "Choix des objets :", quelle que soit la commande (sauf si la commande requiert un objet unique par ex.).

 

OP ne correspond à rien, tu pourrais aussi bien taper ? ou UP ou COUCOU ou n'importe quoi d'autre...

Comme justement AutoCAD attend un mode de sélection, si tu tapes n'importe quoi il t'affiche gentiment les réponses valides.

 

Par exemple, si tu utilises la commande Windows Suppr pour effacer tes objets , tu ne pourras pas faire ce que je viens d'expliquer. Par contre, si tu utilises la commande AutoCAD effacer , tu n'auras jamais de soucis.

 

La touche Suppr ne lance pas une commande Windows, mais la commande _erase (il suffit de regarder la ligne de commande après avoir utilisé la touche Suppr pour s'en rendre compte).

C'est exactement pareil que de sélectionner des objets, puis de cliquer sur l'icône Effacer.

Par contre, le fait de sélectionner les objets avant de lancer la commande empêche d'utiliser les modes de sélection (à moins d'utiliser la commande SELECT, mais il faut être un peu tordu).

[lecrabe]

Hello Bryce

 

Suite a tes differentes interventions, je me propose de te nommer :

"Pinailleur Adjudant Chef"

 

Dans le fond, j'aime bien les Pinailleurs !

 

lecrabe