fabcad

A part la lecture et l'insertion de rasters ECW, rien ne manque, je teste mes fonctions lisp et tournant en Visual lisp. Fabcad, Le Rennais Métropolitain.

Bonjour, Un petit comparatif tarifaire : ZWCAD 2022 GstarCAD 2022 Licence perpétuelle par Code Licence perpétuelle par Code Standard (2D + LISP) Standard 680€ H.T 490,00 € Licence perpétuelle par Code Licence perpétuelle par Code Pro Pro 1099 € H.T. 650,00 € Fabcad Le Rennais Métropolitain

J'ai acheté récemment GStarCAD et celui-ci est vraiment véloce, compatible dwg. Je le recommande pour le tarif des licences Standard ou Professionnel. Fabcad, Le Rennais Métropolitain.

Merci Luna, C'est exactement çà, j'ai trouvé l'erreur. Bonne journée, Fabcad, Le Rennais Métropolitain.

Bonjour, Je souhaiterais de l'aide sur ma routine elle m'affiche ce message d'erreur : ; erreur: type d'argument incorrect: lentityp nil lors de l'appel de la sous-fonction de calcul d'angle. Hatch_sur_Toiture.lsp

Bonjour, Magnifique, je n'ai plus qu'a reprendre mes routines pour créer une qui ajoute mon texte ou mtext. Le nez dans le guidon et on ne voit plus rien, Merci eklundh80 Résultat de ma routine : ; Fabrice Demiel 20220220 (vl-load-com) (defun c:Ecrire_NomSCU_Fenetre (/ space vp pt a b nom_scu) (setq space (vla-get-PaperSpace (vla-get-ActiveDocument (vlax-get-acad-object)))) (if (and (setq vp (car (entsel "\n Selectionnez une fenetre : "))) (= (cdr (assoc 0 (entget vp))) "VIEWPORT") (setq a (assoc 345 (entget vp))) (setq b (assoc 2 (entget (cdr a)))) (setq nom_scu (cdr b)) (setq nom_scu (strcat nom_scu "\n_")) );fin and (progn (setq pt (getpoint "\n Specifiez un point pour le Mtexte :")) (setq obj_mtxt (vla-addMText space (vlax-3d-point pt) 0. nom_scu );fin vla-addMText );fin setq obj_mtxt (vla-put-AttachmentPoint obj_mtxt acAttachmentPointBottomCenter) (vla-put-Height obj_mtxt 4) (setq calque_NomsScu "_Noms des scu") (vla-put-Layer obj_mtxt calque_NomsScu) (princ) );fin progn );fin if (princ) ) Fabcad

Je souhaiterais récupérer dans un texte le nom de SCU nommé lié à un Viewport d'une présentation. J'ai essayé par la voie d'un texte avec un champ, mais dans les propriétés de l'objet Viewport ne figure pas cette valeur. Avez-vous des idées ? Merci d'avance, Fabcad

Bonjour, Quand feras-tu un zip de tes routines mon cher ami Lecrabe ? Bonne journée, Fabcad

Bonjour, La base de données Topo est sous RENN09 plus proche du 0,0 et donc plus précise, et Rennes Métropole est en CC48 car plus grande en superficie (Cadastre, orthophoto, etc.).

Bonjour, C'est un bug récurrent, effectivement dans notre collectivité Rennes Métropole et Ville de Rennes, deux systèmes de Coordonnées sont utilisés RGF93-CC48 et RENN09. Autodesk pourrait corriger ce bug, QGIS maitrise ces créations de systèmes de Coordonnées.

Bonjour Patrice, Boone retraite bien méritée. Kenavo et si tu passes par la Bretagne, ma porte t'es grande ouverte... Fabcad

Bonjour fiesta13310, Voici une réponse pour ta problématique numéro 2 : http://www.lee-mac.com/polyoutline.html d'autres pépites sont sur le site de Lee Mac. Fabcad Le Rennais Métropolitain

Sinceres condoleances à ses proches et amis.

Merci beaucoup, Cela fonctionne en enlevant les symboles. Bonne après-midi,

Merci j'ai déjà testé, mais la ligne de cotation s’arrête avant les symboles de début et de fin (Flèches), j'ai du prolonger les lignes obtenues (une centaine de lignes).

Bonjour à tous, Ami(e)s Lispeurs Lispeuses, Auriez-vous dans vos dossiers, une routine pour transformer une sélection de cotations en objets ligne (polyligne) et texte. Merci d'avance, Fabcad Le Rennais Métropolitain

Hello Les ZWCADiens, J'ai réalisé l’enquête mais pour ma part je ne pourrais glisser vers ce logiciel qu'avec des fonctionnalités SIG : Connexions, Requêtes, etc... Fabcad Le Rennais Métropolitain

Hello à tous, Voici ma fonction proptood.lsp fonctionnant avec un dcl que j'avais réalisée et qui reste améliorable. Fabcad Le Rennais Métropolitain PS : Envoyer-moi un message pour vous envoyer ma fonction car je n'arrive pas à joindre mon fichier ZIP

hello, Ces développeurs sont-ils au moins de vrais dessinateurs ? En SIG, les dessins sont géo référencés et donc positionnés pour être interopérable avec d'autres bases de données et logiciels SIG. C'est impossible de déplacer les données au risque de mettre en péril le SIG lui-même. A bon entendeur, salut. Fabcad, Le Rennais Métropolitain.

Bonjour, Je déterre ce post car je suis sur un AutoCAD MAP 2017 et un (cdr (assoc 11 (entget (car (entsel))))) me retourne un point qui est à 0,0,0 sur des Mpolygones générés depuis un import Shapefile. Par contre, un nouveau Mpolygone créé la clé 11 contient bien une coordonnée réelle en rgf93cc48. Je suis revenu à l'expression (ade_expreval obj_acad ".center" "point") et cela fonctionne mais c'est encore depuis l'analyseur AutoCAD MAP. La structure des Mpolygones importés aurait-elle changé depuis le version 2013. Merci d'avance, Fabcad Le Rennais Métropolitain

Bonjour à tous, Furieux le Décapode, aie aie caramba. Et si AutoDESK ne veut plus améliorer son produit qu'ils mettent toute l'application en open source. Fabcad Le Rennais Métropolitain

Bonjour, C'est exorbitant !!! Ma collectivité vient de passer tout juste sur AutoCAD MAP 2017, quand je vois une des fonctionnalités prévues par la version 2018 (txttomtxt existant depuis une quinzaine d'années dans les express tools et qui n'ont pas même pas amélioré au vu de la video). Nos élus s'interressent à l'open source, AutoCAD MAP n'a pas d'équivalent dans le monde du libre mais pour combien de temps encore. Fabcad Le Rennais Métropolitain

Bonjour, La plupart des cases de dialogue d'AutoCAD MAP sont gérées par la variable CMDDIA (commandes dialogue) FILEDIA plus pour les boites de dialogue de gestion de fichiers. Fabcad Le Rennais Métropolitain

Bonsoir Patrick, Voici une routine pour noter le nom des images. (defun c:ecrire_nom_d_images (/ js_images space mtxt nbr i acad_image_en_cours) (vl-load-com) (setq viewsize (getvar "VIEWSIZE")) (or *acad* (setq *acad* (vlax-get-acad-object))) (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument *acad*))) (setq recnum 0) (setq js_images (ssget '((0 . "IMAGE")))) (if js_images (progn (setq space (if (= 1 (getvar 'cvport)) (vla-get-PaperSpace *acdoc*) (vla-get-ModelSpace *acdoc*) ) ) (setq nbr (sslength js_images)) (setq i 0) (while (<= i (- nbr 1)) (setq acad_image_en_cours (ssname js_images i)) (setq vla_image_en_cours (vlax-ename->vla-object acad_image_en_cours)) (setq calque_image (vla-get-Layer vla_image_en_cours)) (setq pt_origine (cdr (assoc 10 (entget acad_image_en_cours)))) (setq hauteur_image (vla-get-ImageHeight vla_image_en_cours)) (setq largeur_image (vla-get-ImageWidth vla_image_en_cours)) (setq new_x (+ (nth 0 pt_origine) (/ largeur_image 2))) (setq new_y (+ (nth 1 pt_origine) (/ hauteur_image 2))) (setq new_z 0.0) (setq pt_centroide (list new_x new_y new_z ) ) (setq nom_fichier_image (vla-get-Name vla_image_en_cours)) ;(setq nom_fichier_image_complet (vla-get-ImageFile vla_image_en_cours)) ;(setq nom_fichier_image (vl-filename-base nom_fichier_image_complet)) ;(command "point" pt_centroide) (setq obj_mtxt (vla-addMText space (vlax-3d-point pt_centroide) 0. nom_fichier_image );fin vla-addMText );fin setq obj_mtxt (vla-put-AttachmentPoint obj_mtxt acAttachmentPointMiddleCenter) (vla-put-InsertionPoint obj_mtxt (vlax-3d-point pt_centroide)) (vla-put-Height obj_mtxt (/ hauteur_image 10.0)) (vla-put-Layer obj_mtxt calque_image) (setq i (+ i 1)) ); fin while );fin 1er progn ); fin if (princ) );fin defun ecrire_nom_d_images Bonne soirée, Fabcad Le Rennais Métropolitain

Bonjour, Oui FILEDIA gère les cases de dialogue de sélection de fichiers et CMDDIA certaines cases de dialogue d'AutoCAD MAP. ATTDIA gère la case de dialogue des attributs lors de l'insertion de blocs. J'ai testé mon script, j'ai importé 3 shp en une seule fois avec les bons noms de tables comme dans l'exemple 2. Une astuce complémentaire, depuis Win 7 un shift+clic droit puis l'option "Copier en tant que chemin d'accès" sur une sélection de fichiers te permet d'avoir le nom complet de tous les fichiers envoyés dans le presse-papiers, tu colles l'ensemble sur le bloc-notes de ton futur script. Il faut juste rechercher-remplacer les \ en / et effacer les guillemets de début et fin sur les noms de fichiers. Puis tu ajoutes les mots clés des variables et de la fonction d'import. Bon weekend, Fabcad Le Rennais Métropolitain