怎么在启动CAD时自动加载Lisp的工具和插件

方法1：添加到启动组 CAD的工具插件都可以通过appload(ap)命令来加载，在d出的“加载\卸载应用程序”对话框中，可以找到“启动组”。不同CAD不一样，AutoCAD是在“启动组”下面有一个“内容”按钮，点击此按钮就可以需要启动时自动加载的程序加进去，添加到启动组后，下次启动CAD的时候这些程序就会自动加载。 这种方式比较简单易行，任何 *** 作起来都没有难度。 方法2：在启动的lisp文件加入LOAD语句。 无论是AutoCAD还是国产CAD，启动时都会有一个自动加载的LISP程序，AutoCAD加载的是acadlsp或acadxxxxlisp(xxxx为版本号)，acaddoclsp等（通常在AutoCAD的support目录下），很多CAD病毒正是利用了这一点来加载从而影响CAD的应用。 需要做的就是用记事本打开这些LSP，在里面加上类似下面的语句： (LOAD "x:\\xxxxx\\sp2pllsp") 如果觉得写路径太麻烦，你就可以将程序复制刚才哪些自动加载LISP所在的路径。

;矩形中心线

(defun c:jxzxx()

(setq cmd (getvar "cmdecho"))

(setq osm (getvar "osmode"))

(setvar "cmdecho" 0)

(command "undo" "be")

(If (progn

(princ "请选取矩形:")

(setq ssa (ssget":S" '((0 "lwpolyline") (90 4) (70 1))))

)

(progn

(setq dxf (entget (ssname ssa 0)))

(setq pts (mapcar 'cdr (vl-remove-if '(lambda(x)(/= (car x) 10)) dxf)))

(setq p1 (apply 'mapcar (cons 'min pts)))

(setq p3 (apply 'mapcar (cons 'max pts)))

(setq p2 (list (car p3) (cadr p1)))

(setq p4 (list (car p1) (cadr p3)))

(setq p14m1 (mapcar '(lambda(a b)( 05 (+ a b))) p1 p4))

(setq p14m2 (mapcar '+ p14m1 '(5 0)))

(setq p12m1 (mapcar '(lambda(a b)( 05 (+ a b))) p1 p2))

(setq p12m2 (mapcar '+ p12m1 '(0 5)))

(setq p23m1 (mapcar '(lambda(a b)( 05 (+ a b))) p2 p3))

(setq p23m2 (mapcar '+ p23m1 '(-5 0)))

(setq p34m1 (mapcar '(lambda(a b)( 05 (+ a b))) p3 p4))

(setq p34m2 (mapcar '+ p34m1 '(0 -5)))

(setvar "osmode" 0)

(mapcar '(lambda(pts)

(command "_line" (car pts) (cadr pts) "" "_chprop" (entlast) "" "c" 1 "")

)

(list (list p14m1 p14m2)

(list p12m1 p12m2)

(list p23m1 p23m2)

(list p34m1 p34m2)

)

)

(setq i 1)

(mapcar '(lambda(pt dxy)

(setq pt1 (mapcar '+ pt dxy))

(if (or (= i 1) (= i 3)

(command "_Circle" pt1 15 "_chprop" (entlast) "" "c" 6 "")

(progn

(command "_Circle" pt1 155 "_chprop" (entlast) "" "c" 1 "")

(command "_Circle" pt1 180 "_chprop" (entlast) "" "c" 1 "")

)

)

(setq i (1+ i))

)

(list p1 p2 p3 p4)

(list '(8 8) '(-8 8) '(-8 -8) '(8 -8))

)

)

)

(command "undo" "e")

(setvar "osmode" osm)

(setvar "cmdecho" cmd)

(princ)

)

方法1：添加到启动组 CAD的工具插件都可以通过appload(ap)命令来加载，在d出的“加载\卸载应用程序”对话框中，可以找到“启动组”。不同CAD不一样，AutoCAD是在“启动组”下面有一个“内容”按钮，点击此按钮就可以需要启动时自动加载的程序加进去，添加到启动组后，下次启动CAD的时候这些程序就会自动加载。 这种方式比较简单易行，任何 *** 作起来都没有难度。 方法2：在启动的lisp文件加入LOAD语句。 无论是AutoCAD还是国产CAD，启动时都会有一个自动加载的LISP程序，AutoCAD加载的是acadlsp或acadxxxxlisp(xxxx为版本号)，acaddoclsp等（通常在AutoCAD的support目录下），很多CAD病毒正是利用了这一点来加载从而影响CAD的应用。 需要做的就是用记事本打开这些LSP，在里面加上类似下面的语句： (LOAD "x:\\xxxxx\\sp2pllsp") 如果觉得写路径太麻烦，你就可以将程序复制刚才哪些自动加载LISP所在的路径。

1,用 vlisp 命令打开那个lisp程序,看看这个程序的执行命令是什么,一般是defun C:后面的几个字母

2如果加载成功了,在cad命令行输入程序的执行命令,空格后会有相应的提示要你输入参数或选图形

3如果lisp没有问题的话,按提示做就能画出来

在这里说一下编程思路：

1、用过滤法，做一个选择集，选中图中所有的TK块

2、遍历这个选择集，得到每个图框的左下角坐标与右上角坐标，以及它里边的图号属性值

----同时得到坐标的最大Y值（用来找空的地方）

3、按属性值进行排序，将每个TK的坐标，排好顺序后，按先后次序，移动到“空”的地方

从左到右放置 ，间隔就是你所说的200

4、第3步中，要根据每个TK的坐标，选中TK内的所有实体，然后一起移动

5、唔。。。。差不多就是以上几步

以上就是关于怎么在启动CAD时自动加载Lisp的工具和插件全部的内容，包括:怎么在启动CAD时自动加载Lisp的工具和插件、谁能帮我写个cad的lisp程序、怎么在启动CAD时自动加载Lisp的工具和插件等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！