cad中lisp程序

谁能帮我写cad-1程序？cadZhonglisp-2/如何打包执行appload(ap)命令，将lisp文件添加到启动组列表中，以便软件以后自动加载该文件。如果只是简单的lisp file，可以全部复制到一个lisp file中，如果包含lisp、dcl等文件，需要打包，输入V cad命令行。

手动加载后可以执行这些工具，但是每次使用都要加载，比较麻烦。启动软件时可以加载你常用的插件吗？当然，而且不止一种方法。方法一:添加到启动组CAD的工具插件可以通过appload(ap)命令加载，在弹出的对话框中可以找到启动组程序。不同的CAD不一样。AutoCAD在“启动”组下有一个内容按钮。点击此按钮添加程序陈豪CAD有一个按钮，用于将历史列表中加载的程序添加到启动组。

这有点不现实...LISP现在好像做不到这一点。Lisp不能嵌入图形文件。只要删除了Lisp文件，你想要的功能就无法实现。你想要的这个功能可以通过两种方式实现:1。检查到达时间后，写一个批处理文件删除图档(文件打开后不能删除)，然后在另一个时间用其他方法运行批处理文件。2.打开图形文件时，检查到达时间，然后检查它是否是图形文件，然后运行关闭命令。

(defunc:zbz()(setqcm(getvarcmecho)OS(getvarosmode))(setvarcmecho 0)(command _ undo be)(while(and(setvarosmode 33)(setqp 0(getpoint插入点:)))(if((setqR(getreal compass radius r:))nil)(setqR 5.0))(setqp 1(map car P0(list 0(* r 0.04128)))P2(polar P0(* 292)。(/pi 180.0))P3(。pi 180.0))R)P5(map car P0(list(* 0.3805(/R 5.0))( R 1.0)))(setvarosmode 0)(command _ circle p0r)(command _ pline P1 p 2 p 3 p 4 c)(command _ hatchSOLID(entlast))(command _ text P5(* 1 .

成功加载4、为什么我加载的 cad之 lisp应用 程序无法使用?

后，应该在源代码中的单词defunc:和()后输入字母组合。还有，如果显示列表有缺陷，一个是源代码有错误，一个可能是粘贴不完整。打开cad安装目录，进入支持目录，找到Acad* *。LSP文件(* *表示版本号，如2004、2005、2006)，双击打开，下载你的-1。

；矩形中心线(defunc:jxzxx())(setqcmd(getvarcmecho))(setqosm(getvarosmode))(setvarcmecho 0)(commandundobe)(if(progn(prince，请选择矩形:)。(setqssa(ss get:S ((0 . lw polyline)(90.4)(70.1)))(progn(setqdxf(entget(ssnamessa 0)))(setqpts(map car cdr(vlremoveif (lambda(x)(/(carx)10))DXF)))(setqp 1(apply map car(cons min pts)))(setqp3(apply map car(cons maxpts))))(setqp 2(list(car 3)(/car)

提供思路和一些代码。1.快捷键可以通过(defunc:xxx)实现。2.调用xxx时，可以弹出对话框选择要选择的图形，并将结果放入选择集中。选择@3。关闭0层，打开1层，尝试插入命令。3.关闭1层，打开2层，用插入命令将其插入2层。例如，打开图层1(layer on 1)(Defunlayeron(layer names $/layer list @ name $)(setql layer list @(commonlistlayernames $)(foreach name $ layer list @(if(name $ *)(命令。layert *)。U*ON*)(if(tblsearchlayerName$)(命令。LAYERTName$UName$ONName$SName$)(命令。layer name $))；如果)；如果)；foreach)；defunLayerOn关闭图形0(图层关闭0) (Defunlayeroff(图层名称)。

执行appload(ap)命令，将文件lisp添加到启动组列表中，这样软件以后就可以自动加载该文件了。也可以在i cadautoload.lsp中添加相应的语句，或者在加载对话框中将其添加到启动组中。选择VLISP (f) →生成应用程序程序 (m) →新建应用程序程序向导(n) →然后按照向导提示进行操作。如果只是简单的a lisp文件，可以全部复制到a lisp文件中。如果包含lisp、dcl等文件，需要打包后在cad命令行输入V/123。

(defunc:xx1(/en 1 en 2 en 1 _ dataen 2 _ datap 1 old 2 _ 1 old 2 _ 2pt 2 _ 1pt 2 _ 2pt 2)(setvarcmecho 0)(setqen 1(请为Entsel选择一条直线:))(setqen2(请为Entsel选择一个文本:))获取直线的联合属性列表(setqen 2 _ data(entget(care N2)))；获取文本的联合属性列表(commandjustifytexten 2c)；将文本对齐方式设置为“中”(set qpt 1(assoc 11 en 2 _ data))；获取文本对齐点的坐标(setqold 2 _ 1(cdr(assoc 10 en 1 _ data))；获取直线起点的坐标(setqold 2 _ 2(cdr(assoc 11 en 1 _ data))；得到直线终点的坐标(set qpt 2 _ 1(/( (carol D2 _ 1)(carol D2 _ 2))2)；直线中点的横坐标(setqpt2_2(/( ( cadrol。