[求助]：除了用启动组，如何自动加载VLX文件？

lemonx

启动组实在不好用，经常不能自动加载成功
VLX文件能否象ARX一样，通过修改某个文件实现自动加载？
我试过了修改acaddoc.lsp和acad.rx，都没有用

papayaa

自己作一个ACAD.LSP文件，如下所示：

(VMON)
;;;set mode macro
(setvar "CMDECHO" 0)  ;;关闭回显
(setvar "modemacro" (strcat

                            "DS:$(getvar,dimscale)"
                            "  "
                            "LS:$(getvar,ltscale)"
                            "  "
                            "MS:$(getvar,cmdnames)"
                            "  "
                            "CL:$(substr,$(getvar,CLAYER),1,8)"
                            "  "
                            "BZ:$(getvar,DIMSTYLE)"
                            
                           
                     )
)

(setvar "pickbox" 8)      ;;选择框的高度
(SETVAR "WMFBKGND" 0)     ;;控制对象在其他应用程序中的背景显示是否透明
(setvar "UCSFOLLOW" 0)    ;;UCS 不影响视图
(setvar "UCSICON" 0)      ;;ucs关闭，不显示图标
(setvar "zoomfactor" 100) ;;鼠标滑轮最快
(setvar "BLIPMODE" 0)     ;;控制点标记不可见。
(setvar "DRAGMODE" 2)     ;;控制拖动对象的显示－自动
(setvar "dimassoc" 1)     ;;无关联标注对象
(setvar "MIRRTEXT" 0)     ;;MIRROR保持原文字的方向
(setvar "SNAPMODE" 0)     ;;关闭捕捉模式
(setvar "GRIDMODE" 0)     ;;关闭栅格
(setvar "orthomode" 1)    ;;打开“正交”模式
(setvar "osmode" 15359)  ;;对象捕捉全部打开
(setvar "cursorsize" 100)   ;;十字光标的大小
(setvar "pickstyle" 1)    ;;打开组
(setvar "filletrad" 0)    ;;圆角

;;(LOAD "BONUS")
(LOAD "Associate.LSP");;辅助制图
(LOAD "CurtainWall.LSP");;幕墙
(load "BatchPlot.VLX");;批打印
(load "ChTEXT.LSP");;文字工具
(load "ChDASH.LSP");;文字工具
(load "ctt.vlx");;文字大师
(load "vba.lsp");;vba程序
(load "DTR.FAS");;反向剪切
(load "DIM.LSP");;标注工具

;;临时
(load "YBSYS.VLX" "")
(load "c:\\yb.2001\\support\\60cdyt.vlx" "")

(defun c:dq ()
(command "dimcontinue")(princ))

(defun c:gr ()
(command "group")(princ))

xyp1964

将acaddoc.lsp改名为acad.lsp并放到cad搜索路径下。

qjcpj

还可在acad.mnl文件中定义。

zjsuman

你用的是cad什么版本的？

lemonx

2002+tssd2.8剪力墙版

llmin

2楼的办法有效吗？试过说一说好吗？

lemonx

从papayaa共享的acad.lsp中学到了不少东西

许锦华_gHav7

papayaa 发表于 2005-7-17 02:48
自己作一个ACAD.LSP文件，如下所示：

(VMON)

谢谢！学到东西了

kqqt6236

有很多种方法。