PHILPHIL

HELLO j'ai une "definitions des jeux de propriétés" s'appelant "AIRE" avec des définitions notamment "NOM0" "numerotation_piece" "NOMb" bon entre les deux images j'ai changer les nom des variables mais la formule reste la meme suivant la toute premiere image de mon message je voudrai que "NOM0" soit definit suivant la fomule vbscript c'est a dire que si "numerotation_piece" = 0 alors "NOM0" = la valeur de "NOM00" ("espace" dans l'exemple) et si si "numerotation_piece" diferent de 0 alors "NOM0" = la valeur de "NOM00" "numerotation_piece" ("espace 04" dans l'exemple) sauf que comme dans l'image fournit, le resultat est carrement le petit programme vbscript, alors que je ne devrais voir que soit "Espace" ou "Espace 04", je vois ca aussi bien dans la definition de la proprieté de formule, que dans l'espace objet de autocad a+ phil

bonsoir je suis sous AA2013 dans une definition de jeux de propriété AIRE, je voudrai rajouter une propriété avec une formule VBscript comme vue sur l'image sauf que le resultat ne marche pas, je vois carrement la formule au lieux du résultat escompté quelqu'un aurait une tite explication ? une mauvaise excriture de la formule ou un bug ? bonne soirée phil

hello on voudrait TOUSSS que ces foutues boite de dialogue que l'on redimensionnent toutes les 5mn soit memorisées une bonne fois pour toutes, car s'il n'y avait que cette boite de dialogue que l'on ouvre une fois par jour et encore par mois. Mr desk si tu nous entends, les ecrans 640x400 sont tous a la poubelle depuis longtps phil

hello rebcao c'etait effectivement ca. merci de quand date cette variable . a+ phil

hello la commande "PUBLIER" a+ bonne nuit phil

bonjour depuis que je suis sur la 2013, je rencontre quelque soucis avec les information venant des lisp sur la ligne de commande dans mes lisp quand j'ai des appels de renseignement avec les prompt, princ, strcat, et/ou les option "\n" ceci s'affiche bien sur la ligne de commande mais ensuite n'est plus enregistre dans la fenetre de commande dans le programme la je devrai voir "ECHELLE Z <1.0000000>" mais c'est remplacer par "ATTSYNC ...." s'il faut refaire tout les programmes lisp on a pas fini une nouvelle variable quelque part ?? bonne journée phil (defun c:echb (/) (setvar "cmdecho" 0) (setvar "dimzin" 0) (setq cav (getvar "clayer")) ;quel objet de référence pour la surface (prompt "CLIQUER SUR LE BLOC OU LES BLOCS POUR LE CHANGEMENT D'ECHELLE :") (setq bl nil) (while (null bl) (setq bl (ssget (list (cons -4 "<or") (cons 0 "insert") (cons -4 "or>") ) ) ) ) ;demande de l'echelle x y z (setq ECHX 1) (initget (+ 2)) (setq ECHX (getreal (strcat "\ECHELLE X <" (rtos echx 2 10) ">: "))) (if (null ECHX) (setq ECHX 1) ) (setq ECHY 1) (initget (+ 2)) (setq ECHY (getreal (strcat "\ECHELLE Y <" (rtos echy 2 10) ">: "))) (if (null ECHY) (setq ECHY echx) ) (setq ECHZ 1) (initget (+ 2)) (setq ECHZ (getreal (strcat "\ECHELLE Z <" (rtos echz 2 10) ">: "))) (if (null ECHZ) (setq ECHZ echx) ) (prompt "\n") (setq ent nil) (setq compt 0) (setq com (sslength bl)) (while (< compt com) (progn (setq ent (entget (ssname bl compt))) (setq ent (subst (cons 41 ECHX) (assoc 41 ent) ent)) (setq ent (subst (cons 42 ECHY) (assoc 42 ent) ent)) (setq ent (subst (cons 43 ECHZ) (assoc 43 ent) ent)) (entmod ent) (command "_attsync" "_n" (cdr (assoc 2 ent))) (setq compt (1+ compt)) ) ) nil ;;; (prompt "\n") (setvar "dimzin" 8) (setvar "clayer" cav) (setvar "cmdecho" 1) ) rectificatif j'ai remodifié le programme lisp comme avant c'est a dire : (strcat "\nECHELLE X <" a gauche la ligne de commande normal et la fenetre des commandes a droite la fentre des commande appellée avec (ctrl + F2) résultat pas les mes infos

hello gile grand merci, tjrs aussi réactif bon apremm a+ phil

hello gile ne serais tu pas l'auteur de cette *.DLL (command "_NETLOAD" "vplayerlisp.dll") elle permet de faire fonctionner GEF 3.10 de patrick GEF avait l'air de bien fonctionner sous 2010 2011 2012 mais moins bien sour 2013 un probleme de compatibilite peut etre ?? a+ phil

hello bruno grand merci ca marche impec a+ phil

hello je ne sais pas si ca existe, soit en lisp sur le net, soit deja dans autocad un petit programme qui permetrait de connaitre les rayons, voir diametre, des arc de cercle qui constitue une polyligne en passant dessus, ou en selectionnant l'arc pour le moment pour connaitre , soit je met une cote, soit je decompose la polyligne a+ phil

hello gile donc un bon SSGEt suffira je pense merci a+ phil

HELLO je teste le visual lisp grace au bout de lisp recupere sur le forum ceux a qui ca appartient reconnaitront ca doit etre de (gile) ce code permet de selectionner UN bloc (IF (AND (SETQ source (CAR (ENTSEL "\nCLIQUER SUR LE BLOC DE REFERENCE 2 : "))) (SETQ source (VLAX-ENAME->VLA-OBJECT source)) (= (VLA-GET-OBJECTNAME source) "AcDbBlockReference") ;;; (= (VLA-GET-LAYER source) layerbloc) ) (PROGN (SETQ layerbloc (VLA-GET-LAYER source ) namebloc (VLA-GET-EffectiveName source ) ) ) ) mais si on veux apres en selectionner plusieur en visual lisp, comment ecrit on ca ??? j'ai testé ca mais bien sur ca ne marche pas (IF (AND (SETQ source (CAR (ENTSEL "\nSELECTIONNER LES BLOCS A COTER PAR LE METHODE DU TRAJET:"))) (SETQ source (VLAX-ENAME->VLA-OBJECT source)) (= (VLA-GET-EffectiveName source) namebloc) (= (VLA-GET-LAYER source) layerbloc) ) (PROGN ..... ) ) bonne soirée phil

hello un petit truc retrouver les commandes c'est ecrit dans un lisp bon ok ca se charge a chaque fois et j'en ai pas l'utilité mais avec des ";;;" devant il se chargera pas mais serat facilement retrouvable avec un ptit "vlide" ;;commande "gc-getenvvars" "(setq lst (gc-getenvvars))" (command "_NETLOAD" "GetEnvVars_19.dll") a+ phil

hello j'y connais rien une piste , ca ne serait pas lier a l'onglet de presentation ?? car on peut l'avoir coché dans un onglet et decoché dans un autre a+ phil

hello voir ici http://cadxp.com/index.php?/topic/14427-les-lisp-de-gile/ gile a fait une mise à jour a+ phil

hello loll il a mangé trop de chocolat tu parles de blocs ou tu parles d'XREF ? a+ phil

hello bon rectification l'idée etait pas si bonne et on m'a donné la réponse sur AUGIRfr.fr il y a un moyen aussi facile de voir les cotes associatives ou pas, dans la version 2013 variable "ANNOMONNITOR" icone ( une croix blanche ) le plus a droite tout en bas ( affichage de la grille, accrochage aux objets, proprietes rapides ....) ou en version texte l'icone "AM" un glyphe apparait sur les cotes non associatives a+ phil

punaise pour une fois que j'ai une bonne idée, enfin pour une personne je vais aller faire une tite visite au gars AUGI a+ phil

HELLO lors que l'on selectionne une entité les grips sont par defaut bleu et passe au rouge quand on les selectionne c'est la base de autocad pour les cotes pourrait on voir les grips des cotes associatives d'une autre couleur ? pour differencier visuellement les cotes associatives de celles qui ne le sont pas avec des grips vert par exemples bonne journee phil

hello voici les description de ce que tu recherches sinon j'ai trouver cette commande bien planquer "_AECSPACEEVALUATION" tu dois pouvoir exporter vers excel, mais je n'ai pas tester la mise en forme par contre description d'un "aec_space" en dxf Choix de l'objet: (-1 . <Nom d'entité: 7ffffa3f1f0>) (0 . "AEC_SPACE") (5 . "8EAF") (102 . "{ACAD_XDICTIONARY") (360 . <Nom d'entité: 7ffffa3f2f0>) (102 . "}") (330 . <Nom d'entité: 7ffffa03d90>) (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "LES SURFACES") en visual LISP SELECTIONNER UNE ENTITE POUR INFO ENTSEL.; IAecSpace: Entité espace utilisée pour agencer le positionnement du plancher ; Valeurs de propriétés: ; Application (RO) = #<VLA-OBJECT IAcadApplication 000000013f7b2308> ; Area = 14.9467 ; Associative = 0 ; BasePerimeter (RO) = 1580.53 ; BaseProfile = #<VLA-OBJECT IAecProfile 000000002cbe0020> ; BoundaryOffsets = 2 ; BoundSpaces = 1 ; CalculatedArea (RO) = 14.9467 ; CalculatedPerimeter (RO) = 1580.53 ; CalculationPlane1Height = 0.0 ; CalculationPlane2Height = 0.0 ; CeilingThickness = 5.0 ; Description = "" ; Document (RO) = #<VLA-OBJECT IAcadDocument 000000002c95ab58> ; EntityTransparency = "DuCalque" ; FloorThickness = 15.0 ; GeometryType = 1 ; Handle (RO) = "8EAF" ; HasExtensionDictionary (RO) = -1 ; Height = 250.0 ; HeightAboveCeiling = 40.0 ; HeightBelowFloor = 0.0 ; Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 00000000342dd4c8> ; Justification = 0 ; Layer = "LES SURFACES" ; Length = 415.62 ; Linetype = "ByLayer" ; LinetypeScale = 1.0 ; Lineweight = -1 ; Location = (1046.78 -71.6871 0.0) ; Material = "ByLayer" ; MaxArea (RO) = 929.03 ; MaxLength (RO) = 10000.0 ; MaxWidth (RO) = 10000.0 ; MinArea (RO) = 0.0464515 ; MinLength (RO) = 2.0 ; MinWidth (RO) = 2.0 ; Name = "BUREAU" ; Normal = (0.0 0.0 1.0) ; ObjectID (RO) = 42 ; ObjectID32 (RO) = 42 ; ObjectName (RO) = "AecDbSpace" ; OwnerID (RO) = 43 ; OwnerID32 (RO) = 43 ; PlotStyleName = "ByLayer" ; Rotation = 4.91755 ; ShadowDisplay = 0 ; Style = #<VLA-OBJECT IAecSpaceStyle 0000000033e938d0> ; StyleName = "AIRE INTERIEURE" ; SurfaceComponentCount (RO) = ...Contenu indexé masqué... ; SurfaceCount (RO) = 6 ; SurfaceHeightDefault = 295.0 ; TargetArea (RO) = 9.2903 ; TargetLength (RO) = 300.0 ; TargetWidth (RO) = 300.0 ; TrueColor = #<VLA-OBJECT IAcadAcCmColor 000000002ea23eb0> ; Visible = -1 ; Volume (RO) = 37.3668 ; Width = 489.148 ; erreur: type d'argument incorrect: VLA-OBJECT nil description d'un "aec_zone" en dxf Choix de l'objet: (-1 . <Nom d'entité: 7ffffa3f450>) (0 . "AEC_ZONE") (330 . <Nom d'entité: 7ffffa03d90>) (5 . "8ED5") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "LES SURFACES ZONES") en visual LISP ; Valeurs de propriétés: ; Application (RO) = #<VLA-OBJECT IAcadApplication 000000013f7b2308> ; BaseArea (RO) = 55.317 ; BasePerimeter (RO) = 6123.19 ; BoundaryOffset = 0.0 ; BoundSpaces = 1 ; CalculateArea = 1 ; CalculatedArea (RO) = 55.317 ; CalculatedPerimeter (RO) = 6123.19 ; CalculatePerimeter = 1 ; CanContainSpaces = 1 ; CanContainZones = 1 ; Description = "" ; Document (RO) = #<VLA-OBJECT IAcadDocument 000000002c95ab58> ; EntityTransparency = "DuCalque" ; Handle (RO) = "8ED5" ; HasExtensionDictionary (RO) = 0 ; Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 0000000034231868> ; Layer = "LES SURFACES ZONES" ; Linetype = "ByLayer" ; LinetypeScale = 1.0 ; Lineweight = -1 ; Location = (1602.67 -375.594 0.0) ; Material = "ByLayer" ; Name = "total" ; Normal = (0.0 0.0 1.0) ; ObjectID (RO) = 44 ; ObjectID32 (RO) = 44 ; ObjectName (RO) = "AecDbZone" ; OwnerID (RO) = 43 ; OwnerID32 (RO) = 43 ; PlotStyleName = "ByLayer" ; Rotation = 0.0 ; ShadowDisplay = 0 ; SpaceCount (RO) = 4 ; Style = #<VLA-OBJECT IAecZoneStyle 000000000762f4d0> ; StyleName = "Standard (Style de groupe d'aires)" ; TotalSpaceCount (RO) = 4 ; TotalSpaceVolume (RO) = 138.293 ; TotalZoneCount (RO) = 0 ; TrueColor = #<VLA-OBJECT IAcadAcCmColor 00000000342e2b00> ; Visible = -1 ; ZoneCount (RO) = 0 ; erreur: type d'argument incorrect: VLA-OBJECT nil a+ phil

hello gile ok merci a+ phil

hello gile bon pas besoin de te pencher dessus rapidement tu as vais du ecrire le lisp "OBJ2WIPEOUT" qui comme par hazard ne fonctionne plus sous 2013 il doit manquer le "acwipeout.arx" dans la version 2013 ou a été remplacer tu saurais par quel *.arx par hazard ?? ou le plus simple aller rechercher dans les vieilles versions ?? a+ phil

BONJOUR est ce que vous avez une astuce pour faire des calculs entre parametres dynamiques ? voila j'ai un bloc avec deux parametres linéaire d'etirement distance X et Distance Y j'aimerai voir apparaitre quelque part la somme des deux distances apres etirement soit un attribut invisible que je ne vois que dans la fenetre des propriétées soit un parametre utilisateur je sais que l'on peut faire apparaitre la valeur de l'objet "parametre linéaire" dans un champ mais en faire la somme la mystere un champ avec une expression diesel ? peut etre bonne journée phil

hello c'est pas ce que l'on disait de "tonton" a une epoque? mieux que le predecesseur. bon apres l'essence, quand est ce qu'il s'attaque aux prix des licenses autocad? bonne journée phil

hello bravo aussi +1 et surtout mercii phil