PHILPHIL

bonsoir Gile je viens de tester "gc-vplayeroverride" et ca me met ca Choix de l'objet: no function definition: GC-VPLAYEROVERRIDE je l'ai bien charger avec un netload (command-s "_NETLOAD" "LispExtension_19.dll") (defun c:chcoucalFEN (/ acdoc ss ref ;;; name new ) (setq cav (getvar "clayer")) (command-s "-calque" "ch" "0" "") (setq typeentite (getcfg "APPDATA/TYPEENTITE")) (setq sfen (car (entsel "\nSELECTIONNER LA FENETRE DANS LAQUELLE FAIRE LA MODIFICATION DU CALQUE :"))) (command-s "espaceo") (initget "E e S s") (setq tmp (getkword (strcat "\nVOULEZ VOUS SELECTIONNER UNE Entité ou UNE Sous entité (E e / S s) <" typeentite "> : ") ) ) (if tmp (setq typeentite tmp) ) (setcfg "APPDATA/TYPEENTITE" typeentite) (if (or (= typeentite "E") (= typeentite "e")) (progn (setq ent1 (car (entsel "\nSELECTIONNER UNE ENTITE GLOBALE :"))) (setq name (vlax-get-property (vlax-ename->vla-object (cdr (assoc -1 (entget ent1)))) 'layer)) ) (progn (setq ent1 (car (nentsel "\nSELECTIONNER UNE SOUS-ENTITE :"))) (setq name (vlax-get-property (vlax-ename->vla-object (cdr (assoc -1 (entget ent1)))) 'layer)) ) ) (command-s "espacep") (setq couleurnew (acad_colordlg 1)) ;; (gc-vplayeroverride sfen name 1 nil -3) (gc-vplayeroverride (car ( entsel)) "C_MUR" 1 nil 0);; pour tester (setvar "clayer" cav) (princ) ) a+ merci Phil

bonjour une mise a jour d'un lisp pour renommer le calque d'une entité ou sous entité :RENCAL pour renommer un bloc : RENB pour changer la couleur du calque d'une entité ( quand tout est blanc, illisible ) : CHCOUCAL pour changer la couleur du calque d'une entité dans une fenetre( quand tout est blanc, illisible ) : CHCOUCALFEN ( sélectionner l'entité a modifier, puis ensuite la fenetre dans laquelle faire la modification ) pour annuler la couleur forcer d'une entite dans une fenetre : CHCOUCALFENANUL ( entité par entité, ) renb2.lsp nécessite LISPEXTENSION_19.DLL de Gile LispExtension.zip PS: on peut changer / forcer les couleurs d'un calque dans une fenetre, ou se trouve l'information pour la modifier en lisp ? comment y acceder ? merci Phil

salut Patrick désolé j'ai testé ca au début, pensant que ca serait aussi simple. mais non ca ne marche pas, ou meme ca plante. merci a+ Phil

bonjour sur la base de UNVER ou VER de patrick35, je cherche a activer ou desactiver toutes les fenetres de l espace papier des presentations. ca fonctionne une fois que l'on a visité toutes les presentations au moins une fois, car ca met incrémente le code 69 des "viewport" sur 2 3 4 sinon je me suis aperçue que le code restait sur 0 donc si on lance le lisp dans l'onglet objet ( "model" si je me trompe ps ), il ne trouve aucune "viewport" avec le code 69 supérieur ou égal a 1 on est bien d'accord que la code 69 = 0 du "viewport" désigne la presentation ( l'espace papier ) qu l'on ne peut pas désactiver normalement. peut on changer le code 69 de toutes les fenetres de présentations sans devoir visiter toutes les présentations ? peut on différencier en version active X les "viewport" des présentations, comme j'ai essayé la. (and (= (vla-get-ObjectName (vlax-ename->vla-object (ssname sel n))) "AcDbViewport") (/= (vla-get-layer (vlax-ename->vla-object (ssname sel n))) nil)) et traiter toutes les viewport sans le soucier du code 69 ? ;;;================================================================= ;;; ;;; FENACTIVER.LSP V1.01 ;;; ;;; desactiver toutes les fenêtres dans les présentationS ;;; ;;; Copyright (C) Patrick_35 ;;; ;;;================================================================= (defun c:fdesactout (/ fen n ;;; sel tot ) (vl-load-com) (setq sel nil) ;;(or *acdoc* (setq *acdoc* (vla-get-activedocument (vlax-get-acad-object)))) ;; ca sert a quoi ?? ;;(setq layouts (vla-get-layouts *acdoc*)) ;; ca sert a quoi ?? (setq sellay (ssget "X" (list (cons 0 "VIEWPORT") ))) (if (= (tblsearch "layer" "T_FENETRE") nil) (command-s "-calque" "n" "T_FENETRE" "co" "7" "T_FENETRE" "T" "A" "T_FENETRE" "") ) (vla-startundomark (vla-get-activedocument (vlax-get-acad-object))) ;; ca sert a quoi ?? (if (setq sel (ssget "X" (list (cons 0 "VIEWPORT") ;;; (cons -4 ">=") (cons 69 1) ))) (progn (setq n 0 tot 0 ) (while (ssname sel n) (setq test11 (vla-get-ObjectName (vlax-ename->vla-object (ssname sel n)))) (setq test12 (vla-get-layer (vlax-ename->vla-object (ssname sel n)))) (if ;;; (and (= (vla-get-ObjectName (vlax-ename->vla-object (ssname sel n))) "AcDbViewport") (/= (vla-get-layer (vlax-ename->vla-object (ssname sel n))) nil)) (/= (cdr (assoc 69 (entget (ssname sel n)))) 1) (progn (setq fen (vlax-ename->vla-object (ssname sel n))) (vlax-put-property fen "ViewportOn" :vlax-false) (vlax-put-property fen "layer" "T_FENETRE") (setq tot (1+ tot)) ) ) (setq n (1+ n)) ) (princ (strcat "\n" (itoa tot) " fenêtre(s) de désactivée(s)")) ) (princ "\nPas de fenêtres") ) (vla-endundomark (vla-get-activedocument (vlax-get-acad-object));; ca sert a quoi ???? (princ) ) a+ merci Phil

Salut patrick j'ai teste le nouveau OOG 1-11. il revient bien a ONG apres, mais par contre la liste n'est plus a jour comme dans OOG. ce qui est normal, il doit manqué une mise a jour de la liste. comment faire ? a+ Phil

hello Gile ca marche mieux, moins de surcharge. merci beaucoup a+ Phil

bonjour j'ai testé superautoscript. et ca ne fonctionne pas avec le script qui fonctionne avec batchscript. ca ouvre autocad, puis ca bloque. ca doit venir aussi du script lui meme, la ca pardonne pas les erreurs, contrairement a batchscript ( accoreconsole ) j'ai testé accoreconsole et la ca fonctionne tres bien. Juste il faut retrouvé les bases du script, pas evident. et un autre point, qui peut poser probleme, c'est le nombre de fichier a traiter. j'ai commencé avec 50 fichiers , et pas de soucis. je suis passer a 659 fichiers, et la ca commence a faire beaucoup, car d'abord ca ouvre une fenetre "console" par fichier, et on ne peut plus utiliser l'ordi. ca monte en mémoire ( au debut ca a planté avec 16 Go ), puis apres ca travail dans chaque console, tres tres tres vite par contre. est ce que pour pouvoir utiliser cet outil sur des milliers de fichier, la console ne pourrait pas s'ouvrir, travailler, puis se fermer ensuite, et voir dans la liste de BATCHSCRIPT que le fichier traité se décoche, pour apprécier la progression, et étant plus leger comme ca on peut utiliser l'ordi. merci a vous Phil

bonjour je pense que le code existe déja, mais je sais plus ou chercher ou mettre la main dessus. je cherche un lisp qui permet de visiter tous les *.dwg d'un sous répertoire et d'appliquer un autre lisp. j'aimerai pouvoir integrer directement dans le lisp le bout de lisp que je connais, ( et savoir ou changer les quelque lignes pour faire autre chose )sans passer par aller en chercher un autre. on ferait la mise a jour pour faire autre chose nous meme Patrick 35 avait bien ecrit scriptor, mais le souci c'est que ca ecrit un *.scr qu'il ne retrouve pas ou n'ecrit pas, ou demande de sauvegarder le dessin en premier. l'idée c'etait d'ouvrir tous les fichiers, faire un zoom, et sauvegarder, fermer. pour avoir l'apercu du fichier dans l'explorateur de fichier windows. j'ai essayer de voir ce que PAT ( de patrick35 ) faisait, il manipule bien tous les fichier d'un répertoire, mais ne les ouvre pas en fait. merci bonne soirée Phil

hello Patrick petit question sur ONG ou OOG. Je suis dans ONG, je clique sur OOG, et quand je suis dedans une fois cliquer sur "annuler" ca revient a ONG, mais sur "ok" ca ne revient pas a ONG, c'est le seul qui me fait ca. ca ne marche pas non plus pour MPL ca marche pour MIM et MCTB j'ai du effacer une ligne, mais ou ?? ca vient de ONG ou de OOG ? mystere. a+ salut Phil

bonjour j'essaie d utiliser le générateur de structure dans revit, mais ca ne marche pas. en regardant de plus pres j'ai ce genre de fenetre et quand je regarde l'aide je vois ca. il semble y avoir des options de renfort et de calul en plus, que ce que j'ai moi. j'ai aussi vue sur internet ce genre de "fenetre" mais j'arrive pas a mettre la main dessus. vous avez quoi dans votre version 2016 de revit ? image 1 ou image 2 ? bon week end Phil

hello goldorak waaahoou sauvé par goldorak faut que je remonte loin pour ca, ca me rajeuni pas bon je regarde les familles revit ou le premier épisode de goldorak sur youtube ce soir ? mercii Phil

bonsoir oui j'avais vue ce sujet et le wetransfer qui etait avec. la normalité n'étant plus vraiment de ce monde, ce sous répertoire est vide chez moi. et les wetransfer on une durée limitée, celui du sujet precédent est obsolete. merci bonne nuit ( il y a plus de nuit que de week end dans la semaine ) phil

bonjour je ne trouve pas les fichiers de gabarits des familles *.rft est ce qu'un bonne ame les aurait sous la mains pour un wetransfer. merci bon week end Phil

bonjour je dois avoir le meme probleme. je ne trouve pas les fichiers de gabarits des familles *.rft est ce qu'un bonne ame les aurait sous la mains pour un wetransfer. merci bon week end Phil

bonjour je cherche en lisp comment obtenir les informations d'un calque : sa couleur, son type de ligne, épaisseur et autres s'il y a. pour, par la suite, modifier les entités forcées, en comparant sa couleur, son type de ligne, son épaisseur avec le calque dans lequel elle est implantée et si c'est égal la mettre en ducalque. je suppose que une entité en ducalque s'affiche plus vite que si elle est forcée, un paramètres en moins a calculer. c'est exact d’après vous ? merci a+ Phil

hello Gile sais tu ou on trouve les fichiers *.help sur toutes les commandes aec pour les utiliser dans des lisp si c'est le fichier que tu viens de dire "AecX.AecBaseApplication.7.5" on trouve ca ou ? car moi aussi j'ai trouvé par un tres grand hazard, des fonctions pour atteindre les propriétés des données étendues des blocs aec, mais comment les manipuler, ca ca reste un mystere. ou avoir la liste de toutes les commandes aec genre ca : PROPERTYSETDEFMERGE merci a+ phil

salut Gile merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii Genial Si autodesk ne le fait pas Gile le fera pourquoi on paye autodesk ????? bon week end Phil

hello Gile tu n'avais pas fait une appli qui empechait la selection d'entité sur des calques verrouillés ? je ne la retrouve plus sur CADXP y a t il une mise a jour pour 2016 ? merci bonne journée Phil

hello voila un lisp avec des explications pour etre plus clair bon week end Phil (defun c:infobloc1 () (prompt "\nCLIQUER SUR LE BLOC : POUR RECUPERER L INFO") (setq bl1 (ssget (list (cons 0 "insert"))));; on sélectionne un bloc (foreach prop (vlax-invoke (vlax-ename->vla-object (cdr (assoc -1 (entget (ssname bl1 0))))) 'getdynamicblockproperties );;; on regarde toutes les propriétées dynamiques (if (= (vla-get-propertyname prop) "distance1");; si une propriétée dnamique a le nom "distance1" (PROGN (setq valeuredeprop (vla-get-value prop));; on regarde pour info comment c est agencé (setq valeurextraite (vlax-variant-value (vla-get-value prop)));; on extrait la valeur de la propriété ) ) ) valeuredeprop valeurextraite )

hello gile toujours aussi efficace as tu moyen de rajouter dans ton lisp les informations du calque s'il est actif, geler, ou pas , sa couleur merci a+ Phil

Salut Eric Salut a toutes tous salut et tres bonne rentrée pour moi ca marche nickel impec Merci a toi a+ Phil

hello cadmin je viens de regarder chaque sujet qui sont dans les contenus que je n'ai pas visité certains sont avec réponses modérées et les autres non meme quand on est le premier a ecrire le sujet ca demande un modérateur Phil

hello bon ca va poluer , mais le moderateur pourra effacer je pense mais bon la ca remet ca , et effectivement ici il y a ecrit au dessus de la fenetre "CE MESAGE DOIT ETRE ACCEPTE PAR UN MODERATEUR..." donc oui marche sur certains mésage, mais pas tous a+ phil

hello again ha ba oui ici , il n'y a pas ecrit au dessus que ca doit passer par un moderateur phil

hello en cliquant sur ajouter une reponse est ce que ca va pluss vite ? phil