导航:首页 > 编程语言 > win10保存lisp程序

win10保存lisp程序

发布时间:2023-09-07 11:26:01

Ⅰ 如何使用AutoLISP语言例程

AutoLISP语言是AutoCAD的内置的编程语言。 它可以用来创建新的命令或重新定义现有的。AutoLISP语言是一个非常强大的定制工具。本文旨在说明如何加载AutoLISP语言。

你可以复制和粘贴,如下面的例子,或者你可以下载一个*.LSP的文件。开始你需要使用记事本, 因为AutoLISP *.LSP的文件只是普通的文本文件。看其他人的编写的AutoLISP语言代码是一个很好的学习方法,网上有很多提供.LSP的文件下载的。

基本过程是非常简单,如下。 有3个主要步骤(或如果有*.LSP的文件仅仅需要2步),创建lisp文件,加载lisp文件和日常运行lisp程序

注:AutoLISP语言例程将只在完整版本的AutoCAD运行,他们不会在AutoCADLT版本运行。

创建lisp文件

复制程序代码并粘贴到Windows中的记事本。

(defunc:zone(/ss la rv i tv op en)

(while(notss)

(princ" Pick any object on the required layer: ")

(setqss(ssget)))

(initget"Length Area")

(setqrv(getkword" Would you like to measure Length/Area <Area>: "))

(and(notrv)

(setqrv"Area"))

(setqla(cdr(assoc8(entget(ssnamess0))))

ss(ssget"X"(list(cons0"*POLYLINE")

(cons8la)))

i(sslengthss)

tv0

op0)

(while(not(minusp(setqi(1-i))))

(setqen(ssnamess i))

(command"_.AREA""_E"en)

(cond((=rv"Length")

(setqtv(+tv(getvar"PERIMETER"))))

(T

(setqtv(+tv(getvar"AREA")))

(if(/=(logand(cdr(assoc70(entgeten)))1)1)

(setqop(1+op))))))

(princ(strcat" Total "rv

" for layer "la

" = "(rtostv22)

" in "(itoa(sslengthss))" polylines "

(if(/=rv"Length")

(strcat(itoaop)" with open polylines")"")))

(prin1))

现在保存文件为zone.lsp,给予它适当的文件名,并确保它有一个.LSP的文件扩展名。

加载lisp文件

打开AutoCAD选择菜单Tools——AutoLISP——Load Application….弹出对话框(如下图所示):

load unload apps

使用下面的操作来加载已保存lisp文件:

阅读全文

与win10保存lisp程序相关的资料

热点内容
丧尸电视剧哪个app看 浏览:196
电脑版上传视频找不到文件在哪 浏览:164
javastringtemplate 浏览:594
联想启天m7300能升级内存吗 浏览:698
精雕怎么打开图片文件 浏览:161
ug编程镗孔g76如何使用 浏览:719
7岁到18岁少儿编程学什么 浏览:413
mac文件怎么打印 浏览:756
农药登记许可证查询哪个网站 浏览:857
素材站用什么网站系统 浏览:173
ug如何用铰刀编程 浏览:647
三国志版本介绍 浏览:260
情侣用的定位app有哪些 浏览:244
怎么清楚苹果手机的健身数据 浏览:988
淘宝美工教程自学网 浏览:452
父子2006未删减版本 浏览:872
包头谁卖苹果6 浏览:504
化工企业停工有哪些文件通知要求 浏览:878
下载软件后文件夹在桌面 浏览:397
word文字编组 浏览:167

友情链接