CAO, généralités

Bonsoir,   Merci c'est OK   Patrice

Salut, AutoCAD installe la version de .NET qu'il utilise (.NET 8.0 pour AutoCAD 2025, .NET Framework 4.8 pour 2021-2024, .NET Framework 4.7 pour 2019-2020, etc.), donc tu n'as pas besoin de vérifier la version de .NET.

Bonjour, Ayant effectué la migration de toutes mes routines, non sans difficulté, j’ai conçu un programme d’installation de celles-ci qui s'adapte en fonction de la version d’AutoCAD. Ce programme vérifie si la bonne version du framework est installée sur le PC en examinant la base de registre Windows. Dois-je faire de même pour le .NET Core 8.0 ? Si oui, peut-on effectuer un test sur la présence de la clé suivante : ‘HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\ASP.NET Core\Shared Framework\v8.0\8.0.4’ Salutations.

Coucou, Par simple complémentarité avec la réponse de (gile), tu peux également utiliser le Visual LISP avec la propriété "Plottable" : ((lambda (/ layers layer lst) (setq layers (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object)))) (vlax-for layer layers (setq lst (cons (cons (vlax-get layer "Name") (vlax-get layer "Plottable")) lst ) ) ) (reverse lst) )) Dans ce 1er cas de figure tu obtiendras un résultat du genre : (("0" . -1) ("Calque1" . -1) ("Calque2" . 0)) Avec : Tu peux également utiliser la forme contractée des fonctions (vlax-get), mais attention car le résultat est différent du premier : ((lambda (/ layers layer lst) (setq layers (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object)))) (vlax-for layer layers (setq lst (cons (cons (vla-get-Name layer) (vla-get-Plottable layer)) lst ) ) ) (reverse lst) )) Dans ce 2nd cas de figure tu auras plutôt ce résultat : (("0" . :vlax-true) ("Calque1" . :vlax-true) ("Calque2" . :vlax-false)) Soit : Donc cela ne change rien pour le nom des calques évidemment mais en revanche, les résultats imprimable/non imprimable est impacté 🙂 Bisous, Luna

Salut, Tu peux savoir si un calque est imprimable avec le groupe DXF 290 ou la propriété IsPlottable (1 = imprimable, 0 = non-imprimable). ((lambda (/ layer name lst) (while (setq layer (tblnext "layer" (not layer))) (setq name (cdr (assoc 2 layer)) lst (cons (cons name (cdr (assoc 290 (entget (tblobjname "layer" name)))) ) lst ) ) ) (reverse lst) ) )   ((lambda (/ layer name lst) (while (setq layer (tblnext "layer" (not layer))) (setq name (cdr (assoc 2 layer)) lst (cons (cons name (getpropertyvalue (tblobjname "layer" name) "IsPlottable") ) lst ) ) ) (reverse lst) ) )