bono05

Chère lili2006, Une fois de plus j'ai du mal à trouver cette commande en anglais? Est-ce "matchprop"? Mais j'aurai aimé une solution pour des multilignes avec remplissages... :cool: [Edité le 28/11/2008 par bono05]

Salut les pros, Est-ce possible de changer la couleur de remplissage d'une multiligne précedemment configuré? Avec le style de multilignes j'avis crée un plein en gris couleurs 9...et maintenant je voudrai changer toutes ces multilignes mais c'est à croire qu'un fois crée et dessinée on ne peut plus les changer??!! Merci.

Salut, J'ai eu ce même problème en changeant de nom d'utilisateur...j'avais pourtant importer toutes les données. Alors j'ai juste copier/coller le dossier AuthorPalette que l'on trouve dans support. Et là miracle ma palette d'objet dynamique n'était plus vide... :D

Messieurs, Je suis obligé de vous donner raison sur ce coup... :) Mais mon problème c'est que je suis dans un projet avec 26 étage (et donc 26 plans) où le problème se situe... Et à chaque mise à jour de la technique en question il me renvoie les nouvelles versions et toujours avec ce même problème, et ce malgré que je leur ai signifier de ne plus le faire ainsi. Je déduit donc que ce dessinateur ne comprend pas la différence ou peut-être n'a pas la compétence pour le faire. Soit si on refait donc un petit calcul rapide...3min par plan x26 (et a chaque nouvelle version)= :o Vous êtes des pros et je vous remercie pour votre aide...et toi Patrick_35 j'y peut rien mais je ne sais plus me passer de tes lisps! :D A+

Cher Didier, Il s'agit bien de la manière avec laquelle je procède...mais étant donné que j'ai plus de 10 blocs différents présent dans chaque dessin, je voudrais savoir faire tous les blocs en une seule commande. est-ce possible? :o

Bonjour à tous, J'ai reçu une floppé de plan avec diverse bloc contenant tous un attribut... Mais certains de ces attributs se chevauche sur le plan, alors je voudrai pouvoir bouger ces textes mais ils sont bloqués (dans l'editeur du bloc). Afin de ne pas de voir les débloquer tous un par un (car j'ai plusieurs blocs différents), existe-il une astuce pour faire en sorte que tous les attibuts présent dans un plan n'ai plus de texte attribut bloqué? Merci d'avance... ;) [Edité le 31/10/2008 par bono05]

SUPER!!! C'est bien l'echelle la cause de tous ces maux....Merci Ludwig! :D

Bonjour à tous, Je m'explique...il m'arrive parfois que lorsque je "copier/coller" un bloc dynamique dans un autre plan ,les fonctions dynamiques n'apparaissent plus??? pourtant lorsque j'édite ce bloc toutes les fonctions s'y trouve encore??? Comme je n'ai ce problème qu'avec certains plans je me demande si cela pouvait venir d'une variable? Il y a t-il un moyen pour remédier à cela? Merci..et B-W ! :D

Salut, Si je comprend bien de quoi il s'agit...je pense avoir eu le même problème ici: http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=20457 Et franchement grâce à "thry0" le résultat final est tout simplement SUPERBE! :D

Juste pour confirmer que cela fonctionne super bien!!! Il m'a sorti un tableau excel avec tous les détails. Encore merci. :D

Merci gile, En attendant j'aimerai avoir un avis sur la commande "data extraction" qui semble trier et faire un tableau tout ce qu'il y a dans un plan et même les différent symbole que contienne un bloc dynamique... Je suis encore en train de tester...

Bonjour les pros, Voici le problème du jour me concernant... Dans un plan j'ai travaillé avec des block dynamique pour eclairage... Mais maintenant je dois faire le decompte de chaque type d'appareil et avec l'option quick select je ne parvient qu'a selectionner le nom du bloc...dynamique qui regroupe evidemment tout les differents type des lampes!!!! Et bien sur je voudrai pouvoir également selectionner les types (visibility) pour chaque appareil! Est-ce possible? Merci. Bono. :P

J'ai trouvé ceci sur le net... Fonctionne impec !! ;ActiveX (vl-load-com) (vlr-remove-all) (setq atb_autoCad (vlax-get-acad-object) atb_activeDocument (vlax-get-property atb_autoCad 'activeDocument) atb_menuGroups (vlax-get-property atb_autoCad 'menuGroups) atb_blocks (vlax-get-property atb_activeDocument 'blocks) atb_dimStyles (vlax-get-property atb_activeDocument 'dimStyles) atb_layers (vlax-get-property atb_activeDocument 'layers) atb_linetypes (vlax-get-property atb_activeDocument 'linetypes) atb_modelSpace (vlax-get-property atb_activeDocument 'modelSpace) atb_paperSpace (vlax-get-property atb_activeDocument 'paperSpace) atb_plotConfigurations (vlax-get-property atb_activeDocument 'plotConfigurations) atb_plot (vlax-get-property atb_activeDocument 'plot) atb_preferences (vlax-get-property atb_autoCad 'preferences) atb_textStyles (vlax-get-property atb_activeDocument 'textStyles) atb_userCoordinateSystems (vlax-get-property atb_activeDocument 'userCoordinateSystems) atb_utility (vlax-get-property atb_activeDocument 'utility) ht_views (vlax-get-property atb_activeDocument 'views) atb_viewports (vlax-get-property atb_activeDocument 'viewports) atb_space atb_modelSpace ) (defun atb_bylayer () (vlax-for a atb_blocks (if (= (vlax-get-property a 'isXref) :vlax-false) (progn (vlax-for b a (vlax-put-property b 'color acByLayer) (vlax-put-property b 'lineweight acLnWtByLayer) (if (= (vlax-get-property b 'objectName) "AcDbBlockReference") (progn (if (= (vlax-get-property b 'hasAttributes) :vlax-true) (progn (setq ht_attv (vlax-invoke-method b 'getAttributes) ht_attl (vlax-safearray->list (vlax-variant-value ht_attv)) ) (foreach c ht_attl (vlax-put-property c 'color acByLayer) (vlax-put-property c 'lineweight acLnWtByLayer) ) ) ) ) ) (if (= (vlax-get-property b 'objectName) "AcDbMText") (progn (setq ht_string (vlax-get-property b 'textString) ht_count 1 ht_mod nil ) (while (<= ht_count (strlen ht_string)) (setq ht_one (substr ht_string ht_count 4) ht_two (substr ht_string ht_count 5) ht_three (substr ht_string ht_count 6) ) (cond ((wcmatch ht_one "\\C*;") (setq ht_string (strcat (substr ht_string 1 (1- ht_count)) (substr ht_string (+ ht_count 4))) ht_count 0 ht_mod T ) ) ((wcmatch ht_two "\\C*;") (setq ht_string (strcat (substr ht_string 1 (1- ht_count)) (substr ht_string (+ ht_count 5))) ht_count 0 ht_mod T ) ) ((wcmatch ht_three "\\C*;") (setq ht_string (strcat (substr ht_string 1 (1- ht_count)) (substr ht_string (+ ht_count 6))) ht_count 0 ht_mod T ) ) ) (setq ht_count (1+ ht_count)) ) (if ht_mod (vlax-put-property b 'textString ht_string) ) ) ) ) ) ) ) (princ) ) (defun c:ATB () (atb_bylayer) ) ;Command reactor 1 (defun ht_commandStart (ht_reactor ht_command) (if (= (nth 0 ht_command) "PLOT") (progn (setvar "xclipframe" 0) (setq ht_ss nil) (if (= (getvar "cvport") 1) (setq ht_ss (ssget "x" '((0 . "insert") (2 . "pdt") (67 . 1)))) (setq ht_ss (ssget "x" '((0 . "insert") (2 . "pdt") (67 . 0)))) ) (if ht_ss (progn (htpdt) (princ) ) ) ) ) ) ;Command reactor 2 (defun ht_commandEnd (ht_reactor ht_command) (if (and (not (= (getvar "userr1") 0.0)) (not (= (getvar "userr3") 0.0)) ) (progn (if (and (= (getvar "tilemode") 1) (= (nth 0 ht_command) "LTSCALE") ) (setvar "userr2" (/ (* (getvar "ltscale") (getvar "userr1")) (getvar "userr3"))) ) (if (and (= (getvar "tilemode") 0) (= (nth 0 ht_command) "LTSCALE") ) (setvar "userr2" (getvar "LTSCALE")) ) ) ) (princ) ) ;Layout changed reactor (defun ht_layoutSwitch (ht_reactor ht_layout) (if (and (not (= (getvar "userr1") 0.0)) (not (= (getvar "userr2") 0.0)) (not (= (getvar "userr3") 0.0)) ) (if (= (nth 0 ht_layout) "Model") (progn (setvar "ltscale" (/ (* (getvar "userr3") (getvar "userr2")) (getvar "userr1"))) (setvar "dimscale" (/ (getvar "userr3") (getvar "userr1"))) ) (progn (setvar "ltscale" (getvar "userr2")) (setvar "dimscale" 1) ) ) ) (princ) ) ;System variable Reactor (defun ht_sysVar (ht_reactor ht_variable) (if (and (not (= (getvar "userr1") 0.0)) (not (= (getvar "userr2") 0.0)) (not (= (getvar "userr3") 0.0)) ) (progn (if (and (= (getvar "tilemode") 1) (or (= (nth 0 ht_variable) "USERR1") (= (nth 0 ht_variable) "USERR2") (= (nth 0 ht_variable) "USERR3") ) ) (progn (setvar "ltscale" (/ (* (getvar "userr3") (getvar "userr2")) (getvar "userr1"))) (setvar "dimscale" (/ (getvar "userr3") (getvar "userr1"))) (vlax-invoke-method atb_activeDocument 'regen acActiveViewport) ) ) (if (and (= (getvar "tilemode") 0) (= (nth 0 ht_variable) "USERR2") ) (setvar "ltscale" (getvar "userr2")) ) ) ) (if (= (nth 0 ht_variable) "MEASUREMENT") (if (= (getvar "measurement") 0) (progn (setvar "userr2" 10) (setvar "userr1" 1) ) (progn (setvar "userr2" 1) (setvar "userr1" 1000) ) ) ) (princ) ) ;Close Reactor (defun ht_close (ht_reactor ht_list) (setq ht_mx nil) (vlax-for a atb_blocks (if (= (vlax-get-property a 'isLayout) :vlax-true) (progn (setq ht_layout (vlax-get-property a 'layout)) (if (= (vlax-get-property ht_layout 'name) "MXChange") (progn (vlax-invoke-method ht_layout 'delete) (setq ht_mx T) ) ) ) ) ) (if ht_mx (progn (vlax-for a atb_modelSpace (progn (if (= (vlax-get-property a 'objectName) "AcDbText") (progn (vlax-put-property a 'scaleFactor 1.0) (if (= (vlax-get-property a 'textString) "R=æ") (vlax-put-property a 'textString "STRAIGHT") ) (if (= (vlax-get-property a 'textString) "D") (vlax-put-property a 'textString "") ) (if (= (vlax-get-property a 'textString) "0.0%") (vlax-put-property a 'textString "") ) (if (= (vlax-get-property a 'textString) "0.1%") (vlax-put-property a 'textString "") ) (if (= (vlax-get-property a 'textString) "0.2%") (vlax-put-property a 'textString "") ) (if (= (vlax-get-property a 'textString) "0.3%") (vlax-put-property a 'textString "") ) (if (= (vlax-get-property a 'textString) "0.4%") (vlax-put-property a 'textString "") ) (if (= (vlax-get-property a 'textString) "****%") (vlax-put-property a 'textString "") ) ) ) ) ) (vlax-for a atb_textStyles (if (= (substr (vlax-get-property a 'name) 1 3) "MSL") (vlax-put-property a 'fontFile "arial") ) ) (vlax-put-property atb_activeDocument 'activespace acModelSpace) (vlax-invoke-method atb_autoCad 'zoomExtents) (vlax-invoke-method atb_activeDocument 'save) ) ) ) ;Initiate reactors (vlr-command-reactor nil '((:vlr-commandWillStart . ht_commandStart))) ;Plot reactor ;(vlr-command-reactor nil '((:vlr-commandEnded . ht_commandEnd))) (vlr-miscellaneous-reactor nil '((:vlr-layoutSwitched . ht_layoutSwitch))) (vlr-sysvar-reactor nil '((:vlr-sysVarChanged . ht_sysVar))) (vlr-dwg-reactor nil '((:vlr-beginClose . ht_close))) ;Modemacro (setvar "modemacro" ".") (setvar "modemacro" (strcat "$(if,$(=,$(getvar,measurement),0),English,Metric)" "$(if,$(!=,$(getvar,cvport),1)," " Unit=$(if,$(=,$(getvar,userr1),1),Millimetres,Metres)" " Scale=1:" "$(substr,$(getvar,userr3),1))" " Ltscale=" "$(substr,$(getvar,ltscale),1)" ) ) ;a Space atb_modelSpace ;b Closed :vlax-false ;c Color acBylayer ;d Elevation 0.0 ;e Layer "0" ;f Linetype "BYLAYER" ;g Vertexes ht_pntlist ;h Bulges ht_bulgelist (defun ht_makeLightWeightPolyline (a b c d e f g h) (setq ht_ubound (- (* (length g) 2) 1) ht_coordinates (vlax-make-safearray vlax-vbDouble (cons 0 ht_ubound)) ht_count 0 ) (foreach i g (setq ht_pnt i ht_pntx (nth 0 ht_pnt) ht_pnty (nth 1 ht_pnt) ) (vlax-safearray-put-element ht_coordinates ht_count ht_pntx) (vlax-safearray-put-element ht_coordinates (1+ ht_count) ht_pnty) (setq ht_count (+ ht_count 2)) ) (setq ht_newLightWeightPolyline (vlax-invoke-method a 'addLightWeightPolyline (vlax-make-variant ht_coordinates))) (vlax-put-property ht_newLightWeightPolyline 'closed b) (vlax-put-property ht_newLightWeightPolyline 'color c) (vlax-put-property ht_newLightWeightPolyline 'elevation d) (vlax-put-property ht_newLightWeightPolyline 'layer e) (vlax-put-property ht_newLightWeightPolyline 'linetype f) (setq ht_total (1- ht_count) ht_count 0 ) (while (< ht_count (length h)) (vlax-invoke-method ht_newLightWeightPolyline 'setBulge ht_count (nth ht_count h)) (setq ht_count (1+ ht_count)) ) ) ;a Space atb_modelSpace ;b Closed :vlax-false ;c Color acBylayer ;d Layer "0" ;e Linetype "BYLAYER" ;f Type acSimple3DPoly ;g Vertexes ht_pntlist (defun ht_make3DPolyline (a b c d e f g) (setq ht_ubound (- (* (length g) 3) 1) ht_coordinates (vlax-make-safearray vlax-vbDouble (cons 0 ht_ubound)) ht_count 0 ) (foreach h g (setq ht_pnt h ht_pntx (nth 0 ht_pnt) ht_pnty (nth 1 ht_pnt) ht_pntz (nth 2 ht_pnt) ) (if (not ht_pntz) (setq ht_pntz 0.0) ) (vlax-safearray-put-element ht_coordinates ht_count ht_pntx) (vlax-safearray-put-element ht_coordinates (1+ ht_count) ht_pnty) (vlax-safearray-put-element ht_coordinates (+ ht_count 2) ht_pntz) (setq ht_count (+ ht_count 3)) ) (setq ht_new3DPolyline (vlax-invoke-method a 'add3DPoly (vlax-make-variant ht_coordinates))) (vlax-put-property ht_new3DPolyline 'closed b) (vlax-put-property ht_new3DPolyline 'color c) (vlax-put-property ht_new3DPolyline 'layer d) (vlax-put-property ht_new3DPolyline 'linetype e) (vlax-put-property ht_new3DPolyline 'type f) ) (defun ht_ps->ms () (if (= (getvar "tilemode") 0) (progn (vlax-put-property atb_activeDocument 'mspace :vlax-false) (setq ht_ss (ssget "x" '((67 . 0) (-3 ("HT ps-ms pViewport")))) atb_paperSpace (vlax-get-property atb_activeDocument 'paperSpace) ) (if ht_ss (progn (setq ht_ssn (1- (sslength ht_ss))) (while (> ht_ssn -1) (setq ht_ename (ssname ht_ss ht_ssn) ht_ssn (1- ht_ssn) ) (entdel ht_ename) ) ) ) (vlax-for a atb_paperSpace (if (= (vlax-get-property a 'objectName) "AcDbViewport") (progn (setq ht_obj a ht_sc (vlax-get-property ht_obj 'customScale) ht_psw (vlax-get-property ht_obj 'width) ht_psh (vlax-get-property ht_obj 'height) ht_vt (vlax-get-property ht_obj 'twistAngle) ht_msw (/ ht_psw ht_sc) ht_msh (/ ht_psh ht_sc) ht_ename (vlax-vla-object->ename ht_obj) ht_dxf (entget ht_ename) ht_dcs (cdr (assoc 12 ht_dxf)) ht_col (cdr (assoc 62 ht_dxf)) ht_id (cdr (assoc 69 ht_dxf)) ht_scale (read (rtos (/ 1.0 ht_sc) 2 4)) ) ;(princ ht_scale) (if (= (getvar "userr1") 0.0) (setq ht_name (rtos ht_id 2 0)) (setq ht_name (rtos (* ht_scale (getvar "userr1")) 2 0)) ) (if (not ht_col) (setq ht_col acBylayer) ) (if (not (= ht_id 1)) (progn (vlax-invoke-method ht_obj 'display :vlax-true) (vlax-put-property atb_activeDocument 'mspace :vlax-true) (setvar "cvport" ht_id) (setvar "ucsview" 1) (setvar "cmdecho" 0) (command "ucs" "v") (if (tblsearch "ucs" ht_name) (command "ucs" "s" ht_name "y") (command "ucs" "s" ht_name) ) (command "view" "s" ht_name) (setvar "cmdecho" 1) (setq ht_cen ht_dcs) (setq ht_vt (- (* pi 2.0) ht_vt) ht_cen (list (nth 0 ht_cen) (nth 1 ht_cen)) ht_tm (polar ht_cen (* pi 0.5) (* ht_msh 0.5)) ht_p1 (polar ht_tm pi (* ht_msw 0.5)) ht_p2 (polar ht_tm 0.0 (* ht_msw 0.5)) ht_p3 (polar ht_p2 (* pi 1.5) ht_msh) ht_p4 (polar ht_p1 (* pi 1.5) ht_msh) ht_p1m (trans ht_p1 2 0) ht_p2m (trans ht_p2 2 0) ht_p3m (trans ht_p3 2 0) ht_p4m (trans ht_p4 2 0) ht_pntlist (list ht_p1m ht_p2m ht_p3m ht_p4m) ) (vlax-put-property atb_activeDocument 'mspace :vlax-false) (ht_make3DPolyline atb_modelSpace :vlax-true ht_col "DEFPOINTS" "BYLAYER" acSimple3DPoly ht_pntlist) ;(regapp "HT ps-ms pViewport") ;(setq ht_dxf (entget (vlax-vla-object->ename ht_new3DPolyline)) ; ht_exdata '((-3 ("HT ps-ms pViewport" (1000 . "3DPolyline")))) ; ht_newDxf (append ht_dxf ht_exdata) ;) ;(entmod ht_newDxf) ) ) ) ) ) (vlax-put-property atb_activeDocument 'activeSpace acModelSpace) ) ) (princ) ) (defun atb_bylayer () (vlax-for a atb_blocks (if (= (vlax-get-property a 'isXref) :vlax-false) (progn (vlax-for b a (vlax-put-property b 'color acByLayer) (vlax-put-property b 'lineweight acLnWtByLayer) (if (= (vlax-get-property b 'objectName) "AcDbBlockReference") (progn (if (= (vlax-get-property b 'hasAttributes) :vlax-true) (progn (setq ht_attv (vlax-invoke-method b 'getAttributes) ht_attl (vlax-safearray->list (vlax-variant-value ht_attv)) ) (foreach c ht_attl (vlax-put-property c 'color acByLayer) (vlax-put-property c 'lineweight acLnWtByLayer) ) ) ) ) ) ) ) ) ) (princ) ) [Edité le 15/9/2008 par bono05] [Edité le 15/9/2008 par bono05]

Bonjour les pros, Problème suivant... ;) J'ai recu des plans archi ou sont incorporés plusieurs blocs, et dans ces blocs les couleurs de layer ne sont pas respecté. J'aimerai que lorsque j'imprime, tous le plan archi (et ses blocs de couleurs) s'imprime en respectant le layer XREF_ARCHI couleur 9 (que j'ai creer pour attaché mon plan). Existe t'il un moyen simple et rapide pour remedier à ce problème? ps: Je n'ai pas envie d'explser tous ces blocs et puis de leurs donner la couleur souhaté car mon plan devient directement plus lourd. Merci. :D

Entierement d'accord sur lefait que cette fonction est très pratique....mais là justement j'ai reçu un plan d'un ZOZO ! :cool:

C'est bien ça!!! Merci lesourd2 !!

Salut les pros, Lorsque je passe avec ma souris sur un block ou xref...tous se met en surbrillance? Merci.

Merci quand même pour ces liens lili2006.... :)

Salut les pros, Comme expliqué dans le titre je recherche des legendes "controle d'acces et incendie". Cela peut etre en PDF ou autres... car c'est juste pour avoir une idée sur certains symboles à représentés. D'avance merci!!!

INCROYABLE!!!!!!!!! Et croyez moi que je cherche avant de poster...mais là j'aurai pu encore chercher très longtemps je crois. :( Un tout GRAND MERCI à ludo07 et thry0 pour leurs aide et les explications détaillées...maintenant cela n'a plus de secret pour moi. Je l'ai souvent écrit....mais ce forum est trop génial ! :D

Commande "wipeout"? C'est possible?

Pour le petit 2....super!! Mais pour le petit 1???? je rame encore...est ce peut-être parce que j'ai autocad en anglais...mais je comprend pas votre explication. snif snif...

Salut les pros, J'ai deux petit soucis dont j'aimerai vraiment trouver une solution. 1) J'ai créé un viewport pour un petit detail sur un viewport existant, est ce possible que l'on ne voit pas le dessin du premier viewport à travers mon petit viewport? Donc faite le test dans un viewport ou l'on voit un dessin, essayez de faire un viewport sur un partie du dessin..on voit toujours le dessin a travers le nouveau viewport???? Une solution? 2) pour rentrer dans un viewport je n'ai qu'à cliqué deux fois dedans pour y rentrer...mais lorsque je double clique sur mon petit viewport...c'est toujours dans le grand que je rentre??? Alors comment rentrer dans le petit qui se trouve dans le grand viewport? J'espère avoir été assez précis dans mes explications... D'avance merci pour vos idées...

Une fois de plus TROP FORT ce Gile !!!!!!! Merci,merci,merci.... !!! :D

Bonjour Gile, J'utilise abondemment le lisp "increment" regroupant plusieurs commandes. Danscelisplacommande INCR fait appel à une petitefenetre très partique qui de choisir quelle option l'on désire. J'ai en ma possession un lisp "vplocker" qui me permet de'(par ex) fermer tous les viewports d'un plan en une seule fois, ect.... Comme tu peux le constater ily a 4 commandes différentes et j'aurai voulu savoir si c'était possible de regrouperces 4 commandes en une seuleavecouvertured'une fenetre à choix multiple (comme increment)? Merci de ton aide. (defun C:MYVPL () (textscr) (princ "\n\n\n\n*************VPLOCKER COMMANDS****************** \n VPL = Lock all viewports in current layout \n VPU = Unlock all viewports in current layout \n VPAL = Lock all viewports in all layouts \n VPAU = Unlock all viewports in all layouts\n\n\n\n") (princ) ) (princ "\nVPLOCKER.LSP c2002 KDCAD, inc. \nVPLOCKER.LSP loaded successfully. Type MYVPL for command list.") ;;**********MVIEW LOCK******************* (defun c:VPL (/ VPLST THISTAB VPS) (setq THISTAB (getvar "ctab")) (setq VPLST (ssget "x" (list (cons 0 "viewport") (cons 410 THISTAB)))) (setq c -1) (if VPLST (repeat (sslength VPLST) (setq VPS (cdr (car (entget (ssname VPLST (setq c (1+ c))))))) (setq VLAOBJ (vlax-ename->vla-object VPS)) (vlax-put-property VLAOBJ 'Color 4) )) (if (= (getvar "ctab") "Model") (princ "\n** Command not allowed in Model Tab **") (command "mview" "lock" "on" VPLST "") ) (princ) ) ;;**********MVIEW UNLOCK******************* (defun c:VPU (/ VPLST THISTAB VPS) (setq THISTAB (getvar "ctab")) (setq VPLST (ssget "x" (list (cons 0 "viewport") (cons 410 THISTAB)))) (setq c -1) (if VPLST (repeat (sslength VPLST) (setq VPS (cdr (car (entget (ssname VPLST (setq c (1+ c))))))) (setq vlaobj (vlax-ename->vla-object VPS)) (vlax-put-property vlaobj 'Color 256) )) (if (= (getvar "ctab") "Model") (princ "\n** Command not allowed in Model Tab **") (command "mview" "lock" "off" VPLST "") ) (princ) ) ;;**********MVIEW LOCK IN ALL LAYOUTS******************* (defun c:VPAL (/ THISTAB VPLST VPS) (setq THISTAB (getvar "CTAB")) (foreach LAYOUT (layoutlist) (setvar "CTAB" LAYOUT) (setq VPLST (ssget "x" (list (cons 0 "viewport")))) (setq c -1) (if VPLST (repeat (sslength VPLST) (setq VPS (cdr (car (entget (ssname VPLST (setq c (1+ c))))))) (setq vlaobj (vlax-ename->vla-object VPS)) (vlax-put-property vlaobj 'Color 4) )) (command "mview" "lock" "on" VPLST "") ) (setvar "CTAB" THISTAB) (princ) ) ;;**********MVIEW UNLOCK LOCK IN ALL LAYOUTS******************* (defun c:VPAU (/ THISTAB VPLST VPS) (setq THISTAB (getvar "CTAB")) (foreach LAYOUT (layoutlist) (setvar "CTAB" LAYOUT) (setq VPLST (ssget "x" (list (cons 0 "viewport")))) (setq c -1) (if VPLST (repeat (sslength VPLST) (setq VPS (cdr (car (entget (ssname VPLST (setq c (1+ c))))))) (setq vlaobj (vlax-ename->vla-object VPS)) (vlax-put-property vlaobj 'Color 256) )) (command "mview" "lock" "off" VPLST "") ) (setvar "CTAB" THISTAB) (princ) ) ( [Edité le 4/8/2008 par bono05]