(gile)

Salut, Tu utilises une vieille version de Obj2wipeout.lsp. Depuis AutoCAD 2013, acwipeout.arx a été intégré dans acismui.arx Tu trouveras la dernière version de Obj2wipeout.lsp su cette page.

Un formulaire Windows on peut être redimensionnable ou pas. Pour un formulaire redimensionnable, on peut aussi spécifier une taille minimale et/ou maximale (ou pas).

Quand la bière et le whiskey inondent le pays du beaujolais...

Salut, Tu peux essayer ça, les attributs devraient être synchronisés. Tu peux remplacer "Arial" et/ou "Standard" dans le code par les noms de style que tu veux. (defun c:ReplaceTextStyle (/ oldStyle newStyle) (vl-load-com) (or *acad* (setq *acad* (vlax-get-acad-object))) (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument *acad*))) (setq oldStyle "Arial" newStyle "Standard" ) (vlax-for block (vla-get-Blocks *acdoc*) (if (= (vla-get-IsXRef block) :vlax-false) (vlax-for obj block (if (and (vlax-property-available-p obj "StyleName" T) (= (vla-get-StyleName obj) oldStyle) ) (vla-put-StyleName obj newStyle) (if (= (vla-get-ObjectName obj) "AcDbBlockReference") (foreach att (vlax-invoke obj 'GetAttributes) (if (= (vla-get-StyleName att) oldStyle) (vla-put-StyleName att newStyle) ) ) ) ) ) ) ) (vla-Regen *acdoc* acAllViewports) (princ) )

Salut, Si j'ai bien compris, la routine ci-dessous devrait satisfaire la demande. (defun c:lg (/ filename txt elst name p1 dist lst file) (setq filename (strcat (getvar 'dwgprefix) (vl-filename-base (getvar 'dwgname)) ".csv")) (vl-catch-all-apply '(lambda () (while (and (or (and (setq txt (car (entsel "\nSélectonnez le texte du tronçon : "))) (setq elst (entget txt)) (wcmatch (cdr (assoc 0 elst)) "*TEXT") (setq name (cdr (assoc 1 elst))) ) (/= (vl-string-trim " \t\n" (setq name (getstring "\nSaisir le nom du tronçon :")) ) "" ) ) (setq p1 (getpoint "\nSpécifiez le premier point : ")) (setq dist (getdist p1 "\nSpécifiez le second point : ")) ) (if elst (entmod (if (assoc 62 elst) (subst '(62 . 3) (assoc 62 elst) elst) (append elst '((62 . 3))) ) ) ) (setq elst nil lst (cons (strcat name ";" (rtos dist 2 2)) lst) ) ) ) ) (setq file (open filename "w")) (foreach str (reverse lst) (write-line str file) ) (close file) (princ) )

Salut, Quelque chose comme ça ? (defun c:TXT2FIELD (/ doc txt pt) (vl-load-com) (setq doc (vla-get-Activedocument (vlax-get-acad-object))) (if (and (setq txt (car (nentsel "\nSéléctionnez un texte ou un attribut: "))) (member (vla-get-ObjectName (setq txt (vlax-ename->vla-object txt))) '("AcDbAttribute" "AcDbMText" "AcDbText") ) ) (if (setq pt (getpoint "\nSpécifiez le point d'insertion : ")) (vla-AddText (vla-get-Block (vla-get-ActiveLayout doc)) (strcat "%<\\AcObjProp Object(%<\\_ObjId " (vla-GetObjectIdString (vla-get-Utility doc) txt :vlax-false) ">%).TextString \\f \"%tc1\">%" ) (vlax-3d-point (trans pt 1 0)) (getvar 'textsize) ) ) (prompt "\nSéléction no valide.") ) (princ) )

Salut, Tu peux essayer ZombieKiller (si tu n'as pas l'object enabler pour ces AEC, il sont vus comme des objets proxy). Sinon, en général, l'enregistrement en DXF 12 nettoie drastiquement les fichiers.

C'est un fichier LISP. Comme dit ci-dessus, il est chargé dans chaque dessin si un fichier CUIX de même nom est chargé. Ce fichier peut donc contenir soit directement des routines LISP soit des expressions (load ...) ou (autoload ...) pour charger d'autres fichiers .lsp.

Salut, LayerFilterImportExport devrait fonctionner sur des "AutoCAD modernes". Charger LayerFilterImportExport.dll jusqu'à AutoCAD 2012 et LayerFilterImportExport_19 pour 2013 et plus. Par contre, je rappelle que LayerFilterImportExport permet d'importer ou d'exporter les filtres de propriété.

À ma connaissance, il n'y a pas "d'Introduction à Visual LISP", en tous cas, pas en français. En anglais (incontournable), il y a The Visual LISP Developers Bible et l'aide ActiveX. Mais j'ai toujours préconisé de commencer par apprendre les fondamentaux d'AutoLISP avant de s'attaquer à l'interface COM/ActiveX (fonction vla et vlax) ou aux réacteurs (fonctions vlr).

Attention VSMIN VSMAX ne retourne pas la même chose que la routine de VDH-Bruno. Compare : (apply 'command (cons "_rectang" (cooraff))) et : (command (getvar 'vsmin) (getvar 'vsmax))

Salut, En faisant une recherche avec SCREENSIZE VIEWSIZE VIEWCTR, les 3 variables systèmes nécessaires au calcul des coordonnées de la vue courante, j'ai trouvé ce sujet.

Salut, Super, il manque juste un onglet pour 'dumpallproperties'.

Salut, AutoLISP s'exécute dans le contexte du document. Ça signifie qu'une expression LISP lancé dans un document (dessin) ne peut continuer son exécution dans un autre. Il existe des moyens en utilisant Visual LISP (autrement dit, les fonctions vla*) pour agir sur des dessins ouverts ou sur la base de donnée de dessins fermés mais ça ne permet pas l'utilisation de (command ...) et demande donc de connaître l'utilisation des fonctions vla*. Donc, soit tu ouvres ton dessin "à la main" puis tu charges/lances ton LISP pour insérer le texte ; soit tu veux faire un traitement par lots automatisé et tu utilises SuperAutoScript pour ouvrir les dessins et exécuter un script qui charge et lance ton LISP.

Salut, Peux-tu dire d'où vient cette version 3.6. Sur CAdxp comme sur gileCAD, on est resté à 3.5. Dans tout les cas, Edit_bloc fonctionne sur A2018. Comment charges-tu le VLX? Si tu charges le VLX, tu n'as besoin ni du lsp ni du dcl.

Je suis assez d'accord, mais il y a eu des surprises par le passé (je pense aux améliorations 3D de la 2007 que plus personne n'attendait), donc on peut toujours espérer... Mais là, je je pense sincèrement qu'ils devraient faire gaffe ; entre leur tarifs, leur nouvelle politique de licence en location et l'absence d'évolutions notables, les "clones" ont une grosse brèche dans laquelle BricsCAD* s'est engouffré depuis quelques temps déjà et ça commence à se sentir (contraintes 3D, BIM, BLADE, etc.) * En France, BricsCAD est moins "populaire" que ZWCAD (probablement à cause d'une communication moins offensive de la part de Briscsys ici) mais semble très populaire outre atlantique (du moins pour ce que j'en vois dans certains forums).

Oui, il n'y a plus qu'à ajouter le zoom et la purge en vlisp, une paille...

Salut, AutoLISP s'exécute dans le contexte du document. Ça veut dire que les fichiers LISP doivent être chargés dans chaque document et qu'une routine LISP lancée dans un document ne peut continuer son exécution dans un autre. Il existe bien certains mécanismes en "Visual LISP" pour accéder à des documents fermés ou ouverts mais qui sont moins abordables pour un débutant, entre autre parce qu'il n'autorisent pas utilisation de (command ...). Regarde plutôt du côté des scripts et de SuperAutoScript.

Cet IDE paraît (pas essayé) en tous cas plus "moderne" que l'éditeur Visual LISP, en même temps ça serait malheureux quand on sait que le VLIDE date de 1999 et n'a pas évolué depuis. En espérant que ça va faire bouger un peu Autodesk qui, il y a une dizaine d'années, avait noté VLIDE enhancement dans sa wishlist mais semble bien avoir abandonné l'idée depuis...

Salut, Tu peux enregistrer l'historique des commandes dans un fichier journal en mettant la variable système LOGFILEMODE à 1. La variable LOGFILENAME renvoie le chemin complet du ficher (lecture seule), tu peux modifier le répertoire du fichier journal via la variable LOGFILEPATH ou la boite de dialogue Options... > onglet Fichiers > Emplacement du fichier journal.

Salut, Pour trouver d'où vient une erreur dans un LISP, tu peux utiliser la méthode décrite dans la vidéo ci-dessous.

Salut, Je n'ai pas regardé en détail, mais vers la fin du fichier LISP tu dois trouver ça : (defun precisionSelection () (setq precision 2) ) Essaye en remplaçant 2 par 3.

1) En VB(Script) le modèle serait : "(\w)\w(\w)", mais en LISP (comme dans tous les langages où le caractère '\' est le caractère d'échappement), il faut le doubler. 2) En fait, à l'index 0, c'est la correspondance complète du Match (en tout cas, c'est comme ça en .NET avec Match.Groups), donc pour les SubMatches, on commence à 1. Edit : pour les symboles $1, $2, etc. il semble que ce soit simplement une convention, $1 correspond au premier 'sub-match' (voir le chapitre Phone number back reference)

Salut, Une mise à jour intermédiare de BricsCAD (18.2) arrive avec de vraies nouveautés dont une spectaculaire : un environnement de développement intégré pour AutoLISP, concurrent moderne de l'éditeur Visual LISP d'AutoCAD. Nommé BLADE (BricsCAD LISP Advanced Development Environment) cet IDE devrait être compatible avec les versions MAC et LINUX de BricsCAD. Sur CAD Nauseam : Bricsys shows Autodesk how to do mid-term updates – again! Interviewing the creator of BLADE – CAD’s best LISP IDE – part 1 Interviewing the creator of BLADE – CAD’s best LISP IDE – part 2

Non, c'est valable pour tous les caractères spéciaux : . $ { [ ( | ) * + \ C'est fait, j'aurais aimé trouver mieux en français (comme celui-là, mais il concerne les expressions régulières .NET qui offrent encore plus de fonctionnalités.)