;去掉多段线节点(defunc:tes(/&kw1entnobjp1ss1ss5x)(vl-load-com)(if(and(setqent(entsel"\n请选择多段线对象"))(setqent(carent))(=(cdr(assoc0(entgetent...

(vl-load-com);加载VBA函数(setqobj(vlax-ename->vla-objectent));obj对象(vla-GetBoundingBoxobj'&p1'&p2);得到包围框(setq&p1(vlax-safearray->list&p1));得到右下角坐标(setq&p2...

(arxloadarx))(checkver)新建一文本文件,将以上代码复制进去,存为checkver.lsp后,将它加入到cad的启动加载程序列表中,即可."xxx"为对应的arx文件,若文件不存在于cad的搜索路径中,则需将完整文件路径名也写上....

第一个程序，程序找到了天正文件，程序会中断，或者无限循环。第二个程序，会把天正文件也删除。"C:\\Tangent\\TWT9\\sys\\acaddoc.lsp";少了一个【\】。最好的方法就是找到文件，然后修改文件名。然后检查是否有天正...

;___(defunttt(ssn/m)(setqeeens(ssadd))(while(setqee(entnextee))(setqns(ssaddeens)))(command"erase"ns"")(command"copy"ss"""m""non"p1)(setqm0)

输入Vlide，在编辑里面新建一个新LISP文件，把所有的LISP连接复制粘贴到里面，另存一个自己使用名字，否则先加载的无效!lsp文件在cad里有个support文件夹下比如acad2007.lsp文件（我用的是2007版本的），在后面加一行你写的...

接在那一句后面写，加一个pause，就可以输入直径，输入完回车，命令会继续向下执行。

做一个图框即可，LSP文件要有两个功能1、判断框选范围的高宽比(确定图框是横向插入还是竖向插入)2、确定图框的插入比例以上都可以通过获取框选时的两个点的X,Y坐标做些加减乘除的运算得出最后调用插入命令即可实现...

1、输入命令appload并空格。2、路径中找到并选中lsp文件点击加载。3、点击始终加载。4、加载成功后，点击内容。5、点击添加在选择一遍lsp文件，点击关闭使用即可。

(defunc:aar()(princ"\n选择要阵列的对象")(setqss(ssget))(setqrs(getreal"\n请输入行矩:<3000.0>"))(if(nullrs)(setqrs3000))(setqrl(getint"\n请输入行数:<10>"))(if(...