[编程申请]：lisp编程者必读

wb0815

该文件摘自“明经通道为了和大家更好的学习lisp打下坚实的基础”同时赚一点爱心币。谢谢大家的捧场。*-*c

lucky614

那么好吗下一个试试

wb0815

lisp和arx编程者必备之佳品。绝对有用。

nore

看你是刚来的，支持一下
看了这个就能学会lisp编程吗？没这么详细吧

xcajcj

AutoCAD环境变量详解全集
系统相关
明经通道 版权所有 未经同意 不得复制

(getenv "Path") ; 字符串-系统搜索路径

(getenv "COMSPEC") ; 字符串-Cmd.exe路径

(getenv "UserName");字符串-用户登录名称

(getenv "Temp") ; 字符串-临时路径

(getenv "TMP") ; 字符串-临时路径

(getenv "ComputerName");字符串-计算机名

(getenv "Windir") ; 字符串-Windows路径

(getenv "OS") ; 字符串-操作系统

(getenv "UserProfile");字符串-当前用户配置文件路径

(getenv "Pathext") ; 字符串-执行语句扩展名

(getenv "SystemDrive");字符串-系统驱动器

(getenv "SystemRoot");字符串-系统根路径

(getenv "MaxArray");整数-最大排列

常规
明经通道 版权所有 未经同意 不得复制

(getenv "ACAD") ; 字符串-支持搜索路径

(getenv "ANSIHatch");字符串-用于ANSI设置的图案文件1)

(getenv "ANSILinetype");字符串-用于ANSI设置的线型文件1)

(getenv "ISOHatch");字符串-用于ISO设置的图案文件1)

(getenv "ISOLinetype");字符串-用于ISO设置的线型文件1)

(getenv "StartUpType");字符串-当前缺省启动对话框

(getenv "acet-MenuLoad");字符串-加载的Express工具菜单

(getenv "Measureinit");字符串-MEASUREINIT：初始图形单位（英制或公制）。另外，MEASUREINIT 控制打开现有图形时要用到哪个填充图案和线型文件。并控制使用哪一个模板。

(getenv "InsertUnitsDefSource");整数-INSUNITSDEFSOURCE：源内容的单位值。有效范围是从 0 到 20。

(getenv "InsertUnitsDefTarget");整数-INSUNITSDEFTARGET：目标图形的单位值有效范围是从 0 到 20。

(getenv "acet-Enable");字符串-Express工具是否可用

(getenv "LastTemplate");字符串-最后使用的DWT

(getenv "AcetRText:type");字符串-用于RTEXT "Diesel"的当前缺省

(getenv "Pickstyle");整数- Pickstyle：编组选择和关联填充选择的使用

(getenv "Coords") ;整数- Coords：状态栏上的坐标更新时间

(getenv "ShowProxyDialog");整数：代理对象对话框的显示

(getenv "Osmode") ;整数- Osmode：“对象捕捉”的运行模式

(getenv "EdgeMode");整数- EdgeMode：TRIM 和 EXTEND 命令确定剪切边和边界的方式

(getenv "PAPERUPDATE");整数- PAPERUPDATE：如果试图以不同于打印配置文件默认指定的图纸大小打印布局时警告对话框的显示方式。

(getenv "ACADPLCMD");字符串-打印机命令字符串的

(getenv "ImageHighlight");整数- IMAGEHLT：亮显整个光栅图像还是光栅图像边框

(getenv "Attdia") ;整数- Attdia：INSERT 命令是否使用对话框用于属性值的输入

(getenv "Attreq") ;整数- Attreq：确定 INSERT 命令在插入块时是否使用默认属性设置

(getenv "Delobj") ;整数- Delobj：删除对象时对象将从图形数据库中删除还是保留在图形数据库中

(getenv "Dragmode");整数- Dragmode：拖动对象的显示方式

(getenv "UseMRUConfig");整数

(getenv "PLSPOOLALERT");整数

(getenv "PLOTLEGACY");整数

(getenv "PSTYLEPOLICY");整数

(getenv "OLEQUALITY");整数

(getenv "Anyport") ;整数

(getenv "Validation Policy");整数

(getenv "Validation Strategy");整数

(getenv "CommandDialogs");整数CMDDIA

(getenv "TempDirectory");字符串-临时目录

(getenv "PlotSpoolerDirectory");字符串-假脱机目录

(getenv "DefaultLoginName");字符串-缺省登录

(getenv "MenuFile");字符串-缺省菜单路径

(getenv "NetLocation");字符串-缺省

(getenv "ACADDRV") ;字符串-驱动程序路径

(getenv "ACADHELP");字符串-帮助路径

(getenv "PrinterConfigDir");字符串-打印机配置路径

(getenv "PrinterStyleSheetDir");字符串-打印样式表路径

(getenv "PrinterDescDir");字符串-打印机驱动程序路径

(getenv "NewStyleSheet");字符串-缺省的 .stb/.ctb 文件

(getenv "DefaultFormatForSave");整数-缺省的保存版本格式

(getenv "DefaultConfig");字符串-缺省的 pc3

(getenv "LastModifiedConfig");字符串-最后使用的 pc3

(getenv "MRUConfig");字符串-pc3?

(getenv "ACADLOGFILE");字符串-日志文件

(getenv "MaxDwg") ;整数

(getenv "AVEMAPS") ;字符串-材质文件路径

(getenv "TemplatePath");字符串-模板路径

(getenv "DatabaseWorkSpacePath");字符串-数据链接路径

(getenv "DefaultPlotStyle");字符串-如"ByLayer"

(getenv "DefaultLayerZeroPlotStyle");字符串-如"Normal"

(getenv "LineWeightUnits");整数

(getenv "LWDEFAULT");整数-缺省的线宽

(getenv "CustomColors");整数

(getenv "Blipmode");整数

(getenv "ToolTips");字符串

1) 被 MEASUREINIT 和 MEASUREMENT系统变量使用

编辑器配置
明经通道 版权所有 未经同意 不得复制

(getenv "SDF_AttributeExtractTemplateFile");字符串-??

(getenv "AutoSnapPolarAng");字符串-POLARANG

(getenv "AutoSnapPolarDistance");字符串-POLARDIST

(getenv "AutoSnapPolarAddAng");字符串-POLARADDANG

(getenv "AutoSnapControl");整数- AUTOSNAP

(getenv "AutoSnapTrackPath");整数 TRACKPATH

(getenv "PickBox") ;整数 PICKBOX

(getenv "AutoSnapSize");整数

(getenv "PickFirst");整数- PICKFIRST

(getenv "PickAuto");整数- PICKAUTO

(getenv "MenuOptionFlags");整数- MENUCTL

(getenv "FontMappingFile");字符串

(getenv "LogFilePath");字符串

(getenv "PSOUT_PrologFileName");字符串

(getenv "MainDictionary");字符串

(getenv "CustomDictionary");字符串

(getenv "MTextEditor");字符串

(getenv "XrefLoadPath");字符串

(getenv "SaveFilePath");字符串

(getenv "AcadLspAsDoc");字符串

图形窗口

(getenv "Background");整数-背景颜色

(getenv "Layout background");整数-图纸空间背景颜色

(getenv "XhairPickboxEtc");整数-十字光标颜色

(getenv "LayoutXhairPickboxEtc");整数-图纸空间十字光标颜色

(getenv "Autotracking vector");整数-自动追踪矢量颜色

(getenv "MonoVectors");整数

(getenv "FontFace");字符串-屏幕菜单

(getenv "FontHeight");整数

(getenv "FontWeight");整数

(getenv "FontItalic");整数

(getenv "FontPitchAndFamily");整数

(getenv "CursorSize");整数

(getenv "HideWarningDialogs");整数:00000008 <- hit

(getenv "SDIMode") ;整数:00000000 <- hit

命令行窗口
明经通道 版权所有 未经同意 不得复制

(getenv "CmdLine.ForeColor");整数

(getenv "CmdLine.BackColor");整数

(getenv "TextWindow.ForeColor");整数

(getenv "TextWindow.BackColor");整数

(getenv "CmdLine.FontFace");字符串

(getenv "CmdLine.FontHeight");整数

(getenv "CmdLine.FontWeight");整数

(getenv "CmdLine.FontItalic");整数

(getenv "CmdLine.FontPitchAndFamily");整数

(getenv "TextWindow.FontFace");字符串

(getenv "TextWindow.FontHeight");整数

(getenv "TextWindow.FontWeight");整数

(getenv "TextWindow.FontItalic");整数

(getenv "TextWindow.FontPitchAndFamily");整数

bridgewind

这样的就别收费了。。。。

tllxp

谢谢 还是老乡呢

建筑大师

能在这里与同行一起讨论,真是幸运啊.希望大家把好的方法提供,让同行们一起分享吧.

nasa

不错的，自己边的时候就好了

gzlpwyyy

多谢分享