LIGNE DE COMMANDE

[PHILPHIL]

bonjour

 

depuis que je suis sur la 2013, je rencontre quelque soucis avec les information venant des lisp sur la ligne de commande

 

dans mes lisp quand j'ai des appels de renseignement avec les prompt, princ, strcat, et/ou les option "\n"

ceci s'affiche bien sur la ligne de commande

mais ensuite n'est plus enregistre dans la fenetre de commande

 

 

dans le programme la je devrai voir "ECHELLE Z <1.0000000>"

mais c'est remplacer par "ATTSYNC ...."

 

s'il faut refaire tout les programmes lisp on a pas fini

 

une nouvelle variable quelque part ??

 

bonne journée

phil

 

(defun c:echb (/)
 (setvar "cmdecho" 0)
 (setvar "dimzin" 0)
 (setq cav (getvar "clayer")) ;quel objet de référence pour la surface
 (prompt "CLIQUER SUR LE BLOC OU LES BLOCS POUR LE CHANGEMENT D'ECHELLE :")
 (setq bl nil)
 (while (null bl)
   (setq bl (ssget (list (cons -4 "<or")
		  (cons 0 "insert")
		  (cons -4 "or>")
	    )
     )
   )
 ) 
;demande de l'echelle x y z 
 (setq ECHX 1)
 (initget (+ 2))
 (setq ECHX (getreal (strcat "\ECHELLE X <" (rtos echx 2 10) ">: ")))
 (if (null ECHX)
   (setq ECHX 1)
 )
 (setq ECHY 1)
 (initget (+ 2))
 (setq ECHY (getreal (strcat "\ECHELLE Y <" (rtos echy 2 10) ">: ")))
 (if (null ECHY)
   (setq ECHY echx)
 )
 (setq ECHZ 1)
 (initget (+ 2))
 (setq ECHZ (getreal (strcat "\ECHELLE Z <" (rtos echz 2 10) ">: ")))
 (if (null ECHZ)
   (setq ECHZ echx)
 )    (prompt "\n")
 (setq ent nil)
 (setq compt 0)
 (setq com (sslength bl))
 (while (< compt com)
   (progn (setq ent (entget (ssname bl compt)))
   (setq ent (subst (cons 41 ECHX) (assoc 41 ent) ent))
   (setq ent (subst (cons 42 ECHY) (assoc 42 ent) ent))
   (setq ent (subst (cons 43 ECHZ) (assoc 43 ent) ent))
   (entmod ent)
          (command "_attsync" "_n" (cdr (assoc 2 ent))) 
   (setq compt (1+ compt))
   )
 )        nil
;;;  (prompt "\n")
 (setvar "dimzin" 8)
 (setvar "clayer" cav)
 (setvar "cmdecho" 1)
)

 

rectificatif

 

 

j'ai remodifié le programme lisp comme avant c'est a dire :

(strcat "\nECHELLE X <" 

 

a gauche la ligne de commande normal et la fenetre des commandes

a droite la fentre des commande appellée avec (ctrl + F2)

résultat pas les mes infos

 

[rebcao]

Bonjour,

 

Regardes peut-être du coté de la variable système CLIPROMPTUPDATE

 

 

Christian

[PHILPHIL]

hello rebcao

 

c'etait effectivement ca.

merci

de quand date cette variable .

 

a+

phil

[rebcao]

Bonjour,

 

2013 et LT 2013...

 

 

Christian