Cherche un LISP pour les ARTDB

[AnasRyo]

Bonjour,

 

Je cherche un LISP pour générer les ARTBD qui marche sur AutoCAD 2008

 

J'ai déja essayé le LISP de bonuscad : http://pastebin.com/29a9pDnk

 

Malheuresement ça n'a pas marché, AutoCAD m'affiche le message : "Sélectionner des Arcs/PolyArcs ." mais le curseur de la souris ne change pas en mode "sélection d'objet" du coup je n'arrive pas à sélectionner mon axe.

 

Merci d'avance.

[Olivier Eckmann]

Bonjour,

 

Dans le lisp de Bonuscad, remplacer les lignes 119 à 129:

• (ssget
• '((-4 . "")
• (-4 . "AND>")
• (0 . "LWPOLYLINE,ARC")
• (-4 . "OR>"))
• )

par

• (ssget
• '((0 . "LWPOLYLINE,ARC"))
• )

 

Olivier

[bonuscad]

Bonjour,

 

Effectivement, le filtre présenté dans le code semble incomplet!

Soit tu fais la modification proposée par Olivier, soit tu récupère l'original que je remet à ta disposition sur le lien ci-dessous:

 

ARTDB.lsp

[AnasRyo]

Super, marche à merveille, Un Grand merci à vous deux :)

[lecrabe]

Hello

 

SVP il serait SYMPA d'indiquer les liens croises quand tu fais du Multi-Post !

https://forums.autodesk.com/t5/autocad-francais/probleme-avec-un-ancien-lisp-qui-ne-marche-pas-sur-autocad-2004/td-p/6782252

 

*** ERROR / SORRY *** Ce n'est pas un doublon d'apres ce que TU dis !

*** Mais franchement les titres/sujets sont "si proches" !?

*** Donc je ne te suis "pas bien" !!

 

Bonne Annee et surtout LA SANTE, Bye, lecrabe

[AnasRyo]

Non ce n'est pas la même chose je viens de fournir une explication sur l'autre forum de Autodesk,

 

+

 

bonuscad si je ne te dérange pas pourrai-je avoir une version "en grade" du LISP des ARTDB ?

 

Merci :)

[bonuscad]

Non ce n'est pas la même chose je viens de fournir une explication sur l'autre forum de Autodesk,

 

+

 

bonuscad si je ne te dérange pas pourrai-je avoir une version "en grade" du LISP des ARTDB ?

 

Merci :)

 

Deux possibilités, forcer l'écriture en grade ou prendre les unités angulaire en cours dans le dessin.

Pour cela il te faut changer la ligne 21 du code pour, respectivement:

 

Solution 1

"A = " (angtos (- pi (* 2 alpha)) 2 4)

 

Solution 2

"A = " (angtos (- pi (* 2 alpha)) (getvar "AUNITS") 4)

[AnasRyo]

Merci encore une fois Grand Lisposhtroumpf.

 

Feedback : Apparament la Solution 2 :

 

"A = " (angtos (- pi (* 2 alpha)) (getvar "AUNITS") 4) 

 

est la meilleure, vu qu'elle marche quelque soit l'unité angulaire du fichier AutoCAD alors que la première solution marche uniquement sur des fichiers ayant le gradian comme étant unité angulaire.

 

Mes sincères salutations :)

[didier]

Coucou

 

je ne connaissais pas le gradian, c'est mignon ce truc ?

c'est la fusion des grades et des radians sans doute ...

 

pour ce qui est de la solution proposée par BonusCad c'est parfait, je pense que j'aurais fait une boucle de tests et là ça passe du premier coup.

 

amicalement

[bonuscad]

Un petit éclaircissement...

 

La première solution force l'écriture en grade quelque soit l'unité angulaire employé dans le dessin.

La deuxième solution écrit la valeur angulaire selon l'unité angulaire en cours dans le dessin (si grade alors écriture en grade, si degré alors écriture en degré)

[AnasRyo]

je ne connaissais pas le gradian, c'est mignon ce truc ?

c'est la fusion des grades et des radians sans doute ...

This post made my day :D