AutoCAD的安装目录以及下面的Support目录里只要是Acad开头的文件,在启动时都会自动加载。
我们可以利用一个万能的Acad.lsp文件做自动加载的工作,
把想要自动加载的那些Autolisp插件分别加在这个文件里,
例如有三个插件aaa.lsp, bbbb.lsp, ccccc.lsp准备要自动加载
那么利用文字编辑器(例如记事本),开启既有的acad.lsp文件
(假如找不到这个文件就自己建立一个新的acad.lsp)
在文件里最后面加进三行陈述式
(load "aaa")
(load "bbbb")
(load "ccccc")
保存这个文件,这个文件最好直接放在AutoCAD的安装拍郑目录下。
接着是重要的一步,在AutoCAD下拉菜单Tools >Options,开启设置面板,你会看到有一整排设置标签,我一下子不记得是哪一个标签下,有个选项,勾选了以后就会在每渗氏次开启一个图形文件时就自动载入这个acad.lsp文件。
由于acad.lsp在被载入时会自动运行,因而它里面所有的陈述式都会被Lisp interpreter执行一次,也就把aaa.lsp, bbbb.lsp, ccccc.lsp这三个插件自动载入啦!
我在写Autolisp插件程序时会应用很多技巧,除了分门别类的放置这些插件与相关的图像按钮或者Subroutines等等,也会利用Acad.lsp自动设定不同图形的工作环境和各袭喊颂种参数等等,这里不多说这些。只跟您说把aaa.lsp, bbbb.lsp, ccccc.lsp这些插件以及跟其相关的东西包括这个acad.lsp都复制到AutoCAD的安装目录下,就能在每开启一个图形时自动顺利载入了。
(defun os2 () (setvar "cmdecho" 0) (setvar "osmode" (+ 0 1 2 4 8 16 32 128 256 512 1024 2048)) (setvar "cmdecho" 1) (prin1) )40310 NON(无)枯闹拿1 END(端点)2 MID(中点)4 CEN(圆心)8 NOD(节点)16 QUA(象限点)32 INT(弯升交点)
64 INS(插入点)128 PER(垂足)256 TAN(切点)512 NEA(最近没搭点)1024 QUI(快速)2048 APP(外观交点)4096 EXT(尺寸线)8192 PAR(平行)
(defun c:s () (os2) )
(os2)
根据说明,按需更改捕捉设置,(+ 0 1 2)就表示:捕捉端点及中点。(+ 0 4)就表示捕捉圆心。
复制以上代码到记事本,以【.lsp】为后缀命名,如【捕捉设置.lsp】。
打开cad,输入命令【appload】,加载autolisp程序,注意启动组保存路径。
重新打开AutoCAD后,就可以自动改变cad捕捉设置为你需要的。在使用过程中,想要改变捕捉为你需要的,输入(命令【S】+空格),就可以改变捕捉。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)