Problème de récup de l\'echelle d\'un bloc

[Morgul]

Bonjour,

 

Je rencontre un problème, lorsque je récupère la valeure d'échelle d'un bloc, je n'arrive pas à l'exploiter.

Voici mon code pour récupérer la valeure :

 

(setq EchI (cdr (assoc 41 Lstac1))) ; On récupère l'échelle du bloc

 

Lorsque je veut effectuer une opération dessus, ça ne marche pas !

 

(Setq CY (* EchI 0.75)) ; On multiplie l'échelle du bloc par 0.75

 

Et lorsque je veut l'afficher ça ne marche pas !

J'ai essayé avec :

 

(setq EchI (itoa EchI))

(princ EchI)

 

A l'aide !

Et merci pour vos réponses.

 

Ps : c'est quoi le code pour faire afficher la page "lignes de commandes" en 1er plan (comme F2)

 

[rebcao]

vérifies si ta variable LSTAC1 n'est pas à Nil ?

 

Christian

[Patrick_35]

Salut

Il faut pour cela utiliser entmod et subst

exemple avec Lstac1 comme entité de bloc

(setq  Lstac1 (subst (cons 41 (* (cdr (assoc 41  Lstac1)) 0.75)) (assoc 41  Lstac1)  Lstac1))
(entmod  Lstac1)
(entupd (cdr asssoc -1  Lstac1)) ; mettre à jour à l'écran le bloc

 

@+

 

nb : exemple non testé

[Morgul]

Bonjour,

 

Non, c'est ça le pire LSTAC1 & EchI ne sont pas nil !

 

(setq EchI (cdr (assoc 41 Lstac1)))

 

Fonctionne, et j'obtient bien une valeure, mais après je n'arrive pas à l'exploiter.

 

Merci.

[Patrick_35]

Ah, encore une précision

Le code 41 correspond à l'echelle X, ne pas oublier le code 42 (Echelle Y) et 43 (Echelle Z)

 

@+

[(gile)]

Salut, essaye avec ces quelques lignes :

 

(setq bloc (car (entsel)))

(setq Lstac1 (entget bloc))

(if (= "INSERT" (cdr (assoc 0 Lstac1)))

(setq Ech (cdr (assoc 41 Lstac1))

CY (* Ech 0.75)

)

(princ "\n L'objet n'est pas un bloc.")

)

(princ (strcat "\nEch : " (rtos Ech) "\tCY : " (rtos CY)))

[Morgul]

Merci (gile) & Patrick_35,

 

Désormais cela fonctionne !

C'est cool!

 

Est-ce que je peux abusé en vous demandant si vous vous rappelez comment je bascule la fenêtre de texte AutoCAD en premier plan en commande lisp, moi je le savais, mais j'ai oublier.

[Patrick_35]

Oui, avec (graphscr) et (textscr)

 

@+

[(gile)]

(textscr) et (graphscr)

 

Çà devait être un coup de chance, la fois où j'ai dégainé plus vite ;)

 

[Edité le 22/6/2006 par (gile)]

[Patrick_35]

hum... pas certain, ce n'est pas certain ;)

 

Mais on me surnomme parfois Jessie James :cool:

 

@+