Aller au contenu

RE ASSOCIER UNE HACHURE A UNE POLYLIGNE FERMEE


PHILPHIL

Messages recommandés

hello

 

si ca peu servir

 

a tester

 

;;; ---------------------------------------------
;;;RE ASSOCIER DES HACHURES A UNE POLYLIGNE FERMEE
;;; ---------------------------------------------


(defun c:hachure_reassocie (/)
 (setvar "cmdecho" 0)
 (setvar "dimzin" 0)
 (setq cav (getvar "clayer"))
 (setq osm (getvar "osmode"))
 (setq hachnam (getvar "hpname"))
 (setq hachech (getvar "hpscale"))
 (setq hachang (getvar "hpang"))
 (setq hachdet (getvar "HPISLANDDETECTION"))
 (setvar "osmode" 0)
 (setq calquehach nil
       ent1 nil
       ent2 nil
       test1 0
       test2 0
 )
 (while (/= test1 1)
   (setq ent1 (car (nentsel "\nSELECTIONNER LA HACHURE A RE-ASSOCIER :")))
   (setq test1 (cond ((= (cdr (assoc 0 (entget ent1))) "HATCH") 1)))
 )
 (setq typehach   (cdr (assoc 2 (entget ent1)))
       calquehach (cdr (assoc 8 (entget ent1)))
 )
 (if (or (= typehach "SOLID") (= typehach "solid"))
   (setq echelhach 1
         anglhach 0
   )
   (setq echelhach (cdr (assoc 41 (entget ent1)))
         anglhach  (* (cdr (assoc 52 (entget ent1))) (/ 180 pi))
   )
 )
 (while (/= test2 1)
   (setq ent2 (car (nentsel "\nCLIQUER SUR L'ENTITE POLYLIGNE A HACHURER :")))
   (setq test2 (cond ((= (cdr (assoc 0 (entget ent2))) "LWPOLYLINE") 1)))
 )
 (setq poly1 (cdr (assoc -1 (entget ent2))))

 (setvar "hpname" typehach)
 (setvar "hpscale" echelhach)
 (setvar "hpang" anglhach)
 (setvar "HPISLANDDETECTION" 2)
 (command-s "-calque" "ch" calquehach "")
 (command-s "-fhach" "s" poly1 "" "")
 (command-s "effacer" ent1 "")
 (setvar "clayer" cav)
 (setvar "osmode" osm)
 (setvar "hpname" hachnam)
 (setvar "hpscale" hachech)
 (setvar "hpang" hachang)
 (setvar "HPISLANDDETECTION" hachdet)
 (princ)
)

 

A+

 

phil

Autodesk Architecture 2023 sous windows 11 64

24 pouces vertical + 30 pouces horizontal + 27 pouces horizontal

Lien vers le commentaire
Partager sur d’autres sites

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é