RE ASSOCIER UNE HACHURE A UNE POLYLIGNE FERMEE

[PHILPHIL]

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