Jump to content

Recommended Posts

Bonjour,

Je travaille avec un mac depuis des années avec AUTOCAD sous paralells desktop. Tout allait très jusqu'il y a peu et un projet colossal utilisant plus de 35 XREFs venant de différents métiers. Le plan devenait très lourd à manipuler. Ajout d'une carte graphique externe pas suffisant.

D'ou l'idée d'installer AUTOCAD MAC et là parfait le plan devient très fluide. 

Parfait! Et bien non, j'ai quelques lisp qui sont bien pratique mais je ne sais pas les utiliser, pourtant le lisp est supporté.

Que doit on faire? Une idée? 

Merci d'avance

Alain

Link to post
Share on other sites

Salut,

AutoCAD MAC ne supporte pas entièrement le LISP. Toutes les fonctions dites Visual LISP qui utilisent l'interface COM ne sont pas reconnues (et pour cause, COM/ActiveX est spécifique  à Windows).

Gilles Chanteau - gileCAD -
Développements sur mesure pour AutoCAD
ADSK_Expert_Elite_Icon_S_Color_Blk_125.png

Link to post
Share on other sites

Bonjour Gile,

C'est bien que tu répondes, c'est justement un de tes lisp qui me manque le plus "INCSUFF".

Tant pis, je ferai des aller-retour AUTOCAD MAC - AUTOCAD WINDOWS

Bonne journée.

Alain

Link to post
Share on other sites
1 hour ago, Curlygoth said:

Je vais peut être dire une connerie...

Mais je sais que tu peux programmer autocad en... (gile ferme les yeux xD) VBA aussi regarde si le module vba est téléchargeable sur Mac ça peut-être une alternative au lisp

je crains que tu en ait dit une. VBA utilise précisément l'interface COM...

Gilles Chanteau - gileCAD -
Développements sur mesure pour AutoCAD
ADSK_Expert_Elite_Icon_S_Color_Blk_125.png

Link to post
Share on other sites

@CurlygothLes seules interfaces de programmation supportés par AutoCAD MAC sont : AutoLISP (sans COM/ActiveX ni DCL) et ObjectARX/C++ donc ni VBA, ni .NET.
Voir cette page.

@DPB6804Désolé mais, le LISP Increment utilise un peu COM/ActiveX (ce qui aurait pu être transcrit en "pur AutoLISP") mais aussi des boites de dialogue DCL qui, comme dit ci-dessus ne sont pas supportées non plus par AutoCAD MAC.

Gilles Chanteau - gileCAD -
Développements sur mesure pour AutoCAD
ADSK_Expert_Elite_Icon_S_Color_Blk_125.png

Link to post
Share on other sites

Bonjour

Merci @lecrabe de poser LA (bonne) question
Il devient de plus en plus commun de ne pas poser de question ou alors d'une imprécision démoniaque et de s'étonner de ne pas recevoir de réponse (voire de s'en plaindre).

Nous, on est des gens gentils (je parle pour moi, car je sais que les autres sont méchants) et on aimerait bien répondre, aider, dépatouiller, faire avancer...
Tout le monde sait a compris que certains LSP ne fonctionnent pas dans l'environnement MAC, pour savoir s'il est possible de les ré-écrire en "AutoLISP" il faudrait savoir de quoi on parle.

Patientons encore...

Amicalement

Link to post
Share on other sites

Hello

SVP tu regardes le GIF anime joint ... Cela te convient-il ?

La Sante, Bye, lecrabe "triste et fatigue"

 

 

ATT_INC_PREF_SUFF.gif

Autodesk Expert Elite Team

Link to post
Share on other sites

Hello

Voici donc l excellente routine "ATT_INC_PREF_SUFF" de Ranjit Singh ...

ATTENTION: le Nom de l Attribut (ATTDEF) est sensible "a la casse" !

Routine tiree de mon stock de 3001 routines ...

LA SANTE, Bye, lecrabe "fatigue & triste"

 

 
;; 
;; Routine: ATT_INC_PREF_SUFF by Ranjit.Singh
;; 
;; Incrementation d UN Attribut specifique 
;; 
;; v1.1 Micro-Micro Modif par Patrice B.
;;

(defun c:ATT_INC_PREF_SUFF  (/ ent etdata found post post2 pre ss1 Att_Tag) 

 (setq Att_Tag   (getstring "\nATTENTION: NO Error Management \nPlease EXACT Tag Name for the Attribute: ") )

 (setq pre   (getstring "\nEnter new attrib prefix: ")
       post2 (getstring "\nEnter new attrib suffix: ")
       post  (1- (getint "\nEnter starting integer: ")))
 (while (setq ss1 (ssget ":s" '((0 . "insert") (66 . 1))))
  (setq found ()
        ent   (ssname ss1 0))
  (while (and (setq ent (entnext ent)) (null found))
   (setq etdata (entget ent))
   (and (= (cdr (assoc 0 etdata)) "ATTRIB") 

;         (= (cdr (assoc 2 etdata)) "ADSKFACTORY:Custom.ASSET_TAG") 
          (= (cdr (assoc 2 etdata)) Att_Tag                       ) 

        (setq found t)
        (entmod (subst (cons 1 (strcat pre (itoa (setq post (1+ post))) post2)) (assoc 1 etdata) etdata)))))
)

 

Autodesk Expert Elite Team

Link to post
Share on other sites
On 17/04/2021 at 10:35, lecrabe said:

Hello

SVP tu regardes le GIF anime joint ... Cela te convient-il ?

La Sante, Bye, lecrabe "triste et fatigue"

 

 

ATT_INC_PREF_SUFF.gif

Bonjour lecrabe,

Désolé, mais voilà seulement que je vois les messages.

Je dois re-numéroter un millier de luminaires. J'ai créé un bloc avec des attributs dont un attribut de numérotation numérique ou alpha numérique (suivant le propriétaire des luminaires).

Ce que tu montres sur le GIF est parfait pour moi.

Alain

Link to post
Share on other sites

Hello @DPB6804

Alors SVP la routine "en pur" Lisp "ATT_INC_PREF_SUFF" de Ranjit Singh, est OK sur ton Mac ?

La Sante, Bye, lecrabe (triste & fatigue)

 

 

Autodesk Expert Elite Team

Link to post
Share on other sites
3 hours ago, lecrabe said:

Hello @DPB6804

Alors SVP la routine "en pur" Lisp "ATT_INC_PREF_SUFF" de Ranjit Singh, est OK sur ton Mac ?

La Sante, Bye, lecrabe (triste & fatigue)

 

 

Bonjour lecrabe,

Un peu plus rébarbatif que incsuf mais ça fait le boulot.

Parfait, encore merci à toi et à la communauté. Jamais déçu de CADXP. 😁

Bonne journée.

Alain

Link to post
Share on other sites

Hello

OK Merci donc mon salaire sera un Bon Whiskey Single Malt !

Dont je ne peux toujours pas apprecier l'odeur !!

La Sante, Bye, lecrabe (triste & fatigue)

Autodesk Expert Elite Team

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...