Forcer affichage ScreenMenu

stephan35 · le 18 avril 2007

Bonjour à tous !

Je cherche une solution pour forcer l'affichage du screenMenu dans mon s::startup,

(Malgré l'activation dans le fichier de configuration ,celui-ci se désactive à chaque nouvelle cession)

Encore Merci !

[Edité le 18/4/2007 par stephan35]

Bred · le 18 avril 2007

Salut,

désolé, moi parle que la france

screenMenu dans mon startup

??? :casstet:

Tramber · le 18 avril 2007

(menucmd string)

Avec "S=..." à la place de string.

A toi d'étudier, j'ai jamais fait.

stephan35 · le 18 avril 2007

J'ai corrigé ma demande !

et c'est dans le panneau de configuration d'autocad que se trouve l'option d'affichage "menu Ecran", Cette option n'est pas sauvegardée !

Je cherche la commande magique (lisp ou autre) qui force l'affichage du menu ecran.

ReMerci .... ;)

stephan35 · le 18 avril 2007

(menucmd string)

Avec "S=..." à la place de string.

A toi d'étudier, j'ai jamais fait.

Cette solution ne fonctionne que si le menu écran est déjà affiché ! :(

Désolé , merci quand même !

Gardons espoire !

stephan35 · le 18 avril 2007

Salut,
désolé, moi parle que la france

Oui, donc, Meaculpa, à vouloir toujours aller plus vite, on fini par raccourcir les mots, Faire des fautes d'orthographe et de grammaire (Qui n'a jamais été mon point fort, je l'avoue !)... mélanger les langues .... etc.

Exprimer sa demande et se faire comprendre des autres est parfois difficile .... ;)

Merci !

bonuscad · le 18 avril 2007

Un exemple, à adapter suivant la version d'Autocad

(setenv "ScreenMenu" "1")

(menucmd "S=ACAD.09_DRAW1")

mettre "ScreenMenu" à "0" pour désactiver les menus écran.

stephan35 · le 18 avril 2007

!!!!!!!!!!!!! Ca marche !!!!!!!!!!!!!!!!!

Youpi !!!!!

Un grand merci à : [surligneur] bonuscad[/surligneur]

:D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D

Ps: Je n'ai pas cherché, mais : On peut trouver facilement cette liste de variables ???

Bred · le 18 avril 2007

j'ai trouvé ça aussi :

(setq pref (vlax-get-property (vlax-get-acad-object) 'Preferences)
     Affich (vlax-get-property pref 'Display))
(vlax-put-property Affich 'DisplayScreenMenu :vlax-true)

stephan35 · le 18 avril 2007

j'ai trouvé ça aussi :

(setq pref (vlax-get-property (vlax-get-acad-object) 'Preferences)
     Affich (vlax-get-property pref 'Display))
(vlax-put-property Affich 'DisplayScreenMenu :vlax-true)

!!!!!!!!!!!!! Ca marche aussi !!!!!!!!!!!!!!!!!

Youpi !!!!!

Un grand merci à : [surligneur] Bred[/surligneur]

:D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D

PS: Faut pas faire de jaloux .... ;)

(gile) · le 18 avril 2007

Salut,

Une liste des variables environnement ici.

Sinon les très utiles LISP de BonusCAD Statenv et Statvar.

Une version de statvar avec les variables 2006 ici

Et celle pour 2007 (pas loin de 600 variables, je préfère ne pas savoir pour 2008):

(defun c:statvar (/ l_var l_rslt renvoi)
 (setq	l_var
 '("_LINFO"	     "_PKSER"	       "_SERVER"
   "_TOOLPALETTEPATH"		       "_VERNUM"
   "3DDWFPREC"	     "ACADLSPASDOC"    "ACADPREFIX"
   "ACADVER"	     "ACISOUTVER"      "AFLAGS"
   "ANGBASE"	     "ANGDIR"	       "APBOX"
   "APERTURE"	     "AREA"	       "ASSISTSTATE"
   "ATTDIA"	     "ATTMODE"	       "ATTREQ"
   "AUDITCTL"	     "AUNITS"	       "AUPREC"
   "AUTOSNAP"	     "AUXSTAT"	       "AXISUNT"
   "BACKGROUNDPLOT"  "BACKZ"	       "BACTIONCOLOR"
   "BDEPENDENCYHIGHLIGHT"	       "BGRIPOBJCOLOR"
   "BGRIPOBJSIZE"    "BINDTYPE"	       "BLIPMODE"
   "BLOCKEDITLOCK"   "BLOCKEDITOR"     "BPARAMETERCOLOR"
   "BPARAMETERFONT"  "BPARAMETERSIZE"  "BTMARKDISPLAY"
   "BVMODE"	     "CALCINPUT"       "CAMERADISPLAY"
   "CAMERAHEIGHT" ;|"CDATE"|;	       "CECOLOR"
   "CELTSCALE"	     "CELTYPE"	       "CELWEIGHT"
   "CENTERMT"	     "CHAMFERA"	       "CHAMFERB"
   "CHAMFERC"	     "CHAMFERD"	       "CHAMMODE"
   "CIRCLERAD"	     "CLAYER"	       "CLEANSCREENSTATE"
   "CLISTATE"	     "CMATERIAL"       "CMDACTIVE"
   "CMDDIA"	     "CMDECHO"	       "CMDINPUTHISTORYMAX"
   "CMDNAMES"	     "CMLJUST"	       "CMLSCALE"
   "CMLSTYLE"	     "COMPASS"	       "COORDS"
   "CPLOTSTYLE"	     "CPROFILE" ;|"CPUTICKS"|;
   "CROSSINGAREACOLOR"		       "CSHADOW"
   "CTAB"	     "CTABLESTYLE"     "CURSORSIZE"
   "CVPORT"	     "DASHBOARDSTATE" ;|"DATE"|;
   "DBCSTATE"	     "DBLCLKEDIT"      "DBMOD"
   "DCTCUST"	     "DCTMAIN"	       "DEFAULTLIGHTING"
   "DEFAULTLIGHTINGTYPE"	       "DEFLPLSTYLE"
   "DEFPLSTYLE"	     "DELOBJ"	       "DEMANDLOAD"
   "DIASTAT"	     "DIMADEC"	       "DIMALT"
   "DIMALTD"	     "DIMALTF"	       "DIMALTRND"
   "DIMALTTD"	     "DIMALTTZ"	       "DIMALTU"
   "DIMALTZ"	     "DIMAPOST"	       "DIMARCSYM"
   "DIMASO"	     "DIMASSOC"	       "DIMASZ"
   "DIMATFIT"	     "DIMAUNIT"	       "DIMAZIN"
   "DIMBLK"	     "DIMBLK1"	       "DIMBLK2"
   "DIMCEN"	     "DIMCLRD"	       "DIMCLRE"
   "DIMCLRT"	     "DIMDEC"	       "DIMDLE"
   "DIMDLI"	     "DIMDSEP"	       "DIMEXE"
   "DIMEXO"	     "DIMFIT"	       "DIMFRAC"
   "DIMFXL"	     "DIMFXLON"	       "DIMGAP"
   "DIMJUST"	     "DIMLDRBLK"       "DIMLFAC"
   "DIMLIM"	     "DIMLTEX1"	       "DIMLTEX2"
   "DIMLTYPE"	     "DIMLUNIT"	       "DIMLWD"
   "DIMLWE"	     "DIMPOST"	       "DIMRND"
   "DIMSAH"	     "DIMSCALE"	       "DIMSD1"
   "DIMSD2"	     "DIMSE1"	       "DIMSE2"
   "DIMSHO"	     "DIMSOXD"	       "DIMSTYLE"
   "DIMTAD"	     "DIMTDEC"	       "DIMTFAC"
   "DIMTFILL"	     "DIMTFILLCLR"     "DIMTIH"
   "DIMTIX"	     "DIMTM"	       "DIMTMOVE"
   "DIMTOFL"	     "DIMTOH"	       "DIMTOL"
   "DIMTOLJ"	     "DIMTP"	       "DIMTSZ"
   "DIMTVP"	     "DIMTXSTY"	       "DIMTXT"
   "DIMTZIN"	     "DIMUNIT"	       "DIMUPT"
   "DIMZIN"	     "DISPSILH"	       "DISTANCE"
   "DONUTID"	     "DONUTOD"	       "DRAGMODE"
   "DRAGP1"	     "DRAGP2"	       "DRAGVS"
   "DRAWORDERCTL"    "DRSTATE"	       "DTEXTED"
   "DWFFRAME"	     "DWFOSNAP"	       "DWGCHECK"
   "DWGCODEPAGE"     "DWGNAME"	       "DWGPREFIX"
   "DWGTITLED"	     "DYNDIGRIP"       "DYNDIVIS"
   "DYNMODE"	     "DYNPICOORDS"     "DYNPIFORMAT"
   "DYNPIVIS"	     "DYNPROMPT"       "DYNTOOLTIPS"
   "EDGEMODE"	     "ELEVATION"       "ENTERPRISEMENU"
   "ENTNEXTS"	     "ENTMODS"	       "ERRNO"
   "ERSTATE"	     "EXPERT"	       "EXPLMODE"
   "EXTMAX"	     "EXTMIN"	       "EXTNAMES"
   "FACETRATIO"	     "FACETRES"	       "FIELDDISPLAY"
   "FIELDEVAL"	     "FILEDIA"	       "FILLETRAD"
   "FILLMODE"	     "FLATLAND"	       "FONTALT"
   "FONTMAP"	     "FRONTZ"	       "FULLOPEN"
   "FULLPLOTPATH"    "GFANG"	       "GFCLR1"
   "GFCLR2"	     "GFCLRLUM"	       "GFCLRSTATE"
   "GFNAME"	     "GFSHIFT"	       "GRIDDISPLAY"
   "GRIDMAJOR"	     "GRIDMODE"	       "GRIDUNIT"
   "GRIPBLOCK"	     "GRIPCOLOR"       "GRIPDYNCOLOR"
   "GRIPHOT"	     "GRIPHOVER"       "GRIPOBJLIMIT"
   "GRIPS"	     "GRIPSIZE"	       "GRIPTIPS"
   "GTAUTO"	     "GTDEFAULT"       "GTLOCATION"
   "HALOGAP"	     "HANDLES"	       "HIDEPRECISION"
   "HIDETEXT"	     "HIGHLIGHT"       "HPANG"
   "HPASSOC"	     "HPBOUND"	       "HPDOUBLE"
   "HPDRAWORDER"     "HPGAPTOL"	       "HPINHERIT"
   "HPNAME"	     "HPOBJWARNING"    "HPORIGIN"
   "HPORIGINMODE"    "HPSCALE"	       "HPSEPARATE"
   "HPSPACE"	     "HYPERLINKBASE"   "IMAGEHLT"
   "IMPLIEDFACE"     "INDEXCTL"	       "INETLOCATION"
   "INPUTHISTORYMODE"		       "INSBASE"
   "INSNAME"	     "INSUNITS"	       "INSUNITSDEFSOURCE"
   "INSUNITSDEFTARGET"		       "INTELLIGENTUPDATE"
   "INTERFERECOLOR"  "INTERFEREOBJVS"  "INTERFEREVPVS"
   "INTERSECTIONCOLOR"		       "INTERSECTIONDISPLAY"
   "ISAVEBAK"	     "ISAVEPERCENT"    "ISOLINES"
   "LASTANGLE"	     "LASTPOINT" ;|"LASTPROMPT"|;
   "LATITUDE"	     "LAYERFILTERALERT"
   "LAYOUTREGENCTL"  "LAZYLOAD"	       "LEGACYCTRLPICK"
   "LENSLENGTH"	     "LIGHTGLYPHDISPLAY"
   "LIGHTLISTSTATE"  "LIMCHECK"	       "LIMMAX"
   "LIMMIN"	     "LISPINIT"	       "LOCALE"
   "LOCALROOTPREFIX" "LOCKUI"	       "LOFTANG1"
   "LOFTANG2"	     "LOFTMAG1"	       "LOFTMAG2"
   "LOFTNORMALS"     "LOFTPARAM"       "LOGFILEMODE"
   "LOGFILENAME"     "LOGFILEPATH"     "LOGINNAME"
   "LONGITUDE"	     "LTSCALE"	       "LUNITS"
   "LUPREC"	     "LWDEFAULT"       "LWDISPLAY"
   "LWUNITS"	     "MACROTRACE"      "MATSTATE"
   "MAXACTVP"	     "MAXOBJMEM"       "MAXSORT"
   "MBUTTONPAN"	     "MEASUREINIT"     "MEASUREMENT"
   "MENUCTL"	     "MENUECHO"	       "MENUNAME" ;|"MILLISECS"|;
   "MIRRTEXT"	     "MODEMACRO"       "MSMSTATE"
   "MSOLESCALE"	     "MTEXTED"	       "MTJIGSTRING"
   "MYDOCUMENTSPREFIX"		       "NFWSTATE"
   "NODENAME"	     "NOMUTT"	       "NORTHDIRECTION"
   "OBSCUREDCOLOR"   "OBSCUREDLTYPE"   "OFFSETDIST"
   "OFFSETGAPTYPE"   "OLEFRAME"	       "OLEHIDE"
   "OLEQUALITY"	     "OLESTARTUP"      "ORTHOMODE"
   "OSMODE"	     "OSNAPCOORD"      "OSNAPHATCH"
   "OSNAPZ"	     "OSOPTIONS"       "PALETTEOPAQUE"
   "PAPERUPDATE"     "PDMODE"	       "PDSIZE"
   "PEDITACCEPT"     "PELLIPSE"	       "PERIMETER"
   "PERSPECTIVE"     "PFACEVMAX"       "PHANDLE"
   "PICKADD"	     "PICKAUTO"	       "PICKBOX"
   "PICKDRAG"	     "PICKFIRST"       "PICKSTYLE"
   "PLATFORM"	     "PLINEGEN"	       "PLINETYPE"
   "PLINEWID"	     "PLOTOFFSET"      "PLOTROTMODE"
   "PLQUIET"	     "POLARADDANG"     "POLARANG"
   "POLARDIST"	     "POLARMODE"       "POLYSIDES"
   "POPUPS"	     "PREVIEWEFFECT"   "PREVIEWFILTER"
   "PRODUCT"	     "PROGRAM"	       "PROJECTNAME"
   "PROJMODE"	     "PROXYGRAPHICS"   "PROXYNOTICE"
   "PROXYSHOW"	     "PROXYWEBSEARCH"  "PSLTSCALE"
   "PSOLHEIGHT"	     "PSOLWIDTH"       "PSPROLOG"
   "PSQUALITY"	     "PSTYLEMODE"      "PSTYLEPOLICY"
   "PSVPSCALE"	     "PUBLISHALLSHEETS"
   "PUCSBASE"	     "QAFLAGS"	       "QAUCSLOCK"
   "QCSTATE"	     "QTEXTMODE"       "QUEUEDREGENMAX"
   "RASTERDPI"	     "RASTERPERCENT"   "RASTERPREVIEW"
   "RASTERTHRESHOLD" "RECOVERYMODE"    "REFEDITNAME"
   "REGENMODE"	     "RE-INIT"	       "REMEMBERFOLDERS"
   "RENDERPREFSSTATE"		       "REPORTERROR"
   "ROAMABLEROOTPREFIX"		       "RTDISPLAY"
   "SAVEFILE"	     "SAVEFILEPATH"    "SAVENAME"
   "SAVETIME"	     "SCREENBOXES"     "SCREENMODE"
   "SCREENSIZE"	     "SDI"	       "SELECTIONAREA"
   "SELECTIONAREAOPACITY"	       "SELECTIONPREVIEW"
   "SHADEDGE"	     "SHADEDIF"	       "SHADOWPLANELOCATION"
   "SHORTCUTMENU"    "SHOWHIST"	       "SHOWLAYERUSAGE"
   "SHPNAME"	     "SIGWARN"	       "SKETCHINC"
   "SKPOLY"	     "SNAPANG"	       "SNAPBASE"
   "SNAPISOPAIR"     "SNAPMODE"	       "SNAPSTYL"
   "SNAPTYPE"	     "SNAPUNIT"	       "SOLIDCHECK"
   "SOLIDHIST"	     "SORTENTS"	       "SPLFRAME"
   "SPLINESEGS"	     "SPLINETYPE"      "SSFOUND"
   "SSLOCATE"	     "SSMAUTOOPEN"     "SSMPOLLTIME"
   "SSMSHEETSTATUS"  "SSMSTATE"	       "STANDARDSVIOLATION"
   "STARTUP"	     "STEPSIZE"	       "STEPSPERSEC"
   "SUNPROPERTIESSTATE"		       "SUNSTATUS"
   "SURFTAB1"	     "SURFTAB2"	       "SURFTYPE"
   "SURFU"	     "SURFV"	       "SYSCODEPAGE"
   "TABLEINDICATOR"  "TABMODE"	       "TARGET"
   "TBCUSTOMIZE"     "TDCREATE" ;|"TDINDWG"|;
   "TDUCREATE"	     "TDUPDATE" ;|"TDUSRTIMER"|;
   "TDUUPDATE"	     "TEMPOVERRIDES"   "TEMPPREFIX"
   "TEXTEVAL"	     "TEXTFILL"	       "TEXTQLTY"
   "TEXTSIZE"	     "TEXTSTYLE"       "THICKNESS"
   "TILEMODE"	     "TIMEZONE"	       "TOOLTIPMERGE"
   "TOOLTIPS"	     "TPSTATE"	       "TRACEWID"
   "TRACKPATH"	     "TRAYICONS"       "TRAYNOTIFY"
   "TRAYTIMEOUT"     "TREEDEPTH"       "TREEMAX"
   "TRIMMODE"	     "TSPACEFAC"       "TSPACETYPE"
   "TSTACKALIGN"     "TSTACKSIZE"      "UCSAXISANG"
   "UCSBASE"	     "UCSDETECT"       "UCSFOLLOW"
   "UCSICON"	     "UCSNAME"	       "UCSORG"
   "UCSORTHO"	     "UCSVIEW"	       "UCSVP"
   "UCSXDIR"	     "UCSYDIR"	       "UNDOCTL"
   "UNDOMARKS"	     "UNITMODE"	       "UPDATETHUMBNAIL"
   "USERI1"	     "USERI2"	       "USERI3"
   "USERI4"	     "USERI5"	       "USERR1"
   "USERR2"	     "USERR3"	       "USERR4"
   "USERR5"	     "USERS1"	       "USERS2"
   "USERS3"	     "USERS4"	       "USERS5"
   "VIEWCTR"	     "VIEWDIR"	       "VIEWMODE"
   "VIEWSIZE"	     "VIEWTWIST"       "VISRETAIN"
   "VPMAXIMIZEDSTATE"		       "VSBACKGROUNDS"
   "VSEDGECOLOR"     "VSEDGEJITTER"    "VSEDGEOVERHANG"
   "VSEDGES"	     "VSEDGESMOOTH"    "VSFACECOLORMODE"
   "VSFACEHIGHLIGHT" "VSFACEOPACITY"   "VSFACESTYLE"
   "VSHALOGAP"	     "VSHIDEPRECISION" "VSINTERSECTIONCOLOR"
   "VSINTERSECTIONEDGES"	       "VSINTERSECTIONLTYPE"
   "VSISOONTOP"	     "VSLIGHTINGQUALITY"
   "VSMATERIALMODE"  "VSMAX"	       "VSMIN"
   "VSMONOCOLOR"     "VSOBSCUREDCOLOR" "VSOBSCUREDEDGES"
   "VSOBSCUREDLTYPE" "VSSHADOWS"       "VSSILHEDGES"
   "VSSILHWIDTH"     "VSSTATE"	       "VTDURATION"
   "VTENABLE"	     "VTFPS"	       "WHIPARC"
   "WINDOWAREACOLOR" "WMFBKGND"	       "WMFFOREGND"
   "WORLDUCS"	     "WORLDVIEW"       "WRITESTAT"
   "WSCURRENT"	     "XCLIPFRAME"      "XEDIT"
   "XFADECTL"	     "XLOADCTL"	       "XLOADPATH"
   "XREFCTL"	     "XREFNOTIFY"      "XREFTYPE"
   "ZOOMFACTOR"	     "ZOOMWHEEL"
  )
 )
 (initget 1 "Initial Comparaison")
 (cond
   ((eq (getkword "\n[initial/Comparaison] ?: ") "Initial")
    (setq var_ori (mapcar 'getvar l_var))
   )
   (T
    (if (null var_ori)
      (prompt
 "\nEtat Initial non mémorisé.\nExécutez l'option Initial"
      )
      (progn
 (setq l_rslt (mapcar 'getvar l_var))
 (setq renvoi
	(mapcar
	  '(lambda (x y z)
	     (if (not (equal x y))
	       (strcat "\n" z " a été modifié.")
	       ""
	     )
	   )
	  var_ori
	  l_rslt
	  l_var
	)
 )
 (if (apply '= renvoi)
   (prompt "\nAucune variable modifiée.")
   (progn
     (textscr)
     (foreach n	renvoi
       (if (not (eq n ""))
	 (prompt n)
       )
     )
   )
 )
      )
    )
   )
 )
 (prin1)
)

[Edité le 18/4/2007 par (gile)]

Bred · le 18 avril 2007

PS: Faut pas faire de jaloux ....

Y'a intérét !!!

(mais moi j'ai plus de " :D " que BonusCad.... Nananananèreu !!!)

stephan35 · le 19 avril 2007

MDR ! :laugh:

Merci à tous !

A+

Connexion

Forcer affichage ScreenMenu

Messages recommandés

stephan35

Bred

Tramber

stephan35

stephan35

stephan35

bonuscad

stephan35

Bred

stephan35

(gile)

Bred

stephan35

Créer un compte ou se connecter pour commenter

Créer un compte

Se connecter

Forums

Naviguer

Activité

Information importante