你可以复制和粘贴,如下面的例子,或者你可以下载一个*.LSP的文件。开始你需要使用记事本, 因为AutoLISP *.LSP的文件只是普通的文本文件。看其他人的编写的AutoLISP语言代码是一个很好的学习方法,网上有很多提供.LSP的文件下载的。
基本过程是非常简单,如下。 有3个主要步骤(或如果有*.LSP的文件仅仅需要2步),创建lisp文件,加载lisp文件和日常运行lisp程序。
注:AutoLISP语言例程将只在完整版本的AutoCAD运行,他们不会在AutoCAD LT版本运行。
创建lisp文件
复制程序代码并粘贴到Windows中的记事本。
(defun c:zone ( / ss la rv i tv op en)
(while (not ss)
(princ “nPick any object on the required layer: “)
(setq ss (ssget)))
(initget “Length Area”)
(setq rv (getkword “nWould you like to measure Length/Area <Area>: “))
(and (not rv)
(setq rv “Area”))
(setq la (cdr (assoc 8 (entget (ssname ss 0))))
ss (ssget “X” (list (cons 0 “*POLYLINE”)
(cons 8 la)))
i (sslength ss)
tv 0
op 0)
(while (not (minusp (setq i (1- i)))) #p#分页标题#e#
(setq en (ssname ss i))
(command “_.AREA” “_E” en)
(cond ((= rv “Length”)
(setq tv (+ tv (getvar “PERIMETER”))))
(T
(setq tv (+ tv (getvar “AREA”)))
(if (/= (logand (cdr (assoc 70 (entget en))) 1) 1)
(setq op (1+ op))))))
(princ (strcat “nTotal “ rv
” for layer “ la
” = “ (rtos tv 2 2)
” in “ (itoa (sslength ss)) ” polylinesn”
(if (/= rv “Length”)
(strcat (itoa op) ” with open polylines”) “”)))
(prin1))
现在保存文件为zone.lsp,给予它适当的文件名,并确保它有一个.LSP的文件扩展名。
加载lisp文件
打开AutoCAD选择菜单Tools——AutoLISP——Load Application….弹出对话框(如下图所示):#p#分页标题#e#
使用下面的操作来加载已保存lisp文件:
- 找到该lisp文件已保存的文件夹。
- 从列表中选择所需的文件。
- 单击 Load按钮。如果一切顺利,将出现一条消息说“*.lsp成功载入”。
- 单击Close按钮关闭对话方块。
运行AutoLISP程序
一旦lisp文件被加载,它可以在命令行运行。在运行时只需输入命令的名称(而不是文件名)。在lisp文件中开始是 (defun c:zone ,所以在命令行输入zone。
相关文章
- 2021-09-08BIM技术丛书Revit软件应用系列Autodesk Revit族详解 [
- 2021-09-08全国专业技术人员计算机应用能力考试用书 AutoCAD2004
- 2021-08-30从零开始AutoCAD 2014中文版机械制图基础培训教程 [李
- 2021-08-30从零开始AutoCAD 2014中文版建筑制图基础培训教程 [朱
- 2021-08-30电气CAD实例教程AutoCAD 2010中文版 [左昉 等编著] 20
- 2021-08-30高等院校艺术设计案例教程中文版AutoCAD 建筑设计案例
- 2021-08-29环境艺术制图AutoCAD [徐幼光 编著] 2013年PDF下载
- 2021-08-29机械AutoCAD 项目教程 第3版 [缪希伟 主编] 2012年PDF
- 2021-08-29机械制图与AutoCAD [李志明 主编] 2014年PDF下载
- 2021-08-29机械制图与AutoCAD [陶素连,周钦河 主编] 2013年PDF下