lisp cote de niveau

[LGweb]

Bonjour,

 

Quelqu'un pourrait me dire s'il existe un lisp permettant l'utilisation d'une cote de niveau automatique, appliquable à un symbole de cotation de niveau (réf : le niv zero du Y), permettant ainsi la mise à jour auto.

Merci d'avance

[jalna]

Salut

Regarde ici (Niveau en coupe ou facade)

 

Perso moi je déplace l'origine sur mon +-0.00 et je localise un point en Y

[LGweb]

Merci Jalna,

Ce lisp est trés bien. Il manque juste l'affichage du + en valeur positive.

Malheureusement je ne connait rien au lisp. Si quelqu'un est tenté de rajouter cette instruction au code de "niveau.lisp"......?

Merci

Salut

[didier]

(if (= ent nil)

(progn

(initget 1)

(setq ptins (getpoint "\nSelectioner le point d'insertion"))

;selection du point d'insertion

(if (> (cadr ptins 0.0)

(setq alt (strcat "+" (rtos (/ (cadr ptins) 100) 2 2)))

(setq alt (strcat "-" (rtos (/ (cadr ptins) 100) 2 2)))

)

;;;(setq alt (rtos (/ (cadr ptins) 100) 2 2))

;recuperation du niveau

(setq legende (getstring T "\nQuel est la legende du niveau: "))

;information sur le titre de la legende

(command "_-INSERT" "niveau-coupe" ptins lts lts "0" alt legende)

;insertion du bloc au point ptins avec la variable alt

)

)

(setvar "dimzin" dz)

(setvar "attdia" atda)

;reafectaion de la sauvegarde de la varable DIMZIN 00

(princ)

;ne rien afficher

 

je pense qu'en rajoutant les lignes en rouge

tu résoudras ton souci,

j'ai téléchargé le lisp puis adapté avec le mien

donc à tester quand même ...

 

amicalement

[LGweb]

Merci Didier,

C'est sympa.

Malheureusement le rajout intégral de ces lignes (rouges) ne permet pas au lisp de fonctionner.

Merci

Salut

 

[didier]

coucou

 

c'est possibl je n'ai pas testé j'ai copié mon test dans le lisp de base

je ne me sers pas de celui-ci

 

le principe est de veifier la valeur du z ( de l'Y en l'occurence)

 

si elle est plus grande que zéro

concaténer le signe PLUS à la réponse sous forme de CHAINE

 

si elle est moins grande que zéro

concaténer le signe MOINS à la réponse sous forme de CHAINE

 

essaie encore,

et n'oublie pas de mettre les point virgules

avant la définition de l' ancienne ligne qui définit l'attribut ALT

;;;(setq alt (rtos (/ (cadr ptins) 100) 2 2))

 

 

amicalement

[bonuscad]

Malheureusement le rajout [surligneur]intégral[/surligneur] de ces lignes (rouges) ne permet pas au lisp de fonctionner.

 

Un bête copier-coller ne peut pas fonctionner!

Il faut juste réfléchir un peu.

 

Les lignes de Didier sont bonnes dans la philosophie, sauf que le nom de variable ne convient pas à l'autre programme auquel tu fais référence.

 

Essayes de remplacer [surligneur]ptins [/surligneur] par [surligneur]ent_carac2[/surligneur] dans les lignes données par Didier

 

[Edité le 10/11/2008 par bonuscad]