lecrabe

Hello Olivier MERCI pour tes contributions toujours tres interessantes / pertinentes ! ET si on coupait les multiples alimentations electriques de l'Aeroport ! Tu aurais ENFIN le temps de te reposer ... LA SANTE, Bye, lecrabe "triste"

Hello Mais tu rêves ! Ou alors j ai loupé un truc de folie ?! Depuis quand REVIT serait capable d exporter / modifier / découper un nuage de points ? Bye, lecrabe "triste"

Hello YES bien vérifier qu il reste de la place pour monter à 32 Go Ram ! Bye, lecrabe "triste"

Hello YES on obtient des maillages 3D ! Pour Info le Plugin Import SKP pour les versions 2020 : https://apps.autodesk.com/ACD/fr/Detail/Index?id=5947739119625287617&appLang=en&os=Win64 Et pour les versions 2016-2019 : https://apps.autodesk.com/ACD/fr/Detail/Index?id=4545979311403124726&appLang=en&os=Win32_64&autostart=true Bye, lecrabe "triste"

Hello Tant que tu ne geres pas des Projets enormes, cela me parait tout a fait OK ! Par contre un SSD de 240 Go, c un peu faible (A mon gout) !? Bye, lecrabe "triste"

Hello Je pense qu il te faut une Routine LSP avec une question relative à la valeur d arrondi (5/10/20/25/50/etc) ?! Qui générerait la valeur adéquate dans le champ "Remplacement du Texte" de la Cotation... Bye, lecrabe "triste"

Hello 1 - Je n aime pas les Blocs dynamiques ! 2 - Par contre j adore les champs et attributs de bloc dynamiques !! 3 - Et parfois je joue avec le Mode annotatif !! SVP comment se comporte un ZWCAD 2020 à ce niveau 2 & 3 ? Bye, lecrabe "triste"

Hello Parfait maintenant que notre AlsaChien favori a bien bosse ... Je vais pouvoir le décortiquer, le déguster, le savourer, etc Avec du beurre, du pain et un bon Riesling ... Merci, Bye, Decapodiquement, lecrabe "triste"

Hello Merci Mr PHILPHIL de tes efforts ! ET la bonne solution vient de tomber ces jours sur le Forum Lisp d'Autodesk US ... Test rapide avec des objets (y compris des Blocs) provenant de planche cadastrale en XREF ... Par contre a priori, il y a un petit bug : la routine de BeekeeCZ ne fonctionne que UNE SEULE FOIS ! Merci BeekeeCZ, Bye, lecrabe "triste" ;; ;; https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/ncopy-with-window-selection/td-p/9091896 ;; ;; Routine: CopyNestedObjects by BeekeeCZ ;; ;; NCOPY with window selection ;; ;; Seems that a vla-copy method does a better job. ;; (vl-load-com) (defun c:CopyNestedObjects (/ ss sn doc obj objnew) (command "_.-REFEDIT" pause "_Ok" "_All" "_No") (if (and (setq ss (ssget "_:L")) (setq doc (vla-get-ActiveDocument (vlax-get-acad-object))) (setq sn (ssadd)) ) (repeat (setq i (sslength ss)) (setq obj (vlax-ename->vla-object (ssname ss (setq i (1- i))))) (if (setq objnew (vla-Copy obj)) (ssadd (vlax-vla-object->ename objnew) sn)))) (if (> (sslength sn) 0) (command "_.REFSET" "_R" sn "")) (command "_.REFCLOSE" "_Disc") (command-s "_.MOVE" sn "") (princ) )

Hello Mais l Ultime Guerrier Decapodique des Champs Catalauniques veille ! (Nous repousserons les Huns et Attila) Bye, lecrabe "triste"

Hello 1) MERCI Mr Alsachien ! 2) En fait il suffit de te stimuler pour que tu bosses ... Bonne Semaine, Bye, lecrabe "triste"

Hello Lilian Tu connais la solution : - Une bonne biere pour Mr - Un Champagne Rose pour Mme (avec votre dévoué Decapode) - Qq feuilles fraiches pour les Chevres Bonne Semaine, Bye, lecrabe "triste"

Hello Je sens que je vais me faire des ennemis !? Mais je suis "relativement" OK avec Autodesk ! ... 10 ans me semble raisonnable dans le monde de l'informatique ... Un logiciel comme AutoCAD 2010 est sorti au printemps 2009 et a ete concu/ecrit en 2008 !! Bye, lecrabe "triste" PS: la version 2020 a d'ailleurs failli ne sortir que pour Windows 10 !? Une pression des Beta-testeurs et surtout des GROS clients Autodesk a fait que ... RAPPEL: Windows Seven ne sera plus supporte par Microsoft en Janvier 2020 !!

Hello Je ne suis pas d'accord, car c une loterie !! ACAD 2009-2015 peut "claquer" a tout instant par exemple lors d'un Windows Update ! Autodesk exige officiellement la 2016 + SP1 pour Windows 10 ... et mon experience Perso , c version 2017 pour etre tranquille sous Win 10 ! -------------------------------------------------------------------------------------------------------------------- !!! DE PLUS Autodesk ne te donnera AUCUN Code d'autorisation pour un AutoCAD version 2010/2009/etc !!! !!! Autodesk ne veut plus supporter / autoriser quoi que ce soit AU DELA de 10 ans !!! C officiel depuis l'ete 2019 et a l'ete 2020, ce sera DE MEME pour les versions 2011 !! https://forums.autodesk.com/t5/installation-et-licences/changement-de-la-politique-de-support-des-versions-autodesk/td-p/8889084 -------------------------------------------------------------------------------------------------------------------- Bye, lecrabe "triste"

Hello Je suppose que ces objets sont SEULS sur un calque spécifique ?! Que la polyligne est toujours horizontale avec un seul segment !? OK tu pourras avoir un point au milieu ! Et après comment tu montes le point à l altitude Z du texte (TEXT ou MTEXT ?) dans les environs ?? Car sinon tu ne pourras pas faire grand-chose !? Bye, lecrabe "triste"

Hello Mr Chevre Famelique Cela me semble correct mais avec 16 Go Ram ça serait mieux !? Bon WE, Bye, lecrabe "triste"

Hello Mais il est penible le Christian ! Toujours en train de raler (Comme moi - C le Privilege des Vieux) !? Je vais lui envoyer un Missile AECFORCEEXPLODE_Christian !! Bon WE, Bye, lecrabe "triste"

Hello 1) MERCI c SYMPA ! 2) BON Maintenant SVP tu finalises ton autre PDF de N pages sur les N variables System AutoCAD 2020 ! Merci d'avance, Bon WE, Bye, lecrabe "triste"

Hello Eric MERCI tu me rassures ! Bon WE, Bye, lecrabe "triste"

Hello DONC c un Bug specifique des HyperLinks sur les MLEADERs ! Avec un Bon vieux LEADER + Bloc = OK !? ... Ou autre objet classique ... Bye, lecrabe "triste"

Hello YES je suis comme toi (La Honte sur Le Decapode) et j'avais SUIVI ce sujet !! C la Vieillesse ! Bye, lecrabe "triste"

Hello Sans doute - A verifier !? Mais la selection DIRECTE par les SSxx de Gilles est efficace et rapide ! Merci d'avance, Bye, lecrabe "triste"

Hello Bien entendu vous etes avec AutoCAD 2017 + Update 2017.1.2 !? Le probleme est il le MEME avec des HyperLinks en Absolu et en Relatif ?? J'ai deja utilise des Hyperlinks sans probleme particulier (A priori) sur des objets simples : point, ligne, arc, cercle, polyligne et aussi me semble t-il sur des blocs !? Votre histoire m'inquiete !! Car je viens d'utiliser des Hyperlinks relatifs (avec MAP 2017) vers des Images/Photos (un sous-dossier du DWG en fait) depuis des ODs de MAP contenant un nom de Photo/Image pour generer automatiquement un Hyperlink AutoCAD ... Et le resultat de la routine Lisp OD2HL (Merci Olivier) est Nickel !! Bye, lecrabe "triste" ;; ;; Routine: OD2HL par OE pour Patrice ;; ;; Transfert du contenu d un Champ OD de MAP (ou CIVIL) ;; Dans le HyperLink (Ctrl K) de l Objet concerne ... ;; ;; Attention : AUCUNE Gestion d Erreur ;; Par exemple si Table OD et/ou Champ OD INCONNU !? ;; ;; Micro-Micro-Modifs par Patrice : 2 Questions sur Table & Champ OD de MAP ;; (defun C:OD2HL ( / sTblName sFldName sPrefix JEU I oEnt) ; (setq sTblName "NOM_DE_LA_TABLE") ;; Nom de la Table OD (setq sTblName (getstring T "\nNom EXACT de la Table OD (Par exemple: LINEAIRE/PONCTUEL/etc) : ")) ; (setq sFldName "NOM_DU_CHAMP") ;; Nom du Champ OD (setq sFldName (getstring T "\nNom EXACT du Champ OD (Par exemple: PHOTOS) : ")) (if (and (setq sPrefix (getstring T "\nLE Chemin ( Absolu: C:\\TESTS\\1-AUTOCAD\\Image\\ ou Relatif: .\\Image\\ ) vers les Photos : ")) (setq JEU (ssget)) ) (progn (setq I 0) (repeat (sslength JEU) (setq oEnt (ssname JEU I)) (setq I (1+ I)) (ConvOD2HL oEnt sTblName sFldName sPrefix "") ) ) ) ) (defun ConvOD2HL (oEnt sTable sField sPrefix sSuffix / sVal numrec) (setq numrec (ade_odrecordqty oEnt sTable)) (if (>= 1 numrec) (progn (setq sVal (ade_odgetfield oEnt sTable sField 0)) (seturl oEnt (strcat sPrefix sVal sSuffix)) ) ) )

Hello 1) YES une nouvelle option du genre SSB (pour les Blocs Classiques/Dynamiques) serait Tip-Top ! 2) ET SVP votre Devoue Decapode sollicite de notre Grand Maitre Supreme Gilles , un SSEP : Selection par Epaisseur de Ligne ... Merci d'avance, Bye, lecrabe "triste"

Hello C pourquoi le REGRETTE Patrick_35 m'avait developpe une superbe Routine RWH_254 ! Bye, lecrabe "triste" ;; ;; http://cadxp.com/topic/38953-wipeout/page__p__230975 ;; ;; Routine: RWH_254 (Ex RWH) par P35 pour Patrice ;; ;; Remplacer un wipeout par une hachure "SOLID" de couleur 254,254,254 ;; ;; Modifier avec 254,254,254 a cause d un BUG Aleatoire avec les PDFs !! ;; (vl-load-com) (defun c:RWH_254 (/ blo col dat dic doc ent hac ele lst obj pol rgb) (setq doc (vla-get-activedocument(vlax-get-acad-object)) col (vlax-create-object (strcat "AutoCAD.AcCmColor." (substr (getvar "acadver") 1 2))) ) (vla-startundomark doc) ; (vla-setrgb col 255 255 255) (vla-setrgb col 254 254 254) (vlax-for blo (vla-get-blocks doc) (or (wcmatch (vla-get-name blo) "*|*") (eq (vla-get-isxref blo) :vlax-true) (progn (vlax-for ent blo (and (eq (vla-get-objectname ent) "AcDbWipeout") (progn (setq hac (vla-addhatch blo acHatchPatternTypePredefined "SOLID" :vlax-true) lst (gc:RasterVertices (vlax-vla-object->ename ent)) pol (vla-addlightweightpolyline blo (vlax-safearray-fill (vlax-make-safearray vlax-vbdouble (cons 0 (1- (* (length lst) 2)))) (apply 'append (mapcar '(lambda (x) (list (car x) (cadr x))) lst)) ) ) ) (vlax-put pol 'closed :vlax-true) (vlax-invoke hac 'appendouterloop (list pol)) (vla-evaluate hac) (foreach ele (list hac pol) (mapcar '(lambda(x) (vlax-put ele x (vlax-get ent x))) (list 'layer 'linetype 'linetypescale)) (vlax-put ele 'truecolor col) ) (setq dat (cons hac (cons pol dat))) (vla-delete ent) ) ) ) (and dat (progn (and (vl-catch-all-error-p (setq dic (vl-catch-all-apply 'vla-item (list (vla-getextensiondictionary blo) "ACAD_SORTENTS")))) (setq dic (vla-addobject (vla-getextensiondictionary blo) "ACAD_SORTENTS" "AcDbSortentsTable")) ) (vlax-invoke dic 'movetobottom dat) (setq dat nil) ) ) ) ) ) (vlax-release-object col) (vla-regen doc acallviewports) (vla-endundomark doc) (princ) ) ;; Différentes routines de GC trouves sur theswamp.org ;; http://www.theswamp.org/index.php?topic=36270.msg418035#msg418035 ;; Convertion des pixels d'une image en coordonnées Autocad ;; gc:RasterVertices ;; Returns the image raster (or wipeout) boundary vertices list (WCS) (defun gc:RasterVertices (img / elst ins u v size norm mat disp pts) (setq elst (entget img) ins (cdr (assoc 10 elst)) u (cdr (assoc 11 elst)) v (cdr (assoc 12 elst)) size (cdr (assoc 13 elst)) norm (gc:CrossProduct u v) u (trans u 0 norm) v (trans v 0 norm) mat (trp (list u (mapcar '- v) '(0. 0. 1.))) disp (mapcar '+ (trans ins 0 norm) (gc:ScaleVector v (cadr size)) (gc:ScaleVector u 0.5) (gc:ScaleVector v -0.5) ) pts (if (= 1 (logand 1 (cdr (assoc 71 elst)))) ((lambda (l) (list (car l) (list (caadr l) (cadar l) (caddar l)) (cadr l) (list (caar l) (cadadr l) (caddar l)) ) ) (gc:massoc 14 elst) ) (cdr (gc:massoc 14 elst)) ) ) (mapcar '(lambda (p) (trans (mapcar '+ (mxv mat p) disp) norm 0) ) pts ) ) ;; gc:ScaleVector ;; Multiply a vector by a scalar (defun gc:ScaleVector (v s) (mapcar (function (lambda (x) (* x s))) v)) ;; gc:CrossProduct ;; Returns the cross product of two vectors (defun gc:CrossProduct (v1 v2) (list (- (* (cadr v1) (caddr v2)) (* (caddr v1) (cadr v2))) (- (* (caddr v1) (car v2)) (* (car v1) (caddr v2))) (- (* (car v1) (cadr v2)) (* (cadr v1) (car v2))) ) ) ;; MXV ;; Apply a transformation matrix to a vector -Vladimir Nesterovsky- (defun mxv (m v) (mapcar (function (lambda (r) (apply '+ (mapcar '* r v)))) m) ) ;; TRP ;; Transpose a matrix -Doug Wilson- (defun trp (m) (apply 'mapcar (cons 'list m))) ;; gc:massoc ;; Returns the list of all values for the code in an association list (defun gc:massoc (code alst) (if (setq alst (member (assoc code alst) alst)) (cons (cdar alst) (gc:massoc code (cdr alst))) ) )