echelle sur fenetre

[capde06]

pour tester le facteur d'échelle d'une fenêtre il y a ca

(vla-get-customscale (vlax-ename->vla-object (car (entsel)))) 

ca marche bien le code 0 est : (0 . "VIEWPORT")

jusqu"a la tout va bien..

maintenant comment faire sur une fenêtre polygonale

code dxf

(0 . "LWPOLYLINE")..... (102 . "{ACAD_REACTORS")

avec un reactors en plus

et si on change un cercle en fenetrecode dxf

(0 . "CIRCLE")..... (102 . "{ACAD_REACTORS")

 

ma question est :

comment recuperer la valeur echelle ?

[Patrick_35]

Salut

 

Version Autolisp

(defun c:test(/ ech fen vie)
 (setq fen (car (entsel)))
 (setq vie (entget (entnext fen)))
 (setq ech (/ (cdr (assoc 41 vie)) (cdr (assoc 45 vie))))
)

 

Version vlisp

(defun c:test(/ ech fen vie)
 (setq fen (car (entsel)))
 (setq vie (vlax-ename->vla-object (entnext fen)))
 (setq ech (vla-get-customscale vie))
)

 

@+

[capde06]

merci patrick

donc maintenant voila le résultat

pour ceux que ca intéresse

(defun c:fech  ()
 ;;vérifie l'echelle d'une fenetre dans lespace papier

(vl-load-com)

 (setq ent (car (entsel)))

 (if (/= (cdr (assoc 0 (entget ent))) "VIEWPORT")

   (setq ent (entnext ent))

 )

 (alert

   (strcat

     "Echelle : 1/"

     (rtos

(* (expt

     (vla-get-customscale (vlax-ename->vla-object ent))

     -1)

   1000)

2

0)))

   ) 

 

[Edité le 21/6/2010 par capde06]

[Patrick_35]

Pour simplifier ton code

 

 (defun c:fech  ()
 ;;vérifie l'echelle d'une fenetre dans lespace papier

 (vl-load-com)
 (setq ent (car (entsel)))
 (or (= (cdr (assoc 0 (entget ent))) "VIEWPORT")
   (setq ent (entnext ent)) ; ps : (if (not= ... égal or
 )
 (alert
   (strcat
     "Echelle : 1/"
     (rtos
(* (expt
     (vla-get-customscale (vlax-ename->vla-object ent))
     -1)
   1000)
2
0)))
   )

 

@+

[bonuscad]

Pour éviter la sélection de la polyligne couvrant la FMULT, on peut aussi filtrer à la sélection au lieu de vérifier l'entité sélectionnée par (entsel).

 

(while (null (setq f_m (ssget "_:S:E" '((0 . "VIEWPORT")))))
(princ "\nN'est pas une fenêtre")
)
(setq ent (ssname f_m 0))

[capde06]

merci Patrick

jai remis a jour le code optimisé

plus haut

[lili2006]

Bonsoir à toutes et tous,

 

Fesch est fait pour les unités métriques, non ?

 

Sur une fenêtre au 1/50 en unité cm, j'ai 1/5000 !

[capde06]

fech est fait pour unités= 1 mètre

mais pour ton cas tu multiplies par 10 au lieu de 1000

 

[lili2006]

Re,

 

Merci capde06, c'est ce que j'ai fait !

 

Je me demandais juste si il n'y avait pas une erreur,...