pente d'attribut de bloc

[rimbo]

J'ai une fonction qui me permet d'avoir des flèches de pentes avec la valeur de la pente de façon automatique mais je ne peux pas mettre 0 décimales a l'attribut.

[rimbo]

je connais luprec mais elle limite a 2 décimales et pas 0

[lecrabe]

Hello

 

Est ce du Lisp/VLisp ou autre chose ?

 

Code source partageable avec nous ?

 

Bonnes Fetes et surtout LA SANTE, bye, lecrabe

[rimbo]

non du Covadis...

[lecrabe]

Hello Rimbo

Co, Cov, Cova, Covad, Covadis !

 

C'est quoi ??? ... OK je sors ...

Bye, lecrabe

[rimbo]

J'utilise l'analyse par flèche de pente. Mon client final ne veut pas de décimale.impossible de trouver la variable qui supprime les décimales sur un attribut de bloc.

 

Luprec = 0

Dimdec = 0

 

toujours 2 décimales

[lili2006]

Bonjour à toutes et tous,

 

Et en passant par un champ ?

[rimbo]

Je suppose que la comande covadis est paramétree. L'attribut récupère automatiquement la valeur de la pente de l'état de terrain directement et automatiquement. Je ne peux pas changer l'attribut.

[lili2006]

Re,

 

Salut rimbo,

 

Oups, désolé je pensais que tu parlais d'un de tes blocs,...(comme on était sur le forum A 2017,...)

 

Avec les étiquettes Covadis ?

 

Si oui => http://www.partage-fichiers.com/upload/5qbftdv3

[rimbo]

je recherchais une fonctionnalité automatisé. Les étiquettes de pentes de surfaces sont très bien, mais il faut les poser manuellement. Je ne veux donc pas utiliser cette fonction.

 

La seule fonction intéressante est dans analyse du relief/Flèche de pente. Mais les attributs de bloc de cette commande sont parfaite mais pas adaptés bien sur à ce que l'on me demande et comme le client est roi....

 

Donc ma question est simplement comment supprimer les décimales a un attribut de bloc pour n'avoir que le chiffre rond, sans décimales et sans signe, sans %

 

merci à vous

[lecrabe]

Hello Lionel

 

Donc il te faut une routine LSP qui modifie après coup les attributs numériques concernés !

 

Je vais farfouiller dans "mes" 2000 routines...

 

Bonnes Fêtes et surtout LA SANTE, Bye, lecrabe

[Olivier Eckmann]

Bonjour,

 

1. avec la commande ATTOUT après avoir choisi les blocs, on obtient un export en format texte séparateur tabulation des infos des attributs.

2. ouvrir sous excel le fichier TXT, puis rechercher/remplacer % et - par rien, et formater avec 0 décimales la colonne des pentes. Sauvegarder en TXT

3. dans AutoCAD, commande ATTIN pour mettre à jour tous les attributs.

 

Olivier

[lecrabe]

Hello Lionel

 

Voici mon Micro-Cadeau de Noel !

Mais en fait il faut remercier notre Grand Maitre Gilles !

 

Routine "ATT_ADD___Zero_Dec" dans laquelle par un RTOS 2 0

J'ai force a ZERO decimale le resultat ...

 

C'est une routine qui permet d'ajouter (soustraire) une valeur numerique a un attribut numerique

Donc pour ton besoin, il te suffira d'ajouter (soustraire) ZERO !!

 

Bonnes Fetes et surtout LA SANTE, Bye, Pat

 

;; 
;; Commande:  ATT_ADD   -->  ATT_ADD__Zero_Dec
;; par GC (Anciennement ADDATT) 
;; Pour ajouter/soustraire une valeur numerique SIMPLE 
;; a un Attribut SIMPLE sur un Bloc SIMPLE 
;; 
;; Micro-Micro-Modif par Patrice pour Lionel
;; ZERO Decimale sur les Attributs modifies
;; 
;; On peut parfaitement ajouter ZERO aux Attributs ... 
;; Ainsi on supprime les Decimales !
;; 

(defun c:att_add__zero_dec (/ att lst tag nam add ss n)
(if (and
(setq att (car (nentsel "\nSelectionnez un attribut a modifier ... ")))
(setq lst (entget att))
(= (cdr (assoc 0 lst)) "ATTRIB")
(numberp (read (cdr (assoc 1 lst))))
(setq tag (cdr (assoc 2 lst)))
(setq nam (cdr (assoc 2 (entget (cdr (assoc 330 lst))))))
)
(if (and
(setq add (getreal "\nEntrez la valeur a ajouter ou soustraire: "))
(princ "\nSelectionnez les blocs a modifier ... ")
(setq ss (ssget (list '(0 . "INSERT") (cons 2 nam))))
(setq n 0)
)
(while (setq blc (ssname ss n))
(setq att (entnext blc)
lst (entget att)
)
(while (= (cdr (assoc 0 lst)) "ATTRIB")
(if (and (= (cdr (assoc 2 lst)) tag)
(numberp (setq val (read (cdr (assoc 1 lst)))))
)
(progn 

;;;;;; Micro-Micro-Modif par Patrice pour Lionel - ZERO Decimale 
;;     Aucune Modif des Deciamles
;;  (entmod (subst (cons 1 (rtos (+ val add)     )) 
;;;;;; rtos ... 2 0  ---> 0 decimale
;;;;;; rtos ... 2 1  ---> 1 decimale
   (entmod (subst (cons 1 (rtos (+ val add) 2 0 )) 

(assoc 1 lst)
lst
)
)
(entupd blc)
)
)
(setq att (entnext att)
lst (entget att)
)
)
(setq n (1+ n))
)
)
(princ "\nL'objet selectionne n'est pas un attribut. ")
)
(princ)
)  

[rimbo]

Merci a olivier et lecrabe. Je teste tout cela.

[didier]

Coucou

 

De quelle commande parles-tu ?

Tu dis : j'ai une commande, mais c'est bien du "Covadis" pas du "RImbo" ?

Est-ce COVCOTPENTE car tu n'expliques dans quel environnement fonctionne la commande mais en réfléchissant ce ne doit pas être ça car cette commande est textuelle pas attributaire.

Est-ce dans les profils en travers ?

 

Amicalement

[rimbo]

Bonjour Didier, l'idée est simplement de dessiner des flèches de pente d'une surface 3d (tn_mnt).

Le seul problème est que le client ne veut pas de décimales, pourcentage et signe dans l'attribut.

 

La commande est dans cov3d/analyse du relief/dessin de flèche de pente

 

dans cette commande il n'y a pas de possibilité de paramétrer l'attribut de bloc.