autocad快速加载

AutoLISP不需要弄掉，是文件程序。

autolisp文件的具体解释：

AutoLISP是由Autodesk公司开发的一种LISP程序语言，LISP是List Processor的缩写。通过autolisp编程。

可以节省工程师很多时间。AutoLISP语言作为嵌入在AutoCAD内部的具有智能特点的编程语言，是开发应用AutoCAD不可缺少的工具。

扩展资料：

AutoLISP此函数（+）计算加号（+）右边所有数字的和(+ num1 num2 num3…)。这些数字可以是整数或实数。如果均为整数，则和为整数；

如果均为实数，则和为实数。但是如果既有整数又有实数，则和为实数。如下所示，在前两个例子中，所有数字均为整数，所以结果是整数。在第三个例子中，一个是实数（50.0），故结果为实数。

autolisp语言编辑

autolisp程序可以用记事本打开，在里面【(defun c:命令 ()】,这个命令可以修改，也就是运行程序命令。

打开cad，输入命令【appload】加载程序，并加入【启动组】，这样以后打开cad就可以使用，不用重复加载。

由于插件编写的习惯不同，功能也略有不同。输入插件命令后，一般命令行会有提示，按提示操作。

(defun c:tes ( / ang k1 l n n1 n2 obj p1 p2)等分直线并绘制800长度的垂直直线

 (vl-load-com)

 (initget 6)

 (if (and

  (setq n (getint ”\n请输入等分数值”))

  (setq k1 (entsel ”\n请选择直线”))

  (setq k1 (car k1))

  (= (cdr (assoc 0 (entget k1))) ”LINE”)

  (setq obj (vlax-ename-&gtvla-object k1))

  (setq ang (+ (* pi 0.5) (vla-get-angle obj)))

     )

  (progn

   (setq L (vlax-curve-getEndParam obj) n1 1.0)

   (repeat (- n 1)

    (setq n2 (/ (* L n1) n))

    (setq p1 (vlax-curve-getPointAtDist obj n2))

    (setq p2 (polar p1 ang 400) p1 (polar p1 ang -400))

    (entmake (list ‘(0 . ”LINE”) ‘(62 . 1) (cons 10 p1) (cons 11 p2)))

    (setq n1 (1+ n1))

   )

  )

 )

 (princ)

)

以上就是关于autocad快速加载 autolisp文件是什么全部的内容，如果了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！

更多相关资讯