Problemi con command ("_text")

[schwarz89it]

Bonjour à tous, j'ai écrit une fonction rudimentaire qui en théorie devrait me permettre d'insérer rapidement les "quotes" cependant quand j'arrive à la ligne de commande (command _text) le programme ne exécute pas correctement la fonction.

(défunc c:altimetric ()
(setvar "cmdecho" 0)
(setq ps (point «\point par ligne de points d'écriture:»))
(setq p0 (point d'entrée "\rapporter le taux de calcul:"))
(setq htesto 2)
(chant)
(répète 1)
(setq pt (point d'entrée "\point à mesurer:"))
(setq y (- (cadr pt) (cadr p0))
(setq p1 (liste (car pt) (cadr ps)))
(commande "_texte" "_j" p1 htesto 90 (strcat (rtos y 2 0) ")
)
)
)

Je sais que les plus expérimentés du groupe me diront qu'il n'est pas recommandé d'utiliser le commandement, mais étant à première vue, je n'ai aucune prétention particulière d'être 100% fidèle à la langue.Ceux que j'ai marqués en rouge devraient être les valeurs qui devraient être insérées par le programme, mais à sa place je sors de cet écrit:Je ne sais pas quels paramètres changer.

 

[rpor66]

révisé et correct
(défunc c:altimetric ()
(setvar "cmdecho" 0)
(setq ps (point «\point par ligne de points d'écriture:»))
(setq p0 (point d'entrée "\rapporter le taux de calcul:"))
(setq htesto 2)
(chant)
(setq pt (point d'entrée "\point à mesurer:"))
(setq y (- (cadr pt) (cadr p0))
(setq p1 (liste (car pt) (cadr ps)))
(commande "_texte" "_j" p1 htesto 90 (strcat (rtos y 2 0)))
)
)

En parlant de commande, la méthode à utiliser est ce qui vous convient le plus, dans votre cas c'est bien.
Au revoir.

 

[GP.]

Essayez de cette façon, j'ai ajouté les lignes correctes et désactivé les mauvaises:

(défunc c:altimetric ()
(setvar "cmdecho" 0)
(setq ps (point «\point par ligne de points d'écriture:»))
(setq p0 (point d'entrée "\rapporter le taux de calcul:"))
(setq htesto 2)
(chant)
(répète 1)
(setq pt (point d'entrée "\point à mesurer:"))
 [COLOR="#FF0000"](Cadr pt) [B]de droite en trop[/B][/COLOR](setq y (- (cadr pt) (cadr p0))
(setq p1 (liste (car pt))
 [COLOR="#FF0000"];(commande "_texte" "_j" "_m" p1 htesto 90 (strcat (rtos y 2 0)) ") [B]envoi est redondant[/B][/COLOR](commande "_texte" "_j" "_m" p1 htesto 90 (strcat (rtos y 2 0)))
)
)
(principal) [COLOR="#FF0000"]; [B]sortie propre sans zéro[/B][/COLOR])

si vous voulez que la procédure répète le "point à mesurer" jusqu'à l'envoi suivant, vous pouvez supprimer le (répété 1si au lieu de cela un tel point a toujours été un vous pouvez supprimer (pendant que vous (répété 1édition: J'ai été précédée:smile:

 

[Cristallo]

(défunc c:altimetric ()
(setvar "cmdecho" 0)
(setq ps (point «\point par ligne de points d'écriture:»))
(setq p0 (point d'entrée "\rapporter le taux de calcul:"))
(setq htesto 2)
 [COLOR=#ee82ee][B](pendant[/B][/COLOR]
       [COLOR=#0000ff][B](répété 1[/B][/COLOR](setq pt (point d'entrée "\npoint de misurare:")
(setq et (-) (cadr pt) (cadr p0)[COLOR=#ff0000][B])[/B][/COLOR](setq p1 (liste (car pt) (cadr ps)))
(commande "_texte" "_j" "_m" p1 htesto 90 (strcat (rtos y 2 0)) "")
 [B][COLOR=#0000ff])[/COLOR][/B]
     [B][COLOR=#ee82ee])[/COLOR][/B] )

le support rouge est exubérant.
Je ne comprends pas l'utilisation d'un cycle conditionnel et surtout répéter=1. répéter doit être utilisé pour répéter la même séquence plusieurs fois, la répéter 1 fois est seulement une complication de code.

modifier: me dire: rougeface:! Tout le monde à regarder est la discussion? - Oui.

 

[schwarz89it]

Entre-temps Je remercie tout le monde pour la rapidité avec laquelle vous avez répondu.
pour répondre au cristal, répéter est redondant, mais quand j'ai écrit la fonction et l'ai essayé, j'ai remarqué que le cycle de temps effectué "seulement" les deux premières lignes. évidemment manqué un t immédiatement après la commande, donc j'ai présenté la répétition à l'évidence, faute de l'inexpérience de ce langage.