Commande CLIP

[x_all]

bonjour...

 

sur un soft archi (Arc+), j'avais une comande Clip bien pratique

 

a partir d'une polyligne fermée, cette commande efface au choix l'exterieur ou l'interieur

 

bon bien sur, on peu s'en sortir avec ajuster et compagnie, mais si qq1 a déja vu passer un lisp pour ça, ça me rendrai bien service...(ma recherche sur cadXP a rien donner)

[Tramber]

Tu peux chercher Qbrick sur le net. Mais ca n'efface pas les objets compris dans le contour.

[usegomme]

Salut , il existe un lisp avec son dcl qui s'appelle "CUT" et qui marche pas mal.

;;;;; cut.lsp

(defun c:cut ()
;;gratuiciel
;;Enhansed Multi-Trim Commands by Bob Jones With Dialog Box interface
;;added by Jim Arthur
;;This program is an enhansment of:
;;SECTION Release1.0
;;Copyright (C) 1996, Bob Jones
;;courriel: bcjones@io.com
;;WWW: http://www.io.com/~bcjones

;;Permission to use, copy, modify, and distribute this software for any purpose
;;and without fee is hereby granted, provided that the above copyright notice
;;appears in all copies and that both that copyright notice and this permission
;;notice appear in all supporting documentation.

;;Bob Jones makes no warranty, including but not limited to any implied
;;warranties of merchantability or fitness for a particular purpose,
;;regarding the software and accompanying materials.  The software and
;;accompanying materials are provided solely on an "as-is" basis.

;;In no event shall Bob Jones be liable to any special, collateral, incidental,
;;or consequential damages in connection with or arising out of the use of
;;the software or accompanying materials.

;;This routine can be called by typing one of three commands at the command prompt.
;;All three commands will ask the user to select to corners of a rectangle.

;;The first command, SCB, will erase and trim all entities outside of the rectangle
;;and leave a polyline border.

;;The second command, SC, will erase and trim all entities outside of the rectangle
;;but will not leave a border.

;;The final command, SCD, will erase and trim all entities inside of the rectangle
;;and will not leave a border.


;;Please feel free to rename these commands as you desire.
(defun c:scb () (section t nil)); SECTION W/ BORDER
(defun c:sc () (section nil nil)); SECTION W/O BORDER
(defun c:scd () (section nil t)); DELETE INSIDE RECTANGLE


* * * * * ERROR ROUTINE * * * * *
(defun newerr (msg)
(prompt (strcat "\nSection cancelled: " msg)); PRINT ERROR
(setvar "cmdecho" cmd); RESET COMMAND ECHO
(setvar "highlight" hlt); RESET HIGHLIGHT
)


* * * * * MAIN FUNCTION * * * * *
;If the first argument has any value other than nil then the border will be left.  If it is nil
;then the border is erased.
;If the second argument is has any value other than nil then entities inside the border will be erased.
;If it is nil then entities outside the border are erase.
;For very large area drawings (maps or something), the DST variable may need to be changed.  If you
;find that not all entities are being trimmed properly try increasing the number higher than 1000.

(defun section (bdr n / olderr newerr cmd hlt p1 p2 p1x p1y p2x p2y p3 p4 dst plus minus p1a p2a p3a p4a lst)
(graphscr); CHANGE TO GRAPHICS SCREEN
(setq olderr *error* ; SET UP NEW
      *error* newerr ; ERROR ROUTINE
      cmd (getvar "cmdecho"); SAVE COMMAND ECHO SETTING
      hlt (getvar "highlight"); SAVE HIGHLIGHT SETTING
      p1 (getpoint "\nSelect first corner of rectangle: "); GET LL CORNER OF RECTANGLE
      p2 (getcorner p1 "\nSelect other corner: "); GET UR CORNER
      p1x (car p1)
      p1y (cadr p1)
      p2x (car p2)
      p2y (cadr p2)
      p3 (list p2x p1y); BUILD LR CORNER
      p4 (list p1x p2y); BUILD UL CORNER
      dst (/ (distance p1 p2) 1000.0); OFFSET FACTOR FOR TRIMMING
      plus (if n - +)
      minus (if n + -)
);END SETQ
(cond
 ((and (< p1x p2x) (< p1y p2y)); P1 IS LL CORNER
  (setq p1a (list (minus p1x dst) (minus p1y dst)); BUILD LL TRIM LINE POINT
        p2a (list (plus p2x dst) (plus p2y dst))); BUILD UR TRIM LINE POINT
 )
 ((and (> p1x p2x) (< p1y p2y)); P1 IS UL CORNER
  (setq p1a (list (plus p1x dst) (minus p1y dst)); BUILD LL TRIM LINE POINT
        p2a (list (minus p2x dst) (plus p2y dst))); BUILD UR TRIM LINE POINT
 )
 ((and (> p1x p2x) (> p1y p2y)); P1 IS UR CORNER
  (setq p1a (list (plus p1x dst) (plus p1y dst)); BUILD LL TRIM LINE POINT
        p2a (list (minus p2x dst) (minus p2y dst))); BUILD UR TRIM LINE POINT
 )
 ((and (< p1x p2x) (> p1y p2y)); P1 IS LR CORNER
  (setq p1a (list (minus p1x dst) (plus p1y dst)); BUILD LL TRIM LINE POINT
        p2a (list (plus p2x dst) (minus p2y dst))); BUILD UR TRIM LINE POINT
 )
); END COND
(setq p3a (list (car p2a) (cadr p1a)); BUILD LR TRIM LINE POINT
      p4a (list (car p1a) (cadr p2a)); BUILD UL TRIM LINE POINT
); END SETQ
(setvar "cmdecho" 0); TURN OFF COMMAND ECHO
(setvar "highlight" 0); TURN OFF HIGHLIGHT
(command "_.pline" p1 p3 p2 p4 "_c"); DRAW POLYLINE BORDER
(setq lst (entlast)); SAVE POLYLINE ENTITY NAME
(if n                                          ;ERASE ENTITIES
 (command "_.erase" "_w" p1 p2 "_r" lst "")    ;INSIDE RECTANGLE
 (command "_.erase" "_all" "_r" "_c" p1 p2 "") ;OUTSIDE RECTANGLE
); END IF
(command "_.trim" lst "" "_f" p1a p3a ""     ;TRIM ENTITIES AROUND BORDER
                         "_f" p3a p2a ""     ;DO TO THE FINICKY NATURE OF TRIMMING
                         "_f" p2a p4a ""     ;WITH THE FENCE OPTION, I HAVE USED FOUR
                         "_f" p4a p1a "" ""  ;FENCE LINES INSTEAD OF ONE LONG ONE
); END COMMAND
(if (not bdr) (entdel lst)); DELETE POLYLINE BORDER IF DESIRED
(setq *error* olderr); RESTORE ORIGINAL ERROR ROUTINE
(setvar "highlight" hlt); RESTORE HIGHLIGHT
(setvar "cmdecho" cmd); RESTORE COMMAND ECHO
(princ); EXIT CLEANLY
)
;;The following prompts are disabled when section.lsp is used with dialog box.
;(prompt "\nType SCB to create a section with a border.")
;(prompt "\nType SC to create a section without a border.")
;(prompt "\ntype SCD to delete entities inside rectangle.")
;(princ)

(defun cut_x ()
 (setq  C  0
       dcl_id (load_dialog "cut.dcl"))
 (if (not (new_dialog "cut" dcl_id))(exit))
   (action_tile "cut_outp" "(setq c 1)(done_dialog)")
   (action_tile "cut_out" "(setq c 2)(done_dialog)")
   (action_tile "cut_in" "(setq c 3)(done_dialog)")
   (action_tile "cancel" "(done_dialog)(exit)")

 (start_dialog)
 (unload_dialog dcl_id)
 (COND
      ((= C 1)(c:scb))
      ((= C 2)(c:sc))
      ((= C 3)(c:scd))
)
(princ)
)
(cut_x)
)
;;__________________________________________________________________
;;messages
(prompt "\nCut.LSP loaded - Type Cut to begin.")
(princ) 

 

;;;; cut.dcl

//  Cut.dcl
//  By: Jim Arthur
//  2/8/97
//  used with Cut.lsp

cut : dialog {
     label = "Trim In Trim Out";
:row {
  :boxed_column {
     : button {
        key = "cut_outp";
        label = "Trim Out w/ Boarder";
     }
     : button {
        key = "cut_out";
        label = "Trim Out No Boarder";
     }
     : button {
        key = "cut_in";
        label = "Trim Inside Boundry";
     }
   }
 }
 : row {
    : spacer { width = 1; }

    : button {
       label = "Cancel" ;
       is_cancel = true;
       key = "cancel" ;
       width = 8;
       fixed_width = true;
    }
    : spacer { width = 1; }
  }
} 

 

 

[x_all]

oki merci je teste ça...

 

super cool

 

mouai... les résultats sont pas super... ça coupe pas le polylignes, efface des trucs à l'interieur alors que je demande un "trim out to border"

ça part d'une fenetre rectangulaire alors que j'aurai préférer une polyligne... bref, pas bien adapté, mais ça fait quand même du boulot...

 

 

 

[Edité le 8/12/2008 par x_all]

[fabcad]

Bonjour x_al,

 

Dans les Express Tools, tu peux utiliser la fonction extrim (ajuster à l'emporte pièce).

Elle se situe dans le dossier Program Files --> AutoCAD --> Express (express tools).

 

Si çà peut t'aider...

 

Fabcad

 

[Edité le 8/12/2008 par fabcad]

[x_all]

ha !!!! pas mal l'express !!!

 

hargggg

 

bon , pas mal mais ça ne fait que créer un masque autour des objets...

 

mon soucis, c'est que je compile des plans archi (grrrr maudis archi) mais je n'ai besoin que d'un pallier sur 9 étage + sous sol

 

les plans individuels d'étages sont trés lourd alors j'hésite a insérer toutes les xref puis de gérer mes extraits dans la présentation

 

donc je fait des copier collé du bout que je veux dans un nouveau dessin.... et la hargggg l'objet porte P3 dans le plan rdc est une 90... dans le plan R+1, c'est un coulissant de placard

 

haaaaaaaaa!!!!

 

si j'ai pas moyen de couper et d'exploser mes objets faut que je retrace tout...

 

je hais les archi aujourd'hui... peuvent pas bosser avec des calques et des objet nommés judicieusement...

mais bon... bac +7... le diplome d'archi... on va pas les embéter avec des histoire de dessin...

 

[Tramber]

Euh, ma réponse reste inaperçue ?

 

www.synapse-informatique.com/qbrick_fr.htm

[jalna]

Salut et merci Tramber :)

Sympa comme tout...............

[Curcis]

Vas y mollo sur les archis, ils ne sont pas tous à jetter.

(moi je travaille avec des calques....).

 

Tu ne peux pas te débrouiller avec un capture polygone ou autre option type sp, boite.....

Options de la commande effacer:

 

Fenêtre/Dernier/Capture/BOîte/TOUT/Trajet/SPolygone/CPolygone/Groupe/Ajouter/Sup

primer/Multiple/Précédent/annUler/AUto/uniQue/SOus-objet/Objet

 

Curcis

Architecte près de Bordeaux

[lili2006]

Bonsoir à toutes et tous,

 

bon , pas mal mais ça ne fait que créer un masque autour des objets...

 

Tu parles de la commande "EXTRIM" ?

 

Ben, chez moi, non !

 

Commande: EXTRIM

Initialisation...

Pick a POLYLINE, LINE, CIRCLE, ARC, ELLIPSE, IMAGE or TEXT for cutting edge...

Choix des objets: 1 trouvé(s)

Commande:

Specify the side to trim on:

[x_all]

hihihi..

 

alors... dans l'ordre...

Tramber

Euh, ma réponse reste inaperçue ?

 

mais non, mais charette charette, pas eu le temps de chercher... merci pour le lien, je le charge et le teste demain matin.

 

Tu ne peux pas te débrouiller avec un capture polygone ou autre option type sp, boite.....

Options de la commande effacer:

Fenêtre/Dernier/Capture/BOîte/TOUT/Trajet/SPolygone/CPolygone/Groupe/Ajoute r/Sup

primer/Multiple/Précédent/annUler/AUto/uniQue/SOus-objet/Objet

 

oui bien sur... mais tu verrai le boxon... objets dans le objets, l'EDL le projet tout en 0 mais dans des blocs diférent, par dessus le lot Démol.... je doit faire le détail de la cage d'escalier, j'aurai aimer cliper le tout. Si il faut tout se palucher à la main ben c'est pas de la tarte...limite autant redessiner les objets qui pètent. Et puis même pour rassembler les étages je vais en ch....

 

 

Curcis

Vas y mollo sur les archis, ils ne sont pas tous à jetter.

(moi je travaille avec des calques....).

 

re hihihihi...

 

je vais devoir faire un petit aparté et raconter un peu ma vie pour expliquer cette saute d'humeur... :)

 

bien sur que je met pas tous les archi dans le panier de crabe... et puis ya vos soft à la compatibilité douteuse avec leurs méthodes d'exportation aproximatives (archicad est une horreur et allplan encore pire). mais je me suis pris le choux cet aprem (et pour une toute autre affaire) avec une autre archi tout juste polie pour me demander de lui faire gracieusement un taf qui lui revenait. Mes dix ans de prise de bec avec un architecte "international" dont la devise etait: "on est tous égaux... surtout moi..."

 

depuis que je bosse en BE, j'ai appris que les archi sont pas tous des artistes égocentriques qui gribouille de géniales esquisses sur une nappe de restaurant en laissant le soins aux petites main de faire rentrer le programme dans la surface et le budget imparti.

Il y en a des bons, qui savent écouter les arguments, proposer, évaluer une charge de travail. Curieusement, l'expérience que j'ai tend a prouver que l'aptitude d'un architecte a travailler en groupe est inversement proportionnelle à la taille de sa structure...

 

alors si j'ai froisser des susceptibilité je m'en excuse... je devrais pas laisser mes soucis perso influencer mes propos sur le net... mais je suis humain et parfois de mauvais poil ...

 

là ça va mieux merci :)

 

 

 

[Curcis]

Tu n'as froissé personne et de plus je suis d'accord avec toi à .......95% pour ton analyse.

Les 5% restants je les garde à ma discrétion.

 

Bon courage

 

++

 

Curcis