---

Hallo,

kann jemand mir sagen wo ich eine Liste von Acad System Environment Variables bekomme? z.B. Acad, MaxArray, etc.?

Code:

---

(getenv)

---

und

Code:

---

(setenv)

---

in der AutoCAD Hilfe bringt mir nicht weiter.

Mike

------------------
Gruß,
Mike

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Mike

bei ACAD2K ist in der hilfe die übersicht der Systemvariablen (einfach bei suchen 'Systemvariablen' und 'übersicht' eintippen )

Meinst du diese ?????

------------------
Hope this Helps

Gruß

Michi 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Mike,
habe in den Autodesk Newsgroups folgendes Lisp gefunden, das Dir unter anderem auch den Status von Umgebungsvariablen ausgibt. Vielleicht hilfts schon mal weiter. Ansonsten müsstest Du Dich durch Deine Registry graben.

(defun checkvars (/ varlist echo env var bads getvars getenvs both)
  (setq varlist '("PlotSpoolerNode"     "PlotSpoolerDirectory"
  "AutoSaveFile"     "TempDirectory"
  "DefaultPlotToFile"     "ModeBits"
  "AlarmOnError"     "ActiveAssistance"
  "PROXYWEBSEARCHNUMBER"
  "Use TODAY as Startup dialog"
  "ShowFullPathInTitle"     "LayoutRegenControl"
  "SnapType"     "ShowHyperlinkCursor"
  "ShowHyperlinkToolTip"    "ShowPaperSize"
  "ObjectARXSupportPath"    "ObjectDBXSupportPath"
  "ExplorerInsertUnits"     "LineWeightDisplayScale"
  "MRUFilesToList"     "HideWarningDialogs"
  "DatabaseTablesOpenMode"  "SQLIndexInDwg"
  "InsertUnitsDefTarget"    "InsertUnitsDefSource"
  "Measureinit"     "AssignInsertUnits"
  "LoadPaletteBySession"    "ShowOleScaleDialog"
  "ImageHighlight"     "AutoSnapPolarAddAng"
  "LogFilePath"     "SaveFilePath"
  "OffsetCurveGapType"     "UcsIconNonActiveColor"
  "UcsIconActiveColor"     "UcsIconLineWidth"
  "UcsIconCone"     "UcsIconSize"
  "UcsIcon3d"     "UCSAxisAng"
  "UCSView"     "UCSOrtho"
  "XFadeCtl"     "DisableTrueColor"
  "Trimmode"     "CheckDrawingSignature"
  "PrinterDescDir"     "PrinterStyleSheetDir"
  "PrinterConfigDir"     "ShowPrintBorder"
  "ShowPaperMargins"     "ShowPaperBackground"
  "CreateViewports"     "ShowPlotSetup"
  "ShowRuler"     "ShowTabs"
  "DefaultFormatForSave"    "LineWeightUnits"
  "WHIPTHREAD"     "WhipThreadEnable"
  "WhipArcEnable"     "DefaultLayerZeroPlotStyle"
  "DefaultPlotStyle"     "HatchAlertDisabled"
  "DatabaseWorkSpacePath"  "TemplatePath"
  "MaxArray"     "EdgeMode"
  "MaxHatch"     "HatchType"
  "PlineType"     "AVEMAP"
  "ImportPathInfo"     "CursorSize"
  "ShowProxyGraphics"     "ShowProxyDialog"
  "ARXDemandLoad"
  "TextWindow.FontPitchAndFamily"
  "TextWindow.FontItalic"  "TextWindow.FontWeight"
  "TextWindow.FontHeight"  "TextWindow.FontFace"
  "CmdLine.FontPitchAndFamily"
  "CmdLine.FontItalic"     "CmdLine.FontWeight"
  "CmdLine.FontHeight"     "CmdLine.FontFace"
  "FontPitchAndFamily"     "FontItalic"
  "FontWeight"     "FontHeight"
  "FontFace"     "MonoVectors"
  "Plot preview background" "Autotracking vector"
  "LayoutXhairPickboxEtc"  "XhairPickboxEtc"
  "TextWindow.BackColor"    "TextWindow.ForeColor"
  "CmdLine.BackColor"     "CmdLine.ForeColor"
  "Layout background"     "Background"
  "MaxDwg"     "CustomColors"
  "CmdHistLines"     "CmdVisLines"
  "MaxApp"     "ToolTips"
  "Scrollbars"     "UseMenuHeader"
  "AcadClassic"     "SDIMode"
  "NoStartUpDialog"     "DemandLoadingModeler"
  "ScreenMenu"     "DigitizerArbitration"
  "BmpOutCompression"     "LogFileOpen"
  "ACADLOGFILE"     "LOGFILE"
  "UserName"     "ACADALTMENU"
  "ACADLspAsDoc"     "AutoSnapTrackPath"
  "AutoSnapPolarDistance"  "AutoSnapPolarAng"
  "AutoSnapPolarMode"     "AutoSnapShowAperture"
  "AutoSnapSize"     "AutoSnapColor"
  "OleHide"     "XrefLoadPath"
  "Trim&ExtendProjectMode"  "MaxOctTreeNodesToAllocate"
  "PostscriptQuality"     "PickFirst"
  "PickDrag"     "PickBox"
  "PickAuto"     "PickAdd"
  "GripSize"     "GripHot"
  "GripColor"     "GripBlock"
  "Grips"     "EntityExtentVariant"
  "AuditControlFlags"     "MenuOptionFlags"
  "XrefControlFlags"     "DisableGraphicsTextArea"
  "SDF_AttributeExtractTemplateFile"
  "ObjectSnapCursorSize"
  "StatusLine&CoordinateDisplay"
  "RasterPreview"     "PlotRotationMode"
  "QAFlags"     "CommandDialogs"
  "FileDialog"     "RtDisplay"
  "ZoomFactor"     "UseContextMenus"
  "ContextMenus"     "MiddleButtonPan"
  "OsnapCoord"     "XrefLazyLoadMode"
  "TextFill"     "MTextEditor"
  "CustomDictionary"     "MainDictionary"
  "PSOUT_PrologFileName"    "AutomaticSaveMinutes"
  "DisableScreenMenuArea"  "MaxSortEntries"
  "FontMappingFile"     "EmergencyFont"
  "NetLocation"     "IsaveBackupDwg"
  "IsavePercent"     "MenuFile"
)
  )
  (defun echo (fun item / value vtype)
    (setq value (fun item)
  vtype (type value)
    )
    (if (= vtype 'LIST)
      (setq vtype (mapcar 'type value))
    )
    (princ item)
    (princ " ")
    (prin1 vtype)
    (if (vl-position item both)
      (princ " (both)")
    )
    (terpri)
  )
  (foreach item varlist
    (if (setq env (getenv item))
      (setq getenvs (cons item getenvs))
    )
    (if (setq var (getvar item))
      (setq getvars (cons item getvars))
    )
    (cond ((and (not env) (not var)) (setq bads (cons item bads)))
  ((and env var) (setq both (cons item both)))
    )
  )
  (princ (strcat "\nACADVER="
(getvar "acadver")
" _VERNUM="
(getvar "_vernum")
)
  )
  (princ "\n\nItems found via (getenv):\n")
  (if getenvs
    (foreach item (acad_strlsort getenvs) (echo getenv item))
    (write-line "None")
  )
  (princ "\nItems found via (getvar):\n")
  (if getvars
    (foreach item (acad_strlsort getvars) (echo getvar item))
    (write-line "None")
  )
  (princ "\nItems NOT found:\n")
  (if bads
    (mapcar 'write-line (acad_strlsort bads))
    (write-line "None")
  )
  (princ)
)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

@Shame

Sorry, aber was Du meinst sind die Variabeln, die man mit (getvar) abrufen kann. Aber für Deine Mühe bekommst Du Unities! 

@CADchup

Sowas habe ich gesucht! Unities! 

Gibt es irgenwo ausführlicher Dokumentation darüber?
(Ich habe noch Unities zu verteilen) 

------------------
Gruß,
Mike

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP