canotier

Bonjour la liste, Un bout de code par Frank Whaley trouvé sur le groupe de discussion Autodesk. ;; dwgprops.lsp ;; ;; This code demonstrates extraction and insertion of Drawing ;; Properties from LISP. Two functions are provided: ;; '(dp-get)' for extracting Properties to global variables, and ;; '(dp-put)' for inserting Properties from those same global ;; variables. Items that are updated by the save reactor are ;; also shown. ;; (defun c:dp-get (/ xlist val) ;; shorthand for extraction (defun val (code) (cdr (assoc code xlist)) ) ;; pick Xrecord from NOD (setq xlist (dictsearch (namedobjdict) "DWGPROPS")) ;; extract values to global variables (setq dp:Title (val 2) dp:Subject (val 3) dp:Author (val 4) dp:Comments (val 6) dp:Keywords (val 7) dp:LastSavedBy (val 8) dp:RevisionNo (val 9) dp:Cust0 (val 300) dp:Cust1 (val 301) dp:Cust2 (val 302) dp:Cust3 (val 303) dp:Cust4 (val 304) dp:Cust5 (val 305) dp:Cust6 (val 306) dp:Cust7 (val 307) dp:Cust8 (val 308) dp:Cust9 (val 309) ) xlist ) (defun dp-put (/ xlist safeStr) ;; safe string (defun safeStr (v) (if (= 'STR (type v)) v "") ) ;; remove any existing Properties (dictremove (namedobjdict) "DWGPROPS") ;; make data list (setq xlist (list '(0 . "XRECORD") '(100 . "AcDbXrecord") '(1 . "DWGPROPS COOKIE") (cons 2 (safeStr dp:Title)) (cons 3 (safeStr dp:Subject)) (cons 4 (safeStr dp:Author)) (cons 6 (safeStr dp:Comments)) (cons 7 (safeStr dp:Keywords)) (cons 8 (getvar "loginname")) (cons 9 (safeStr dp:RevisionNo)) (cons 300 (safeStr dp:Cust0)) (cons 301 (safeStr dp:Cust1)) (cons 302 (safeStr dp:Cust2)) (cons 303 (safeStr dp:Cust3)) (cons 304 (safeStr dp:Cust4)) (cons 305 (safeStr dp:Cust5)) (cons 306 (safeStr dp:Cust6)) (cons 307 (safeStr dp:Cust7)) (cons 308 (safeStr dp:Cust8)) (cons 309 (safeStr dp:Cust9)) (cons 40 (getvar "TDINDWG")) (cons 41 (getvar "TDCREATE")) (cons 42 (getvar "TDUPDATE")) ) ) ;; make Xrecord and add to NOD (dictadd (namedobjdict) "DWGPROPS" (entmakex xlist)) ) ;; END of dwgprops.lsp

:) (trans pt 0 1) est nickel pour ce que je veux faire. Merci mille fois.

Bonjour la liste, Mon but est d'obtenir les XYZ d'entités points 3D exprimées dans le SCU courant. (entget ...) ne délivre que les coordonnées dans le SCU général. Comment puis-je m'y prendre? Par avance merci.

Bonsoir la liste, Quelqu'un(e) a-t-il expérimenté de façon satisfaisante le travail sur double écran avec une Quadro FX1800 et deux moniteurs TFT basiques un peu anciens qui n'acceptent pas les Display Port? Par avance merci de vos expériences

Merci mille fois Gile. L'horizon est clair à présent.

Bonsoir la liste, Une bonne âme pourrait-elle m'expliquer la tournure de programmation ci dessous (routine de Gile) consistant à utiliser str2lst dans la définition de str2lst, je suis un tantinet largué. Cordialement. (defun str2lst (str sep / pos) (if (setq pos (vl-string-search sep str)) (cons (substr str 1 pos) (str2lst (substr str (+ (strlen sep) pos 1)) sep) ) (list str) ) )

Merci Trambler, je pressentais un truc de ce genre. Reste à faire passer le message, fermer ses oreilles c'est pas le plus dur.

Bonjour la liste, Je suis en possession de dessins format dwg issus d'un cabinet travaillant avec Archicad. Dans Autocad ces fichiers s'ouvrent systématiquement dans l'espace papier, rien ne s'affiche et une présentation sans viewport est créée avec un nom du style "1er etage- 1/50". En passant dans le modèle je me retrouve avec un bloc énorme regroupant tout le dessin. Pas d'autre ressource que d'exploser ce bloc. Le résultat est un dessin qui n'est pas à l'échelle, ce qui est facilement arrangeable, mais le pire est que lors de l'explosion du bloc les formes présentes dans le dessin (shx) sont aussi explosées et je me retrouve avec un fatras infâme où le moindre lavabo fait 2 ou 300 segments, idem pour les arbres etc etc, imaginez le désastre. Une bonne âme aurait-elle la solution pour un traitement plus rationnel de ces fichiers. Merci par avance. Canotier.

Je m'auto réponds: en fait, il faut metrre CMDDIA=0, elle m'avait échappé.celle là.

Bonjour à tous, Mon propos est d'automatiser la fonction MAPDIGITIZE par un script du genre _MAPDIGITIZE 690750,90850,0.00 205124 où les 3 premiers nombres sont X,Y,Z du point et le dernier la clé pour linker le point à une database externe. Je bute sur le fait qu'à la lecture du script Autocad ouvre la boite de dialogue habituelle à l'utilisation manuelle qui demande l'entrée de la clé et me délivre le message comme quoi la fonction 205124 est inconnue . Y a t-il un moyen syntaxique ou autre de passer outre l'ouverture de cette boite, sachant que je controle auparavant les variables du genre FILEDIA et autres . Pour Map 2000. Merci à vous.

Bonjour à tous, Un grand merci à LeCrabe pour l'intérêt porté à mon pb et une mention particulière à Fabcad dont la réponse dégage furieusement mon horizon. Canotier.

Je voudrais géolocaliser des objets contenus dans une base de données par une affectation directe des X & Y de chaque objet dans les champs de la table prévus à cet effet, à l'aide d'un simple clic sur la carte. Merci par avance pour vos idées.