[分享]通用函数

xyp1964 · 发表于 2005-5-28 21:37:00

本帖最后由 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屏幕
★通用函数下载地址：[/COLOR]
http://www.xdcad.net/forum/attachment.php?s=&postid=1606661 dispbbs.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)

(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") 
通用函数下载地址: 
① <a href="http://www.xdcad.net/forum/attachment.php?s=&postid=1606661" target="_blank">http://www.xdcad.net/forum/attachment.php?s=&postid=1606661</a> 
② 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)

bitterwood · 发表于 2005-5-28 21:46:00

vlx文件。不知道是赶吗的

xyp1964 · 发表于 2005-5-28 21:50:00

是编译过的lsp程序文件。

jans · 发表于 2005-5-29 10:28:00

我该这样用?

jans · 发表于 2005-5-29 10:29:00

我该怎样用?

meflying · 发表于 2005-5-29 16:30:00

说得也是,楼主这样别人怎么知道如何使用?如果可以,最好能像如下一样公布: http://bbs.mjtd.com/forum.php?mod=viewthread&tid=10652

xyp1964 · 发表于 2005-5-29 23:45:00

本帖最后由作者于 2005-5-30 0:20:57 编辑

一楼“小心地雷”示意：

编译程序：

xyp1964 · 发表于 2005-7-19 23:00:00

本帖最后由作者于 2005-9-21 21:28:52 编辑

功能：坐标标注，保留4为小数。

命令：ZB4

meflying · 发表于 2005-7-20 15:07:00

感觉应该发到这里：

http://www.mjtd.com/mcdown/

and2008 · 发表于 2005-8-29 18:27:00

打不开啊

账号		自动登录	找回密码
密码			注册

[资源] [分享]通用函数

本帖子中包含更多资源

本帖子中包含更多资源