Communauté
AutoCAD – tous produits - Français
Bienvenue sur les forums AutoCAD d’Autodesk. Partagez vos connaissances, posez des questions, et explorez les sujets AutoCAD populaires.
annuler
Affichage des résultats de 
Afficher  uniquement  | Rechercher plutôt 
Vouliez-vous dire : 

Autocad Mac : Utilisation des Lisp , Using of Lisp

14 RÉPONSES 14
RÉSOLU
Répondre
Message 1 sur 15
Simon59152
1132 Visites, 14 Réponses

Autocad Mac : Utilisation des Lisp , Using of Lisp

Bonjour, 
Je suis utilisateur d'autocad 2013 sur Mac et je recherche une lisp permettant de cumuler les mesures de plusieurs lignes pour en obtenir la longueur totale, au lieu de répéter l'opération de mesure à chaque fois. 

Seulement j'ai remarqué que l'utilisation de Lisp sur Mac OSX est compliquée car ce système d'exploitation ne permet pas d'ouvrir les "vl-load-com". 

Savez vous comment utiliser simplement une lisp sur Mac ? 

Merci pour vos réponses. 

14 RÉPONSES 14
Message 2 sur 15
Olivier.R
en réponse à: Simon59152

Bonjour Simon,

Celle-ci devrait fonctionner.

 

;|

TLEN.LSP - Total LENgth of selected objects
(c) 1998 Tee Square Graphics

|;

(defun C:TLEN (/ ss tl n ent itm obj l)
  (setq ss (ssget)
        tl 0
        n (1- (sslength ss)))
  (while (>= n 0)
    (setq ent (entget (setq itm (ssname ss n)))
          obj (cdr (assoc 0 ent))
          l (cond
              ((= obj "LINE")
                (distance (cdr (assoc 10 ent))(cdr (assoc 11 ent))))
              ((= obj "ARC")
                (* (cdr (assoc 40 ent))
                   (if (minusp (setq l (- (cdr (assoc 51 ent))
                                          (cdr (assoc 50 ent)))))
                     (+ pi pi l) l)))
              ((or (= obj "CIRCLE")(= obj "SPLINE")(= obj "POLYLINE")
                   (= obj "LWPOLYLINE")(= obj "ELLIPSE"))
                (command "_.area" "_o" itm)
                (getvar "perimeter"))
              (T 0))
          tl (+ tl l)
          n (1- n)))
  (alert (strcat "Total length of selected objects is " (rtos tl)))
  (princ)
)

 

Olivier

Message 3 sur 15
Simon59152
en réponse à: Olivier.R

Bonjour, 

Tout d'abord merci pour votre réponse.

 

La commande m'indique après le chargement qu'il y a :

"tlen.lsp correctement chargé(s)
Commande: ; erreur: erreur de syntaxe"

Du coup en tapant TLEN dans la commande, rien ne se passe. 

 

Est ce que la ligne de définition : "(defun C:TLEN (/ ss tl n ent itm obj l)" est la même sur mac? Ne faut il pas enlever le "C:" ?

 

Merci

Message 4 sur 15
Olivier.R
en réponse à: Simon59152


Simon59152 a écrit :

 

 

Est ce que la ligne de définition : "(defun C:TLEN (/ ss tl n ent itm obj l)" est la même sur mac? Ne faut il pas enlever le "C:" ?

 

 


Cette partie là est correcte. Je me demande si la commande _area fonctionne encore de la même manière sur la 2013 (je suis en 2011).

 

Olivier

Message 5 sur 15
Kevin_Megel
en réponse à: Simon59152

il faudrait essayer, tu peux l'enlever dans un traitement de texte dans le lisp que j'ai essayer sous mac il 'y avais pas de C:

Kevin Megel
Ce post vous a été utile ? N'hésitez pas à aimer ce post.
Ce post a-t-il répondu à votre question ? Cliquez sur le bouton Accepter la solution.

EESignature

Je suis un simple utilisateur, je ne travaille pas pour Autodesk

Message 6 sur 15
Olivier.R
en réponse à: Kevin_Megel

Bonjour Megeon,

Si tu as un mac sous la mains,

peux-tu essayer ceci :

 

(defun c:essai () (alert "essai") (princ))

 

et ceci

 

(defun essai () (alert "essai") (princ))

 

Olivier

Message 7 sur 15
Kevin_Megel
en réponse à: Olivier.R

je te dirrais ça se soir quand je serai chez moi si j'ai le temps, au taf j'ai un pc!

Kevin Megel
Ce post vous a été utile ? N'hésitez pas à aimer ce post.
Ce post a-t-il répondu à votre question ? Cliquez sur le bouton Accepter la solution.

EESignature

Je suis un simple utilisateur, je ne travaille pas pour Autodesk

Message 8 sur 15
Simon59152
en réponse à: Olivier.R

Je viens d'essayer les 2 lisps essai sur mon mac et les 2 fonctionnent...

 

Je ne comprends donc pas d'où vient le problème...

Message 9 sur 15
Olivier.R
en réponse à: Simon59152

La commande _area fonctionne telle sur MAC 2013 et si oui qu'elles sont les options.

Olivier

Message 10 sur 15
Simon59152
en réponse à: Olivier.R

Oui elle fonctionne:

 

"

Commande: _AREA
Spécifiez le premier coin ou [Objet/Ajouter une aire/Soustraire une aire] <Objet>:
Spécifiez le point suivant ou [Arc/Longueur/annUler]:
Spécifiez le point suivant ou [Arc/Longueur/annUler]:
Spécifiez le point suivant ou [Arc/Longueur/annUler/Total] <Total>:
Aire = 101671.124, Périmètre = 2827.401"

 

Qu'entends tu par options? 

Message 11 sur 15
Olivier.R
en réponse à: Simon59152

La je sèche, car la commande est correcte. Vérifie que tu as bien sélectionné tout le code après je vois pas, il va falloir attendre qu'un plus qualifié que moi passe par là..

Olivier

Message 12 sur 15
Simon59152
en réponse à: Olivier.R

Je viens de résoudre en partie le problème...

 

En effet le lisp marche, quand je fais un copier coller à partir du forum et que je colle directement dans la ligne de commande.

 

Elle ne fonctionne plus quand j'ouvre text edit, que je la colle dans un nouveau fichier ou je change l'extension pour .lsp et que je charge dans autocad...

 

Ceci est très bizarre. 
Donc en fait à chaque fois que je veux l'utiliser je vais devoir faire un copier coller du forum...

 

Merci pour vos réponses 

Message 13 sur 15
Olivier.R
en réponse à: Simon59152

Je ne connais pas l'environnement mac mais il te faut un étiteur de texte simple. Les logiciel de traitements de textes plus avancés ne peuvent-être utilisé dans ce cas.

Olivier

Message 14 sur 15
Simon59152
en réponse à: Olivier.R

Merci il s'agissait en effet du problème!

 

J'utilisais Textedit qui est une éditeur de text Mac mais qui ne semble pas adapter au code.

J'ai donc téléchargé un equivalent de notepad++ pour mac (TextWrangler) qui fonctionne très bien, et qui à fonctionné directement.

 

Merci beaucoup pour toutes vos réponses!

 

J'aurai une dernière question: Connaissez vous un site ou je puisse récupérer des lisps de ce style, succeptible de fonctionner sur mac?

 

Merci bonne journée!

Message 15 sur 15
Olivier.R
en réponse à: Simon59152

voici un lien

 

Les routines ne sont pas forcément adaptée pour mac. Les plus perfectionnées ne fonctionneront pas.

Si tu vois la lignes (vl-load-com) oubli car les fonctions vlisp n'existe pas sous mac.

La dernière verion d'Autocad Mac comprend des fonctions équivalentes et certains lispeur commencent à les utiliser (elles sont compatible MAC et Windows)

 

Olivier

Vous n'avez pas trouvé ce que vous recherchiez ? Posez une question à la communauté ou partagez vos connaissances.

Publier dans les forums