[分享]：干活干的很辛苦，整一段程序恶搞一下。

841594 · 发表于 2005-10-20 14:05:45

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

搞怪的删除程序：让删除的物体翻滚着离开。

xyp1964 · 发表于 2005-10-20 17:45:04

炸掉如何？！

[FONT=courier new]
(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")
■5·将xyp_lib.vlx文件直接拽到cad屏幕
★通用函数下载地址：
[url]http://www.xdcad.net/forum/attachme...&postid=1606661[/url]
[url]http://www.mjtd.com/bbs/dispbbs.asp...ID=37554&page=1[/url]|;
(defun c:ggdel ()
(cmdla0)
(while (setq ens (entsel "\n请选择要删除的实体: "))
(setq en (car ens)
pt (osnap (cadr ens) "near")
)
(princ)
(DRAWREDMINE pt)
(dos_sound 1)
(command "delay" 150)
(DRAWREDMINE (polar pt (* pi 0.25) 200))
(dos_sound 1)
(command "delay" 150)
(DRAWREDMINE (polar pt (* pi 1.25) 200))
(dos_sound 1)
(princ)
(princ ".")
(command "delay" 1000)
(redraw)
(entdel en)
)
(cmdla1)
)[/FONT]

[FONT=courier new] 
(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") 
■5·将xyp_lib.vlx文件直接拽到cad屏幕 
 ★通用函数下载地址： 
[url]http://www.xdcad.net/forum/attachme...&postid=1606661[/url] 
[url]http://www.mjtd.com/bbs/dispbbs.asp...ID=37554&page=1[/url]|; 
 
(defun c:ggdel () 
  (cmdla0) 
  (while (setq ens (entsel "\n请选择要删除的实体: ")) 
    (setq en (car ens) 
          pt (osnap (cadr ens) "near") 
    ) 
    (princ) 
    (DRAWREDMINE pt) 
    (dos_sound 1) 
    (command "delay" 150) 
    (DRAWREDMINE (polar pt (* pi 0.25) 200)) 
    (dos_sound 1) 
    (command "delay" 150) 
    (DRAWREDMINE (polar pt (* pi 1.25) 200)) 
    (dos_sound 1) 
    (princ) 
    (princ ".") 
    (command "delay" 1000) 
    (redraw) 
    (entdel en) 
  ) 
  (cmdla1) 
)[/FONT]

yuer0103 · 发表于 2005-10-21 11:12:27

什么乱七八糟！

guohui.zhai · 发表于 2005-10-28 22:33:59

楼主真强人，对LISP很有心得呀

yzr20020626 · 发表于 2005-10-29 11:21:59

有趣，楼主真是高手

wkai · 发表于 2005-10-29 11:43:29

有趣的程序，感觉挺过瘾的。

snoopychen · 发表于 2005-10-29 11:47:26

感觉841594兄比较能找出画图中的乐趣，这个风格和他的copy81等比较类似：）

它山之石 · 发表于 2005-10-31 09:19:08

看着不顺眼的通通滚蛋！哈哈！好！

winabcd · 发表于 2005-10-31 10:41:34

楼主在程序中用了下面两行
(command "undo" "begin")
...
(command "undo" end")
我查了帮助文件，有下列一段解释：

一次放弃几步操作
使用 UNDO 命令的“标记”选项标记执行的操作。然后使用 UNDO 命令的“后退”选项放弃在标记的操作之后执行的所有操作。使用 UNDO 命令的“开始”和“结束”选项放弃一组预先定义的操作。

可我不能理解其含义，知道者请解释一下，谢了！

zxq0220 · 发表于 2005-10-31 11:04:13

最初由 winabcd 发布
[B]楼主在程序中用了下面两行
(command "undo" "begin")
...
(command "undo" end")
我查了帮助文件，有下列一段解释：

一次放弃几步操作
使用 UNDO 命令的“标记”选项标记执行的操作。然后使用 UNDO 命令的?.. [/B]

这就是当使用用单字母命令U后可以退到BEGIN之前，不管在BEGIN之后用过多少次COMMAND。不然每个COMMAND就要用一次U命令。

zxmmelly · 发表于 2005-11-4 23:55:09

这个有意思，顶一下先

secwolf · 发表于 2005-11-5 20:47:57

删了之后撤销就知道实体的运行轨迹了

xiaoyouke · 发表于 2005-11-6 14:06:41

向高手学习

marcoyuwen · 发表于 2005-11-7 09:41:21

佩服之至，难得的是苦中求乐!!!

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

[分享]：干活干的很辛苦，整一段程序恶搞一下。

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子