[分享]通用函数
本帖最后由 xyp1964 于 2022-3-28 23:36 编辑为简化编程而自定义的函数：xyplib.vlx
---------------------- XYPLIB -------------------------
(load "xyplib.vlx")
;|加载通用函数(可在签名栏直接下载)
如果已经下载xyplib并放到搜索路径下可以不再下载!
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
★1·在acad.lsp中增加(load"xyplib")
■2·在每个程序内增加(load"xyplib")
■3·在command下，输入(load"xyplib")
■4·在菜单.mnl中增加(load"xyplib")
■5·将xyplib.vlx文件直接拽到cad屏幕
★通用函数下载地址：
http://www.xdcad.net/forum/attachment.php?s=&postid=1606661dispbbs.asp?boardID=3&ID=37554&page=1
|;------------------------------------------------------------
原函数库全部作废！
★版本：V.20090128
★版本：V.20080518
★版本：V.20070228
xyp_lib通用函数说明：
V.20060210 (5)
V.20060210 (17)
V.20051231 (27)
V.20051204（27）
V.20051126 (13)
V.20051025（39）
V.20050919（61）
V.20050909（9）
-------------------------------------------------------------------------------
利用以上函数“制造”的“小心地雷”动画程序实例（Esc终止程序）：
(load "xyp_lib");加载通用函数
;|
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
通用函数下载地址:
① http://www.xdcad.net/forum/attachment.php?s=&postid=1606661
② dispbbs.asp?boardID=3&ID=37554&page=1|;
(defun c:xxdl ()
(command "zoom" "w" (list -100 -100) (list 1100 1100))
(while T
(repeat 21
(setq pt (list (sjs 1000) (sjs 1000)))
(drawMine pt)
(command "delay" 200)
(command "delay" 200)
(command "delay" 200)
(drawRedMine pt)
(command "delay" 100)
(dos_sound 3)
(command "delay" 100)
)
(command "delay" 2000)
(dos_sound 3)
(redraw)
(command "delay" 1000)
)
(princ)
)
(princ "XXDL(小心地雷)")
(princ) vlx文件。不知道是赶吗的 是编译过的lsp程序文件。 我该这样用? 我该怎样用? 说得也是,楼主这样别人怎么知道如何使用?如果可以,最好能像如下一样公布:
<A href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=10652" target="_blank" >http://bbs.mjtd.com/forum.php?mod=viewthread&tid=10652</A> 本帖最后由 作者 于 2005-5-30 0:20:57 编辑
一楼“小心地雷”示意：
编译程序：
本帖最后由 作者 于 2005-9-21 21:28:52 编辑 <br /><br /> <P>功能：坐标标注，保留4为小数。</P>
<P>命令：ZB4</P> <P>感觉应该发到这里：</P>
<P><A href="http://www.mjtd.com/mcdown/" target="_blank" >http://www.mjtd.com/mcdown/</A></P> 打不开啊