资源预览内容
第1页 / 共3页
第2页 / 共3页
第3页 / 共3页
亲,该文档总共3页全部预览完了,如果喜欢就下载吧!
资源描述
加载CAD中.LSP程序的方法1.打开CAD,输入AP命令,加载下载的LSP程序 2.点击AP加载对话框点右下角的方框 “启动组” ,这样才能保证每次打开CAD都能有LSP的文件,不需每次重新加载。3、然后你就可以用快捷键1、2、3、4、5调出相应的图层了。代码说明:(defun JJT_chlayer (JJT_layer / JJT_S)(if (null (tblsearch LAYER JJT_layer) (entmake (list (0 . LAYER) (100 . AcDbSymbolTableRecord) (100 . AcDbLayerTableRecord) (cons 2 JJT_layer) ; (70 . 0) ; (62 . 7) ; (6 . bylayer) ; ) ) )(setq JJT_S (cadr (ssgetfirst)(if JJT_S (command CHPROP JJT_S la JJT_layer c bylayer ) (setvar clayer JJT_layer) )(princ)(defun c:1 ()(JJT_chlayer 粗实线) 红色的为图层名字,设置和你自己设置的图层名字一样,加载这串代码的时候,会自动套上快捷键。图层线型,颜色等你可以在CAD图层中设置,不用管代码。)(defun c:2 ()(JJT_chlayer 细实线)(defun c:3 ()(JJT_chlayer 中心线)(defun c:4 ()(JJT_chlayer 标注层)(defun c:5 ()(JJT_chlayer 剖面线)(defun c:5 ()(JJT_chlayer 虚线)如果还想添加线型,只需复制这串代码再修改下名字即可。把以下代码用记事本另存为.txt格式,再把后缀改为.lsp,然后加载它就可以。(defun JJT_chlayer (JJT_layer / JJT_S)(if (null (tblsearch LAYER JJT_layer) (entmake (list (0 . LAYER) (100 . AcDbSymbolTableRecord) (100 . AcDbLayerTableRecord) (cons 2 JJT_layer) ;图层名称 (70 . 0) ;图层状态 (62 . 7) ;图层颜色 (6 . bylayer) ;图层线型) ) )(setq JJT_S (cadr (ssgetfirst)(if JJT_S (command CHPROP JJT_S la JJT_layer c bylayer ) (setvar clayer JJT_layer) )(princ)(defun c:1 ()(JJT_chlayer 粗实线)(defun c:2 ()(JJT_chlayer 细实线)(defun c:3 ()(JJT_chlayer 中心线)(defun c:4 ()(JJT_chlayer 标注层)(defun c:5 ()(JJT_chlayer 剖面线)(defun c:5 ()(JJT_chlayer 虚线)
网站客服QQ:2055934822
金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号