lecrabe

Hello Le Lisp qui etait "plus ou moins" une garantie de bon fonctionnement sur N versions AutoCAD commence a se verrouiller sur les versions 2021 et PLUS ! Voila comment "obliger" les gens a passer aux versions "dernier cri" A TERME ! Car quand on aura un Super Lisp qui ne marche que sur les 2021 et PLUS !? SNIFF SNIFF Ca m'enerve "grave" ! Pour Gilles : et si on n'enclenche pas le Mode Unicode, etc !? LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello No Comprendo ! A part le Cercle dont on peut controler la surface/aire OU longueur/perimetre, je ne vois pas !? Veux tu la MEME chose sur des Polylignes 2D Closes par exemple ? Si OUI alors Routine Lisp et comment on "ETEND / DIMINUE" la Polyligne ?? LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello Tu accuses le dévoué Décapode de FakeNews ?! Et/Ou de Propagande ?! C pas gentil ! As tu lu ce que j'ai écris sur le fil Microstation avec le Résumé des Points Forts de uSTN ! Désolé mais je ne nommerais personne !! LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello Pour les Comparaisons / Avantages / Inconvenients de AutoCAD versus MicroStation , SVP voir ce sujet : https://cadxp.com/topic/45332-ustn-vers-autocad-infos/ RAPPEL : de nombreuses grosses collectivites ont abandonne MicroStation pour UNE raison principale : Covadis par dessus AutoCAD ou mieux par dessus AutoCAD MAP ... J'en ai forme plusieurs en 2018/2019 ... Autre raison moins importante (que je n'ai pas compris) : un probleme de prix / facturation de Bentley !? LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello Tu connais ReCap Photo ? SVP tu farfouilles ... Tu y as droit avec les Suites ! Tu m'envoies un courriel sur : cadxp at hotmail point fr Ou un de mes autres Emails que tu connais !? LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello Tu es avec quel Windows ? LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello - Battu par Olivier ! MAIS c Normal ! Tout depend d une variable System "magique" !! Tu as sans doute PICKSTYLE = 2 et si tu essayais avec = 1 ? LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello Juste une remarque sans reflechir , tu as bien DBLCLKEDIT = 1 Mais ce n'est peut etre pas du tout LIE a ton souci !? LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello Les 3D Pros Voir ci-apres 2 Routines Lisp utiles en 3D : - "C3P3D" Dessin d'un Cercle par 3 points XYZ - "Pol3P3D" Dessin d'une Polyligne 2D (= Triangle) par 3 points XYZ Bien sur aucun besoin de creer un SCU, les routines s'en occupent !? SVP est ce que qq'un pourrait deriver de "Pol3P3D" une 3eme Routine ? Nommee "Rect3P3D" qui dessinerait une Polyligne 2D (= Rectangle) depuis les 3 Points XYZ ... Merci d'avance ! En fait il suffit de "deriver" le 4eme Point depuis les 3 autres ... LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite ... ;; ;; https://forums.autodesk.com/t5/autocad-forum/circle-in-3-points-plane/td-p/5259293 ;; (defun C:C3P3D (/ pt1 pt2 pt3 pta ptb ptc); = Circle, 3-Point, in 3D plane (setq pt1 (getpoint "\n1 - First point of 3D 3-Point Circle: ") pt2 (getpoint pt1 "\n2 - Second point of 3D 3-Point Circle: ") pt3 (getpoint pt1 "\n3 - Third point of 3D 3-Point Circle: ") pta (trans pt1 1 0); to World coordinates ptb (trans pt2 1 0) ptc (trans pt3 1 0) ); setq (command "_.ucs" "_new" "_3point" pt1 pt2 pt3 "_.circle" "_3p" (trans pta 0 1) (trans ptb 0 1) (trans ptc 0 1); to current-UCS coordinates "_.ucs" "_previous" "_.ucs" "_delete" "C3P3D" ); command ); defun ;; ;; https://forums.autodesk.com/t5/autocad-forum/circle-in-3-points-plane/td-p/5259293 ;; ;; Micro-Micro Modif par Patrice pour avoir un Triangle en Polyligne 2D ;; (defun C:Pol3P3D (/ pt1 pt2 pt3 pta ptb ptc); = Circle, 3-Point, in 3D plane (setq pt1 (getpoint "\n1 - First point of 3D 3-Point 2D PLine: ") pt2 (getpoint pt1 "\n2 - Second point of 3D 3-Point 2D PLine: ") pt3 (getpoint pt1 "\n3 - Third point of 3D 3-Point 2D PLine: ") pta (trans pt1 1 0); to World coordinates ptb (trans pt2 1 0) ptc (trans pt3 1 0) ); setq (command "_.ucs" "_new" "_3point" pt1 pt2 pt3 "_.pline" (trans pta 0 1) (trans ptb 0 1) (trans ptc 0 1) "_c"; to current-UCS coordinates "_.ucs" "_previous" "_.ucs" "_delete" "C3P3D" ); command ); defun

Hello Lilian Au fait as tu reussi a refaire du Infraworks ? LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite ...

Hello Ta seule chance : EXPERT = 0 ---> 5 Mais si cela vient d'un melange d'Objet AEC DWG2013 / DWG2018 malheureusement je ne pense pas que cela marchera !? SVP tu nous diras ! LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello YES en principe TOUT est dans LT ! MAIS il faut attendre la confirmation de nos 2 Grands Maitres AutoCAD LT : Christian et Eric ... LA SANTE, Bye, lecrabe "triste" Automne 2020, la retraite ...

Hello Commande: SELECT F -10000,-10000 10000,10000 Ainsi tu es sur de "chopper" les cochonneries "plus ou moins" proches du Zero,Zero ! Tu regardes la Palette des Proprietes et tu vois le Nombre et le Type des objets !! LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello Tu connais DWGCHECK !? LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite DWGCHECK (variable système) Vérifie les dessins pour détecter les éventuels problèmes d'ouverture. Type: Entier Enregistré dans: Registre Valeur initiale : 1 -------- Valeur -------- Description -------- 0 Aucun avertissement ne s'affiche pour les fichiers de dessin enregistrés par une application non publiée par Autodesk ou non basée sur RealDWG. Si le dessin est endommagé, une boîte de dialogue de notification d'erreur s'affiche. 1 Une boîte de dialogue d'avertissement et un avertissement de la ligne de commande sont affichés pour les fichiers de dessin enregistrés dans une application non publiée par Autodesk ou non basée sur RealDWG. Si le dessin est endommagé, une boîte de dialogue de notification d'erreur s'affiche. 2 Un avertissement s'affiche sur la ligne de commande uniquement pour les fichiers de dessin enregistrés par une application non publiée par Autodesk ou non basée sur RealDWG. Si le dessin est endommagé, les erreurs sont ignorées et le dessin est ouvert si cela est possible. 3 Une boîte de dialogue d'avertissement et un avertissement de la ligne de commande sont affichés pour les fichiers de dessin enregistrés dans une application non publiée par Autodesk ou non basée sur RealDWG. Si le dessin est endommagé, les erreurs sont ignorées et le dessin est ouvert si cela est possible. 4 Un avertissement s'affiche sur la ligne de commande uniquement pour les fichiers de dessin enregistrés par une application non publiée par Autodesk ou non basée sur RealDWG. Si le dessin est endommagé, une boîte de dialogue de notification d'erreur s'affiche. 5 Une boîte de dialogue d'avertissement et un avertissement de la ligne de commande sont affichés pour les fichiers de dessin enregistrés dans une application non publiée par Autodesk ou non basée sur RealDWG. Si le dessin est endommagé, une boîte de dialogue de notification d'erreur s'affiche. 6 Un avertissement s'affiche sur la ligne de commande uniquement pour les fichiers de dessin enregistrés par une application non publiée par Autodesk ou non basée sur RealDWG. Si le dessin est endommagé, la tentative d'ouverture échoue. 7 Une boîte de dialogue d'avertissement et un avertissement de la ligne de commande sont affichés pour les fichiers de dessin enregistrés dans une application non publiée par Autodesk ou non basée sur RealDWG. Si le dessin est endommagé, la tentative d'ouverture échoue.

Hello En principe les Routines Lsip ne gere pas ou pas tres bien , les objets Proxy ! C pourquoi la fonction "Enregistrer Sans Covadis" est importante ! De facon generale, il faut toujours travailler sous AutoCAD , ACAD LT, ACAD MAP, ACAD Archi, etc ... avec les TROIS variables System PROXY = 1 PROXYSHOW = 1 ( Pour VOIR les Objets PROXY ) PROXYGRAPHICS = 1 ( Pour enregistrer l'Image des Objets PROXY ) PROXYNOTICE = 1 ( Pour avoir l'Info de la presence d'Objets PROXY dans le DWG ) La commande clavier Covadis pour enregistrer en objets AutoCAD "simples" est : COVAENREGSANSCOVADIS LA SANTE, Bye, lecrabe "triste" Automne 2020, la retraite

Hello Olivier BRAVO pour votre organisation "militaire" !? LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello Je ne suis pas d'accord ! Aucun gouvernement n'est prepare a cela ! Comment peut on imaginer que avec le Front National ou Melanchon ou XXXXXX en President, cela se serait mieux ou moins bien passe !! PERSO: j'imagine que cela aurait ete a peu pres IDEM !! 1) Un scenario catastrophe / critique, cela s'imagine (1er probleme) cela se prepare (2eme probleme), et on s'entraine (3eme probleme) ... Et tout cela coute de l'ARGENT et du TEMPS !! 2) A ma connaissance, seules les Militaires imaginent des Trucs "improbables" et se preparent et s'entrainent si bien sur, ils ont le BUDGET et le TEMPS !! 3) Je vois et DEPLORE actuellement tous les problemes informatiques lies a l'utilisation de PCs professionnels At Home, c tres instructif !! 4) C le meme probleme avec les Servers et NAS qui ne sont pas securises par des Onduleurs ! ---- Quand coupure de courant, Bonjour les Degats Pourtant 1/2/3 Onduleurs, ce n'est pas un budget monstrueux ! De plus il faut faire regulierement un VRAI Test de Coupure Pour voir que les Onduleurs prennent bien le relais ! Et qu'ils vont bien declencher l'arret Software normal des Servers/NAS au bout de N minutes automatiquement quand on est en fin de batterie ... Ensuite les batteries ont une duree de vie UTILE limitee ! ... etc ... 5) En 2009-2010, Roselyne BACHELOT (Docteur en Pharmacie en 1988 et Major de Promotion) en a pris plein la gueule avec les tonnes de Masques, Tamiflu, Vaccins, etc, commandes ! Cela a coute CHER ! ET comme ca se perime vite, apres on les a jetes a la poubelle !! En resume : elle a eu TORT d'avoir RAISON TROP TOT ! LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello Pourquoi ca marche avec les Instructions de Olivier et PAS avec les miennes !? No Comprendo ! ... Je ne vois pas la difference !! LA SANTE, Bye, lecrabe "triste" Automne 2020, la retraite

Hello Même avec le driver 7.6.9 ?! LA SANTE, Bye, lecrabe "triste" Automne 2020, la retraite

Hello SVP utilises 254,254,254 !! Sinon parfois au trace / impression, tu auras une "jolie" tache NOIRE à la place de ton Bloc / Symbole... C un Bug Aleatoire historique de AutoCAD ... LA SANTE, Bye, lecrabe "triste" Automne 2020, la retraite

Hello Gilles Est ce que tu utilises la MEME Technique que notre regrette Patrick_35 ? - ReCreation de toutes les entites NON Hatch - Suppression des anciennes - Comme cela, on est SUR d'avoir les Hachures EN DESSOUS ! LA SANTE, Bye, lecrabe "triste" Automne 2020, la retraite

Hello Tu peux eventuellement garder le 7.6.6 pour voir !? Mais tu modifies ton COVANETLINK.INI ... Reboot ... LA SANTE, Bye, lecrabe "triste" du 42 Automne 2020, la retraite ...

Hello Mr H2O du 73 Deja il serait bien d'avoir le driver Sentinel 7.6.9 ! https://sentineltechsupport.gemalto.com/2017/10/sentinel-protection-installer-7-6-9-released/ https://supportportal.gemalto.com/csm?id=kb_article_view&sys_kb_id=f4f769ae37950f44cc47261953990e44&sysparm_article=KB0016451 Apres on discutera ... Et dans le COVANETLINK.INI , Eventuellement : Servername= IP du poste serveur Ou plutot pour TOI avec ton PC qui fait office de Server : ServerName=Localhost SVP APRES Toute Modif du COVANETLINK.INI , Reboot du PC ... LA SANTE, Bye, lecrabe "triste" du 42 Automne 2020, la retraite ...

Hello 3eme routine indispensable : MPLNEW Realise par Aleksandr Smirnov et ameliore par Kent Cooper ... Je l'utilise souvent pour dessiner en dynamique 2-N Polylignes paralleles ! J'adore cette routine MPLNEW ... LA SANTE, Bye, le crabe "triste" Automne 2020, la retraite ... ;; ;; Edited by Kent Cooper to remove quantity limit [and other refinements/ ;; adjustments/simplifications], last edited 12/14/2017 ;; ;; ==================================================================== ;; ;; MPL --> MPLNEW - This lisp draws any number of parallel polylines simultaneously ;; ;; ==================================================================== ;; ;; Command to call: MPL ---> MPLNEW ;; ;; Instead standard options instead you can use the short ;; options consisting of quantity of polylines (from 2 to 16) ;; and justification (Top, Zero, Bottom). For example: ;; ;; Command: mpl ;; <<< Quantity = 12, Justification = Top, Spacing = 40 >>> ;; Specify first point or [Quantity/Justification/Spacing]: 6 ;; <<< Quantity = 6, Justification = Top, Spacing = 40 >>> ;; ;; Command: mpl ;; <<< Quantity = 6, Justification = Top, Spacing = 40 >>> ;; Specify first point or [Quantity/Justification/Spacing]: B ;; <<< Quantity = 6, Justification = Bottom, Spacing = 40 >>> ;; ;; Command: mpl ;; <<< Quantity = 6, Justification = Top, Spacing = 40 >>> ;; Specify first point or [Quantity/Justification/Spacing]: 16z ;; <<< Quantity = 16, Justification = Zero, Spacing = 40 >>> ;; ;; ==================================================================== ;; ;; THIS PROGRAM AND PARTS OF IT MAY REPRODUCED BY ANY METHOD ON ANY ;; MEDIUM FOR ANY REASON. YOU CAN USE OR MODIFY THIS PROGRAM OR ;; PARTS OF IT ABSOLUTELY FREE. ;; ;; THIS PROGRAM PROVIDES 'AS IS' WITH ALL FAULTS AND SPECIFICALLY ;; DISCLAIMS ANY IMPLIED WARRANTY OF MERCHANTABILITY OR FITNESS ;; FOR A PARTICULAR USE. ;; ;; ==================================================================== ;; V1.3, 12 May, 2005, Riga, Latvia ;; © Aleksandr Smirnov (ASMI) ;; For AutoCAD 2000 - 2008 (isn't tested in a next versions) ;; http://www.asmitools.com ;; Edited by Kent Cooper to remove quantity limit, 12/12/2017 ;; ==================================================================== ;; (vl-load-com) (defun C:MPLNEW (/ *error* asmi-mlStyleCreate ExplodeMline lastEnt ptOpt oldEcho locked stPt mlName int suffix) (defun *error* (msg) (ExplodeMline) (if locked (command "_.layer" "_lock" (getvar 'clayer) "")); [if current Layer was locked, re-locks it] (setvar 'cmdecho oldEcho) (if (not (wcmatch msg "Function cancelled,quit / exit abort,console break")) (princ (strcat "\nError: " msg)) ); if (princ) ); *error* (defun asmi-mlStyleCreate (Quant / dxfLst topOrd Count mlDict) (setq dxfLst (list '(0 . "MLINESTYLE") '(102 . "{ACAD_REACTORS") '(102 . "}") '(100 . "AcDbMlineStyle") (cons 2 (strcat (itoa Quant) "_PLINES")) '(70 . 0) '(3 . "") '(62 . 256) '(51 . 1.5708) '(52 . 1.5708) (cons 71 Quant) ) Count 0.0 topOrd (- (/ Quant 2.0) 0.5) ); setq (repeat Quant (setq dxfLst (append dxfLst (list (cons 49 (- topOrd Count)) '(62 . 256) '(6 . "BYLAYER") ) ) Count (1+ Count) ); setq ); repeat (if (null (member (assoc 2 dxfLst) (dictsearch (namedobjdict) "ACAD_MLINESTYLE")) ) (progn ; then (setq mlDict (cdr (assoc -1 (dictsearch (namedobjdict) "ACAD_MLINESTYLE"))) ) (dictadd mlDict (cdr (assoc 2 dxfLst)) (entmakex dxfLst)) ); progn ); if (strcat (itoa Quant) "_PLINES") ); asmi-mlStyleCreate (defun ExplodeMline () (if (or (not lastEnt) (not (equal lastEnt (entlast)))) (progn ; then (command "_.explode" (entlast)) (if (= (getvar 'peditaccept) 0) (command "_.pedit" "_m" "_previous" "" "_y" "_j" "0.0" ""); then (command "_.pedit" "_m" "_previous" "" "_j" "0.0" ""); else ); if ); progn ); if ); ExplodeMline (setq lastEnt (entlast) ptOpt T oldEcho (getvar 'cmdecho) locked (= (logand (cdr (assoc 70 (tblsearch "layer" (getvar 'clayer)))) 4) 4) ; current Layer is locked ); setq (if (not mpl:quant) (setq mpl:quant 2)) (if (not mpl:just) (setq mpl:just "Zero")) (if (not mpl:spc) (setq mpl:spc 1.0)) (while (and ptOpt (/= 'LIST (type ptOpt))) (prompt (strcat "\n<<< Quantity = " (itoa mpl:quant) ", Justification = " mpl:just ", Element spacing = " (rtos mpl:spc) " >>> " ); strcat ); prompt (initget 128 "Quantity Justification Spacing Top Zero Bottom") (setq ptOpt (getpoint (strcat "\nSpecify the 1st Point or [Quantity/Justification/Spacing]: ")) ); setq (cond ((= (type ptOpt) 'LIST); picked a point (setq stPt ptOpt) (prompt "\nSpecify the next Point or [undo]: ") ); picked-a-point condition ((= ptOpt "Quantity") (setq mpl:quant (cond ( (getint (strcat "\nNumber of PLines <" (itoa mpl:quant) ">: ") ); getint ); user-input condition (mpl:quant); on Enter ); cond ); setq ); Quantity condition ((= ptOpt "Justification") (initget "Zero Top Bottom") (setq mpl:just (cond ( (getkword (strcat "\nJustification [Zero/Top/Bottom] <" mpl:just "> : ") ); getkword ); user-input condition (mpl:just); on Enter ); cond ); setq ); Justification condition ((= ptOpt "Spacing") (initget 6); no zero, no negative (setq mpl:spc (cond ( (getdist (strcat "\nSpacing between elements <" (rtos mpl:spc) ">: ") ); getdist ); user-input condition (mpl:spc); on Enter ); cond ); setq ); Spacing condition ((= ptOpt (itoa (atoi ptOpt))); typed any integer [alone] (setq mpl:quant (atoi ptOpt)) ); integer-only condition ((wcmatch ptOpt "Top,Zero,Bottom"); one of those options [alone] (setq mpl:just ptOpt) ); direct justification condition ( (and (/= (setq int (atoi ptOpt)) 0); starts with any number (wcmatch (setq suffix (strcase (substr ptOpt (strlen ptOpt)))) "T,Z,B") ; ends with one of those letters (= (strlen ptOpt) (1+ (strlen (itoa int)))); just integer + one letter ); and (setq mpl:quant int mpl:just (cadr (assoc suffix '(("Z" "Zero") ("T" "Top") ("B" "Bottom")))) ); setq ); number + letter condition ((prompt "\n<!> Invalid option keyword <!> ")) ); cond ); while (if ptOpt (progn (setq mlName (asmi-mlStyleCreate mpl:quant)) (setvar 'cmdecho 0) (if locked (command "_.layer" "_unlock" (getvar 'clayer) "")); [if current Layer is locked, unlocks it] (command "_.mline" "_ST" mlName "_S" mpl:spc "_J" (strcat "_" mpl:just) stPt) (setvar 'cmdecho 1) (while (= 1 (getvar 'cmdactive)) (command pause)) (ExplodeMline) (if locked (command "_.layer" "_lock" (getvar 'clayer) "")); [if current Layer was locked, re-locks it] (setvar 'cmdecho oldEcho) ); progn ); if (princ) ); defun (prompt "\n[info] http:\\\\www.AsmiTools.com ") (prompt "\n[info] To draw multiple PLines, on your keyboard: MPLNEW ")

Hello 2eme routine indispensable quand on joue avec les MLs ! MERCI a Olivier ECKMANN ... LA SANTE, Bye, le crabe "triste" Automne 2020, la retraite ... ;; ;; Routine: ML2PO par OE ;; ;; Exploser/Decomposer UNE Multi-Ligne pour la Re-Transmormer ;; immediatement en N Polylignes (autant que faire se peut) ;; ;; ATTENTION: cela fonctionne bien si la Multi-Ligne n'a pas de FERMETURE EN BOUT ! ;; par des Segments ou pas des Arcs ... ;; (defun C:ML2PO ( / JEU oMLine oLine) ( setvar "PEDITACCEPT" 1 ) (while (and (setq oMLine (car (entsel "\nSVP Selectionner une Multi-Ligne : "))) (= "MLINE" (cdr (assoc 0 (entget oMLine)))) ) (setq oLine (entlast)) (command "_explode" oMLine) (setq JEU (ssadd)) (while (setq oLine (entnext oLine)) (ssadd oLine JEU) ) ;; (command "PEDIT" "M" JEU "" "j" "" "") (command "_PEDIT" "_M" JEU "" "_J" "" "") (setq JEU nil) (princ "\n\n\n") (princ) ) )