ACAD LT 2024 Win : les Lisps/VLisps qui fonctionnent

[lecrabe]

Hello @DenisHen @didier @Olivier Eckmann

Je dirais plutot ...

*** Option A ***

-- 1/2/3 AutoCAD MAP (avec / sans Covadis) pour les gens dans le VRD / Topo ...

-- Ou 1/2/3 Covadis v18 sur 1/2/3 AutoCAD MAP OEM de Geomedia

puis

--  N  licences de AutoCAD LT 2024 Windows

-- ou N licences ZWCAD (700 Euros la licence permanente) / ZWCAD Pro (1100 Euros la licence permanente)

*** Option B ***

-- 1/2 AutoCAD LT 2024 Windows pour construire / modifier les Blocs dynamiques

-- et N licences ZWCAD (700 Euros la licence permanente) / ZWCAD Pro (1100 Euros la licence permanente)

 

RAPPEL : ZWCAD peut utiliser les Blocs dynamiques mais ne peut pas les creer !

( Car la licence sur les Blocs dynamques d'Autodesk cours jusqu en 2026 )

 

Bye, lecrabe

 

[JPhil]

Et concernant les données étendues (XData), faudra-t-il rester sur une version Full ?

[DenisHen]

Je me posais la même question pour les (vlax-ldata-...

[lecrabe]

Hello @JPhil @DenisHen

 

Alors comme deja signale par mon mon message No 2 :

-- DYN_READ_XDATA  de Bonuscad pour voir en Infobulle les XDATAs = OK

-- MODIF_XDATA  de Bonuscad pour modifier le contenu des XDATAs = OK

-- XDA  de Gilles pour voir (en case de dialogue) le contenu des XDATAs = OK

-- COPY_XD  de Gilles pour copier les XDATAs (IDEM le "Pinceau") = OK

-- XDLIST  d Autodesk pour afficher sur Ecran texte les XDATAs = OK

 

MAIS la routine "XDATA" d Autodesk pour creer des XDATAs ne marche pas car appel a la fonction "ACET-STR-FORMAT" des Express/Bonus Tools

 

NOTE 1 : la routine de Bonuscad "MODIF_XDATA" (qui est OK) est en PUR Lisp !

NOTE 2 : INPUTXDATA de Gilles qui attache a UNE entite selectionnee UN texte tape au clavier = OK - Car PUR Lisp

 

Donc il faut que je teste avec d autres Lisp sur les XDATAs, je completerais CE message ...

 

Bye, lecrabe

 

;; Par Bonuscad - MODIF_XDATA.lsp
;; http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=31123#pid134134

(defun c:modif_xdata ( / js ent xd_list e_data el msg what new nw_data)

  (setq namapp (getstring "\nNom de l'application ?: "))

  (while (not (setq js (ssget "_+.:E:S" (list '(0 . "*") (cons -3 (list (list namapp))))))))

  (setq

    ent (entget (ssname js 0) (list namapp))

    xd_list (cdr (assoc -3 ent))

    e_data (cdr (car xd_list)) el '(0)

  )

  (repeat (1- (length e_data)) (setq el (cons (1+ (car el)) el)))

  (setq msg "")

  (initget (foreach n (setq el (mapcar 'itoa el)) (setq msg (strcat n " " msg))))

  (setq msg "")

  (setq msg (strcat "\nElément à modifier? [" (foreach n el (setq msg (strcat n "/" msg)))  "]"))

  (print e_data)

  (setq what (getkword msg))

  (princ "\nRemplacer ")

  (princ (cdr (nth (atoi what) e_data)))

  (princ " par -> ")

  (cond

    ((member (car (nth (atoi what) e_data)) '(1000 1003 1005))

      (setq new (cons (car (nth (atoi what) e_data)) (getstring " nouvelle chaine: ")))

    )

    ((member (car (nth (atoi what) e_data)) '(1040 1041 1042))

      (initget 1)

      (setq new (cons (car (nth (atoi what) e_data)) (getreal " nouvelle valeur réelle: ")))

    )

    ((member (car (nth (atoi what) e_data)) '(1070 1071))

      (initget 1)

      (setq new (cons (car (nth (atoi what) e_data)) (getint " nouvelle valeur entière: ")))

    )

    ((member (car (nth (atoi what) e_data)) '(1010 1011 1012 1013))

      (initget 1)

      (setq new (cons (car (nth (atoi what) e_data)) (getpoint " nouveau vecteur: ")))

    )

    (T

      (princ "\nNe peut changer ce type d'élément !")

      (setq new (nth (atoi what) e_data))

    )

  )

  (setq nw_data '())

  (foreach n el (if (eq n what) (setq nw_data (cons new nw_data)) (setq nw_data (cons (nth (atoi n) e_data) nw_data))))

  (entmod (append (entget (ssname js 0)) (list (cons -3 (list (cons (caar xd_list) nw_data))))))

  (prin1)

)

 

[DenisHen]

J'ai cru comprendre que seuls les (vlax-create-object, (vlax-get-object, (vlax-get-or-create-object, (vlax-import-type-library et  (vla-GetInterfaceObject ne fonctionnaient pas.
Puis-je en déduire que les (vlax-ldata- fonctionnent ?
Je connais des proprios fidèles à LT, il devraient se jeter sur la 2024. 
Je vous confirmerais dès que j'ai l'info...

[didier]

Bonjour @lecrabe

C'est bien sympa de donner des exemples, mais la liste risque d'être très longue.
Je me permets de te demander de donner le LSP en pièce jointe s'il te plaît, car lire les dizaines (centaines) de ligne de code dans le forum est un pensum !

Amicalement

 

 

[Curlygoth]

OK merci Lecrabe ! (je suis passer à une autre méthode pour les blocs dynamiques)

[lecrabe]

Hello @didier

Je t ai envoye les Routines Lisp qui traitent les XDATAs ...

Quand je passe vers Niort, cela te coutera un excellent Cognac !

La Sante, Bye, lecrabe

 

[didier]

Coucou @lecrabe

Je crains que tu aies mal compris mon propos.
Pas de souci pour le cognac, même si mes penchants personnels s'orientent vers les céréales, tu passes quand tu veux...
Je ne parlais pas de pièces jointes dans un mail perso, mais de dépôt sur le forum.

C'est plus facile à lire...

Amicalement

 

 

 

[didier]

Bonjour @Curlygoth

Tu écris ceci : Je suis passé à une autre méthode pour les blocs dynamiques
Le principe de nos forums étant le partage de savoirs : tu pourrais nous en dire plus de cette autre méthode ? je suis friand de nouveautés.

S'il te plaît.

Amicalement

[Curlygoth]

yes je créé un bloc disons gabarit sans réel dimension

et je m'arrange (base de données d'entité pouvant être allonger ou réduit)  pour deplacer les autres entités à déplacer.

Les coordonnées des polys sont modifiées (entité pouvant être allongé ou réduit) pour avoir un bloc faussement dynamique en faite ^^

un peu comme le principe de mes fourreaux mais la je ne "suis" pas de polylignes mais je pars d'un bloc de base que j'édite par code

pour les formes simples : je joues sur l'echelle X  / Y  et ça suffit !

Citation

Le principe de nos forums étant le partage de savoirs : tu pourrais nous en dire plus de cette autre méthode ? je suis friand de nouveautés.

c'est surtout que c'est un sujet sur le lisp que je ne maitrise pas.. donc je ne suis pas sur que mon intervention soit pertinente

je voulais surtout signaler que s'il manque un outil sur un programme, il existe d'autre moyen d'arriver à nos fins 😉

[didier]

Bonjour @Curlygoth

Tu peux me contacter en privé pour en discuter, car ce que tu expliques est quelque peu abstrait.
Oui, j'aimerais qu'on en discute pour étudier les avantages.

Amicalement

[lecrabe]

Hello

Alors pour ceux qui sont passionnes par les XDATAs !

Apres la routine "MODIF_XDATA" de Bruno / Bonuscad voici la routine "XDA" de Gilles

pour voir en case de dialogue DCL (aucune Modif possible) le contenu des XDATAs

Bonne journee, Bye, lecrabe

 

 
;; 
;; XDA par Gilles
;; 
;; Affiche une boite de dialogue DCL qui liste les donnees etendues de l objet selectionne
;; 
;; Commande au clavier :  XDA
;; 

(defun c:xda (/ xd-box tmp file dcl_id ent dlst)
(defun xd-box (dlst)
(setq tmp (vl-filename-mktemp "Tmp.dcl")
file (open tmp "w")
)
(write-line
"XdBox:dialog{label=\"Donnees Etendues (XDATA) \";"
file
)
(foreach l dlst
(write-line
(strcat ":boxed_column{label="
(vl-prin1-to-string (car l))
";"
)
file
)
(foreach p (cdr l)
(write-line
(strcat ":edit_box{label=\""
(cond
((= 1000 (car p)) "1000 Chaine : ")
((= 1002 (car p)) "1002 Accolade : ")
((= 1003 (car p)) "1003 Calque : ")
((= 1004 (car p)) "1004 Binaire : ")
((= 1005 (car p)) "1005 Maintient : ")
((= 1010 (car p)) "1010 Point : ")
((= 1011 (car p)) "1011 Position : ")
((= 1012 (car p)) "1012 Deplacement : ")
((= 1013 (car p)) "1013 Direction : ")
((= 1040 (car p)) "1040 Reel : ")
((= 1041 (car p)) "1041 Distance : ")
((= 1042 (car p)) "1042 Echelle : ")
((= 1070 (car p)) "1070 Entier 16 bits : ")
((= 1071 (car p)) "1071 Entier 32 bits : ")
)
"\";value=\""
(vl-princ-to-string (cdr p))
"\";edit_width=30;}"
)
file
)
)
(write-line "}" file)
)
(write-line "spacer;ok_only;}" file)
(close file)
(setq dcl_id (load_dialog tmp))
(if (not (new_dialog "XdBox" dcl_id))
(exit)
)
(start_dialog)
(unload_dialog dcl_id)
(vl-file-delete tmp)
)

(if
(and
(setq ent (car (entsel)))
(setq dlst (cdr (assoc -3 (entget ent '("*")))))
)
(xd-box dlst)
(alert "Cet objet ne comporte pas de Donnees Etendues (XDATA) ! ")
)
(princ)
)  

 

[(gile)]

Salut,

Il semble que AutoCAD 2024 LT supporte les fonctions dumpallproperties, getpropertyvalue et setpropertyvalue (ajoutés depuis A2012 pour compenser l'absence des fonctions vla[x] dans les versions full d'AutoCAD MAC). Donc, avec le support des fonctions vla-* AutoCAD LT est désormais mieux armé en LISP que AutoCAD MAC full...

@DenisHen Les fonctions vlax-ldata devraient fonctionner (elle ne nécessitent pas l'accès à des applications externes). Je n'ai pas testé (pas de LT installée) mais si tu as accès à des AutoCAD 2024 LT, le plus simple est de tester par toi même.

[DenisHen]

Salut @(gile).
Merci pour ces précisions.
Oui, dès que j'ai accès à un LT 2024, je ferais quelques tests.

[lecrabe]

Hello @(gile)

OUI je pense que (pour la plupart des Users) il vaut mieux avoir un AutoCAD LT 2024 Windows que un AutoCAD 2024 Full Mac !

Sauf si on a besoin de la 3D d AutoCAD !?

Bon WE, La Sante, Bye, lecrabe

 

[Eric]

Je ne sais pas si vous l'avez vu, mais il y a ce document qui explique les limitations de LT.

https://help.autodesk.com/view/ACDLT/2024/FRA/?guid=GUID-037BF4D4-755E-4A5C-8136-80E85CCEDF3E

 

[Curlygoth]

MP envoyer didier 😉

 

[lecrabe]

Hello

ATTENTION : les Lisp / VLisp faisant appel a Excel (et autres programmes / ressources Windows) ne fonctionnent pas malheureusement !

Ainsi par exemple : impossible de faire tourner avec AutoCAD LT 2024, les excellentes routines IXL / LXL du regrette Patrick_ 35 !!

La Sante, Bye, lecrabe

 

[Eric]

Le 04/04/2023 à 11:05, lecrabe a dit :

RAPPEL : ZWCAD peut utiliser les Blocs dynamiques mais ne peut pas les creer !

( Car la licence sur les Blocs dynamques d'Autodesk cours jusqu en 2026 )

 

Bye, lecrabe

 

Bonjour, 

Ce n'est plus le cas avec ZWCAD 2024 qui apporte une fonction nommée "Blocs flexibles" qui fait la même chose que les blocs dynamiques.

[BIM G CO]

 

Le 03/04/2023 à 08:37, Olivier Eckmann a dit :

@bonuscad,

 

Le plus gros risque pour avoir introduit le Lisp dans AutoCAD, c'est perdre des licences Full au profit des LT, même si le but est bien de faire revenir les clients qui étaient partis chez les Clones.

Un LT c'est 552€/an et un Full 2322€/an . Ca va faire réfléchir des DSI qui souhaitent réduire leur cout.

 

Olivier

GstarCAD, ce que j'ai acheté c'est 650€ HT et c'est tout. Il existe toutefois une version en location à 640€ pour 3ans

Il y a une différence pour les LISP. C'est pour cette raison que je suis en train de travailler d'arrache-pied sur ce sujet pour parfaire la compatibilité.

[lecrabe]

Hello

Un truc interessant ...

https://help.autodesk.com/view/ACDLT/2024/ENU/?guid=GUID-C172532D-744A-47CF-8D11-0B0C5896C076

Bye, lecrabe

 

[rebcao]

Salut @lecrabe,

Je suis justement à la recherche d'un LISP capable de modéliser un MAILLAGE (MNT) à partir de position de BLOC en X,Y,Z ?

Comme je ne pratique pas la langue de J'EXPIRE... c'est un peu compliqué de trouver tout ça sur les forums, Anglo.

pour l'utiliser sur une LT 2025...

Christian

 

[lecrabe]

Hello @rebcao

A tester la celebre routine LSP "TRIANGULATE" de Elpanov qui traite les Points 

A priori en remplacant le filtre de selection "POINT" par "INSERT", ca devrait faire !?

SVP tu nous diras ...

Bye, lecrabe

 

TRIANGULATE___Point__Elpanov.zip

[rebcao]

Super Pat, je te remercie...

Que ne ferait-on pas sans toi ?

Ex. ChoucrouteMann