Another Pointless Program :P

Lee Mac · 发表于 2022-7-6 12:55:37

Maybe a bit of fun for a co-worker...

Will beep upon invoking the Explode command

(defun c:ExOn () (vl-load-com) (if (not *exR)   (setq *exR     (vlr-command-reactor nil       (list         (cons :vlr-commandWillStart 'Beep!)))))  (princ))(defun Beep! (Reac Args) (if (eq "EXPLODE" (strcase (car Args)))   (vlr-beep-reaction nil)) (princ))(defun c:ExOff () (if (and *exR (vlr-added-p *exR))   (progn     (vlr-remove *exR)     (setq *exR nil))) (princ))

ollie · 发表于 2022-7-6 12:59:49

Hehe I wrote a similar script recently but with a group of light hearted (alert insults)

ReMark · 发表于 2022-7-6 13:05:09

Lee: Run out of challenges or just feeling a little bored?

flowerrobot · 发表于 2022-7-6 13:05:59

Mmmm makes me want to place not in that eq function, and load it on people's computers

fuccaro · 发表于 2022-7-6 13:10:59

Once I redefined the Explode command on my colleague's computer. When he tried to explode dimensions or hatches, an allert box announced him that it is not a good drawing practice. The funny side: even today, he thinks that it is an AutoCAD built-in message

Lee Mac · 发表于 2022-7-6 13:12:33

Bit of both really

Lee Mac · 发表于 2022-7-6 13:16:32

Haha, nice one!

flowerrobot · 发表于 2022-7-6 13:18:42

I like this idear!

Lee Mac · 发表于 2022-7-6 13:23:14

Some good ones here:

http://www.cadtutor.net/forum/showthread.php?t=33388

Lee Mac · 发表于 2022-7-6 13:25:35

Even Better!

copy

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:ExOn [b][color=RED]([/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vl-load-com[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] *prank[b][color=RED])[/color][/b]   [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] *prank     [b][color=RED]([/color][/b][b][color=BLUE]vlr-command-reactor[/color][/b] [b][color=BLUE]nil[/color][/b]       [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b]         [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [color=Blue][b]:vlr-commandWillStart[/b][/color] [b][color=DARKRED]'[/color][/b]prank[b][color=RED])[/color][/b]         [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=Blue]:vlr-commandEnded [/color][/b]    [b][color=DARKRED]'[/color][/b]notAmused[b][color=RED])[/color][/b]         [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [color=Blue][b]:vlr-commandCancelled[/b][/color] [b][color=DARKRED]'[/color][/b]notAmused[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] prank [b][color=RED]([/color][/b]Reac Args[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#ff00ff]"EXPLODE"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcase[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] Args[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]   [b][color=RED]([/color][/b][b][color=BLUE]vlax-for[/color][/b] Obj [b][color=RED]([/color][/b][b][color=BLUE]vla-get-block[/color][/b]                   [b][color=RED]([/color][/b][b][color=BLUE]vla-get-ActiveLayout[/color][/b]                     [b][color=RED]([/color][/b][b][color=BLUE]vla-get-ActiveDocument[/color][/b]                       [b][color=RED]([/color][/b][b][color=BLUE]vlax-get-acad-object[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]     [b][color=RED]([/color][/b][b][color=BLUE]vla-put-visible[/color][/b] Obj [b][color=Blue]:vlax-false[/color][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] notAmused [b][color=RED]([/color][/b]Reac Args[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#ff00ff]"EXPLODE"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcase[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] Args[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]   [b][color=RED]([/color][/b][b][color=BLUE]vlax-for[/color][/b] Obj [b][color=RED]([/color][/b][b][color=BLUE]vla-get-block[/color][/b]                   [b][color=RED]([/color][/b][b][color=BLUE]vla-get-ActiveLayout[/color][/b]                     [b][color=RED]([/color][/b][b][color=BLUE]vla-get-ActiveDocument[/color][/b]                       [b][color=RED]([/color][/b][b][color=BLUE]vlax-get-acad-object[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]     [b][color=RED]([/color][/b][b][color=BLUE]vla-put-visible[/color][/b] Obj [b][color=Blue]:vlax-true[/color][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:ExOff [b][color=RED]([/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] *prank [b][color=RED]([/color][/b][b][color=BLUE]vlr-added-p[/color][/b] *prank[b][color=RED])[/color][/b][b][color=RED])[/color][/b]   [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b]     [b][color=RED]([/color][/b][b][color=BLUE]vlr-remove[/color][/b] *prank[b][color=RED])[/color][/b]     [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] *prank [b][color=BLUE]nil[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

[编程交流] Another Pointless Program :P

发表回复

精选推荐