Aller au contenu

Liste d\'echelle prédéfini


Ashram_666

Messages recommandés

Salut,

je réussis (enfin) à créer un type echelle...

Mais comme je n'ai toujour pas l'aide :mad: j'ai du mal à comprendre à quoi tous les code dxf que j'ai ressortis du 350 correspondent...

Si quelqu'un pouvait mettre ici ce q'il trouve dans l'aide visual-lisp des code dxf de "SCALE", ça me servirait bien ...

 

(setq dict (cdr (assoc -1 (dictsearch (namedobjdict) "ACAD_SCALELIST")))
     ent1 (entmakex (list
	      '(0 . "SCALE")
	      '(100 . "AcDbScale")
	      '(70 . 0)
	      '(300 . "TOTO")
	      '(140 . 8)
	      '(141 . 8)
	      '(290 . 1))))
(dictadd dict "AcDbScale" ent1)

Si vous êtes persuadés de tout savoir sur un sujet, c''est que vous en ignorez quelque chose...

Lien vers le commentaire
Partager sur d’autres sites

  • Réponses 54
  • Créé
  • Dernière réponse

Meilleurs contributeurs dans ce sujet

Bonjour,

 

Merci à Ashram_666 , je vais essayer de suite. Quant à Bred, c'est quoi ce que tu proposes, un lisp ou autre ? Je n'y comprends pas grand chose et surtout ça sert à quoi? (Je suis parfaitement débutant dans ce domaine). Encore merci à vous. Je teste et je vous tient au courant.

@+ :)

 

Civil 3D 2024 - COVADIS_18.2

https://www.linkedin...3%ABt-95313341/

Lien vers le commentaire
Partager sur d’autres sites

Re,

Bred ton lisp fonctionne bien pour créer une echelle mais losque je veux en créer plusieurs en suivant le schéma que ta routine il ne tient compte que de la première, étrange :casstet: .

Un jour je l'aurai oh oui un jour je l'aurai :) .

Et merci de passer du temps sur ces problèmes.

Lien vers le commentaire
Partager sur d’autres sites

En fait je faisais une erreur : il faut incrémenter une valeur pour le "symbol" dans dictadd ...

(je découvre aussi...)

 

(setq dict (cdr (assoc -1 (dictsearch (namedobjdict) "ACAD_SCALELIST")))
     ent1 (entmakex (list
	      '(0 . "SCALE")
	      '(100 . "AcDbScale")
	      '(70 . 0)
	      '(300 . "toto")
	      '(140 . 2)
	      '(141 . 2)
	      '(290 . 1))))
(dictadd dict [b]"Z1"[/b] ent1)

puis

(setq ent2 (entmakex (list
	      '(0 . "SCALE")
	      '(100 . "AcDbScale")
	      '(70 . 0)
	      '(300 . "uuu")
	      '(140 . 3)
	      '(141 . 3)
	      '(290 . 1))))
(dictadd dict [b]"Z2"[/b] ent2)

etc ....

donc attention au doublon !!! fonctionne pas sinon ...

 

 

 

 

 

[Edité le 12/4/2007 par Bred]

Si vous êtes persuadés de tout savoir sur un sujet, c''est que vous en ignorez quelque chose...

Lien vers le commentaire
Partager sur d’autres sites

le lisp de Ashram_666 marche tres bien

mais comme la precise lili2006 des qu'on insert un bloc d'une version precedente

Là, j'avoue, à part les réacteur de blocs, je ne vois pas comment faire...

et moi, les réacteurs, pour l'instant ...

 

comment marche ton lisp BRED

TOTO c'est le nom qui est visible

pour regler les tailles c'est scale et acdbscale?

Mon extrait de code est juste une manière plus "propre" de créer la liste d'échelle.

le lisp de Ashram_666 fonctionne, mais comme j'ai trouver le moyen d'atteindre le dictionnaire d'édition de liste (le début du code de Ashram_666 ) , ce qui n'était pas facile pour moi, j'essaye de le modifier sans passer par les (command..., ce qui est juste un caprice de programmateur....

J'ai des soucis d'aide, mais après quelque test, les variables à modifier pour l'échelle sont les codes dxf 140 et 141.

 

 

 

 

 

Si vous êtes persuadés de tout savoir sur un sujet, c''est que vous en ignorez quelque chose...

Lien vers le commentaire
Partager sur d’autres sites

Salut à tous,

 

Pour les nouveaux dessins, il suffit de modifier le gabarit d'AutoCAD.

 

1 - Ouvrir le fichier acadiso.dwt

2 - Menu -> Format -> Liste des échelles -> Modifier la liste des échelles

3 - Sauvegarder acadiso.dwt

 

4 - Fichier -> Nouveau... -> choisir acadiso.dwt

5 - Vous pouvez contrôler la liste des échelles.

 

@plus

Jean-Philippe - Formateur / Dessinateur sur AutoCAD et MEP

http://www.git-cad.ch

Lien vers le commentaire
Partager sur d’autres sites

Salut,

Merci pour ton lisp bred, il me permet d'executer ma routine plus rapidement :)

Parcontre j'ai fait quelques test et, j'ai remarqué que pour les fenêtres dans les présentations, elles perdaient leurs échelles d'annotations! à la place de "1/200" il y a "" et pas leurs échelles de fenêtre :casstet: Bizard!!

Je cherche maintenant du coté des viewport pour extraire ces échelles c'est pas encore gagné

mais on y est presque :)

 

Lien vers le commentaire
Partager sur d’autres sites

  • 2 mois après...

Salut les lispeurs 2008, ;)

 

Dans tout ce que vous avez écrit, je ne sais quoi utiliser. Je ne lisp pas personnellement. Ma rubrique préférée étant la pause café...:casstet:

 

Vu que je travaille beaucoup avec des fichiers existants reçus de géomètres (ou mes propres anciens fichiers), caler ma liste perso en un geste, en effaçant celle de base, m'intéresse. :)

 

Au final, quelqu'un pourrait-il pondre un lisp qui remette à zéro la liste d'échelles d'origine d'un fichier et qui la remplace par une perso ?

 

Je suis capable d'écrire les lignes de codes qui correspondront à ma liste d'échelles persos, si il y a 2 ou 3 lignes d'échelles en exemple.

 

Merci d'avance ! :D :D :D

 

[Edité le 9/7/2007 par Pieroka]

Formateur Autocad - Revit - Sketchup - Photoshop

Lien vers le commentaire
Partager sur d’autres sites

Salut Pieroka,

bientôt en vacances ???

 

Ci-dessous, un code mise au propre.

Tu dois modifier/rajouter ce que je t'ai mis en gras.

je pense que c'est assez compréhensible comme ça, mais si tu as du mal, fais le savoir !

 

; Modification de la liste des echelles
(defun c:lst-ech-pierroka ()
 (lst-ech (list
   [b]  (list "1/50" 2 1)
     (list "1/1" 1 1)
     (list "1/2" 1 2)
     (list "1/4" 1 4)[/b]
     )
   )
 (princ)
)  

; routine modif liste echelle
(defun lst-ech (lst / DICT ENT1 I N X)
 (vl-load-com)
 (while (assoc 350 (dictsearch (namedobjdict) "ACAD_SCALELIST"))
   (progn
     (vla-delete (vlax-ename->vla-object (cdr (assoc 350 (dictsearch (namedobjdict) "ACAD_SCALELIST")))))
     )
   )

 (setq i 1
x (strcat "Z" (rtos i)))
 
 (repeat (length lst)
   (setq n (nth (1- i) lst)
  dict (cdr (assoc -1 (dictsearch (namedobjdict) "ACAD_SCALELIST")))
  ent1 (entmakex (list
		   '(0 . "SCALE")
		   '(100 . "AcDbScale")
		   '(70 . 0)
		   (cons 300 (car n))
		   (cons 140 (cadr n))
		   (cons 141 (caddr n)))))
   (dictadd dict x ent1)
   (setq i (1+ i)
  x (strcat "Z" (rtos i)))
   )
 )

 

[Edité le 9/7/2007 par Bred]

Si vous êtes persuadés de tout savoir sur un sujet, c''est que vous en ignorez quelque chose...

Lien vers le commentaire
Partager sur d’autres sites

Nickel, merci !

 

petit test effectué ça marche bien. Faudra voir à l'usage, car je suis pas encore passé entièrement à la 2008.

Je me suis fait un lisp pour les plans en mètres ( 99% pour moi >>topo). de " 1:1° " à " 1:25.000° ".

Je le déclinerais aussi pour les plans d'unité-objet en cm et mm pour mes collègues qui bossent avé des archis centimetreux ou millimétreux.

 

vacances en Août pour moi... pas mal de boulot... mais tranquille...

 

Et toi ? ça roule avec tes 3 colocatrices maintenant (plus le chat) ?

Vacances ? Chantier de la maison ?

réponse en MP ou mail si tu donnes des détails croustillants... :P

 

bises Pierre :D

Formateur Autocad - Revit - Sketchup - Photoshop

Lien vers le commentaire
Partager sur d’autres sites

Bonjour,

Je voudrais tester le lisp de BRED, mais comment le lance-t-on une fois charger?

Je ne connais pas beaucoup le lisp (c'est très vieux Autocad 12).

En apparté, je trouve nul d'être obligé de redéfinir la liste des echelles à chaque nouveaux/anciens dessin. Quand on fait découvrir Autocad, il est quand même plus simple de choisir l'echelle dun plan dans une liste plutôt que de faire le zoom yyXP. :mad: :mad:

www.cad-is.fr
Autocad Map 2021 - Covadis/Autopiste V18.0c
Pisser sous la douche ne suffira pas
Lien vers le commentaire
Partager sur d’autres sites

Salut,

Pour le charger, tu as tous ce que tu veux ici.

 

POur lancer une lisp après l'avoir charger, le nom de la commande à taper est celle qui se trouve juste après le c:

 

(defun c:[b]lst-ech-pierroka[/b] ()
(lst-ech (list
(list "1/50" 2 1)
(list "1/1" 1 1)

 

... tu peux le modifier (en ne prenant pas un nom de commande déjà existant)

 

Le code suivant où il n'y a pas de c: est une sous-routine qu'utilise le lisp.

Si vous êtes persuadés de tout savoir sur un sujet, c''est que vous en ignorez quelque chose...

Lien vers le commentaire
Partager sur d’autres sites

Nickel, ca marche. Dans mes souvenir, il me semblait bien que c'été ça. Mais j'avais du faire un truc qui n'allait pas.

Merci pour cette routine, en espérant qu'autodesk reprendra cette boulette, car pour moi, c'est une boulette.

A+

www.cad-is.fr
Autocad Map 2021 - Covadis/Autopiste V18.0c
Pisser sous la douche ne suffira pas
Lien vers le commentaire
Partager sur d’autres sites

  • 9 mois après...

Je colle ici l'info sur le nettoyeur d'échelles qu'Autodesk a sorti il y a qques semaines :

 

Un pb de lourdeur est provoqué pas une surabondance d'échelles dans la liste des échelles.

 

un outil a été publié par autodesk voir ici.

 

Cet outil permet de nettoyer les échelles excédentaires, de mettre sa liste perso à partir d'un dwg ou un dwt... et permet de traiter des dossiers entiers et tout les dwg qu'ils contiennent.

 

Formateur Autocad - Revit - Sketchup - Photoshop

Lien vers le commentaire
Partager sur d’autres sites

Salut,

Pour mémoire ce sujet à déja été résolu ici.

Ce que veux dire Pieroka, c'est que ce problème à été résolu par Autodesk, et que donc mon lisp (qui est celui de ce post, et recopier dans le post que tu cites) permettant de nettoyer la liste est maintenant inutile.

Si vous êtes persuadés de tout savoir sur un sujet, c''est que vous en ignorez quelque chose...

Lien vers le commentaire
Partager sur d’autres sites

Salut,

 

Le problème est résolu avec la version 2009, si tu as trop d'échelles Autocad te propose te supprimer les excédentaires en réinitialisant la liste et en te permettant d'afficher ou non celles venant d'Xrefs.

 

Cependant, le problème de la gestion de ces échelles par rapport à l'unité de dessin n'est toujours pas géré contrairement à la version MEP par exemple.

 

Donc, on continue avec le lisp....

Lien vers le commentaire
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant



×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité