lsp文件怎么打开?

lsp文件怎么打开?,第1张

.lsp是AutoCAD软件的Lisp脚本文件.

当打开AutoCAD图形dwg文件时会自动运行相同文件夹中的名为acad.lsp的脚本文件。这使得.lsp文件成为计算机病毒在装有AutoCAD软件的电脑之间传播的一种方式。

lsp文件怎么打开:

直接用记事本就可以打开。

直接拖入CAD里就可以加载使用了。或者用APPLOAD命令,找到LSP文件加载。

(defun c:nnn() *

(setq ColorCode (getint "\n请输入字体颜色代码(红1/黄2/绿3/青4/蓝5/紫6/白7):")) *

(command "-layer" "m" "编号" "c" "7" " " "") *

(command "-style""编号""romans""0""0.5""0""n""n""n") *

(command "osmode" "0") *

(command "_color" ColorCode) *

(setq Radius (getdist "\n请输入圆圈半径: ")) *

(setq Num (getint "\n请输入起始编号:")) *

(while (>ColorCode 0) *

(setq CenterPt (getpoint "\n请指定下一个点: ")) *

(if CenterPt *

(progn *

(command "circle" CenterPt Radius) *

(command "text" "j" "m" CenterPt (* 1.2 Radius) "0" Num) *

(setq Num (+ Num 1)) *

) *

(setq ColorCode 0) *

) *

)

(command "-layer" "m" "0" "c" "7" " " "")

(command "-style""standard""宋体""0""1""0""n""n""n")

(command "color" "bylayer")

(command "osmode" "699")

(princ)

)

*******************************************

************以下为新建圆形视口程序*************

(defun c:wc()

(setq CenPt (getpoint "\n请指定圆心: "))

(setq SenPt (getpoint CenPt "\n请指定圆周点: "))

(command "-vports" "p" SenPt "a" "ce" CenPt "a" 359.99999 SenPt "cl")

(princ)

)

*******************************************

(defun c:tt()

(command "undo" "1" )

(princ)

)

(prompt "\n<<NNN>>")

(prin1)

看这个行不行。把代码复制到记事本,扩展名改为*.lsp 打开CAD,工具-->AutoLISP-->加载 加载保存的lsp文件 然后在命令行打nnn 就可以使用了》

能用的话记得加分哦 o(∩_∩)o...


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/yw/8145258.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-04-13
下一篇 2023-04-13

发表评论

登录后才能评论

评论列表(0条)

保存