LISP或VL中的跳汰/重影

Lee Mac · 发表于 2022-7-6 14:34:05

我绝对喜欢这些东西——它们看起来非常令人印象深刻，能够用它们创建自定义对象真是太棒了。

[看看这个天才的展示]

但是，我的问题是：在LISP或者更确切地说是视觉LISP中是否可能？或者这些技术仅限于ObjectARX和/或之类的技术。网络？

我已经看到/创建了一些类似这种技术的“make-shift”示例，使用了grvecs、grread、grdraw等函数，但我不确定这些与实际交易相比有多好。。。

我已经看到了执行此功能的“acet ss drag move”和“acet ss drag rotate”功能，但是还有其他不依赖Express Tools的方法吗？还是我运气不好？

感谢您的关注和时间，但最重要的是：耐心。

干杯

李

Freerefill · 发表于 2022-7-6 14:44:33

我刚在谷歌上搜索了“跳汰”这个词，但发现了很多钓鱼网站。。这些术语到底意味着什么？

Lee Mac · 发表于 2022-7-6 14:51:04

如果你查看SeanT发布的线程链接，就会发现该线程中有大量关于跳汰和重影的信息。

SEANT · 发表于 2022-7-6 14:56:34

谢谢李；尽管我应该指出，抛物线本身并不是一个真正的自定义对象。该例程提供了一个自定义用户界面，允许创建半标准*样条曲线。目前，只有C++（ObjectARX）可以创建真正的“自定义对象”。

据推测，“被否决的对象”是AutoCAD 2010中的一个新功能，它允许。NET创建标准对象的附加特征和特性的能力。可能需要增加85%的功能，而真正的“自定义对象”的编程开销只有一半。

*我之所以说半标准是因为AutoCAD不允许直接创建二次样条曲线。它可以间接创建，如本文从第26页开始讨论的那样。
http://www.cadtutor.net/forum/showthread.php?t=17548

观察：
很明显，自从开始学习C语言以来，我在帖子中使用了过多的标点符号。

ronjonp · 发表于 2022-7-6 14:58:26

李，

这看起来像是grvecs。。。。看看这个例程来跟踪一个对象

http://www.theswamp.org/index.php?topic=24536.msg297267#msg297267

Lee Mac · 发表于 2022-7-6 15:07:42

感谢您的澄清，看起来您正在创建自定义对象（并且您设法愚弄了我！），但我明白你在说什么巧合的是，我只是看了一下屏幕，看到了一个由“Daniel”在ARX中创建的自定义对象（可能是吧？），但我不知道他是怎么做到的。。。

（是的，确实有很多标点符号……）

这些都是很酷的罗恩，grvecs的功能是有趣的玩周围我必须承认。。。

Lee Mac · 发表于 2022-7-6 15:15:40

我想这是一个重影的例子：

copy


[i][color=#990099];; Ghosting Example, by Lee McDonnell[/color][/i]
[i][color=#990099];; Args:[/color][/i]
[i][color=#990099];; msg ~ prompt      [str][/color][/i]
[i][color=#990099];; oBj ~ object      [ent/obj][/color][/i]
[i][color=#990099];; hi  ~ rubber band [t/nil][/color][/i]
[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] lmac-obj-drag-move  [b][color=RED]([/color][/b]msg oBj hi [color=Blue][b]/[/b][/color] oBj bsPt cOBj gr[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] msg
   [b][color=RED]([/color][/b][b][color=BLUE]prompt[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vl-string-search[/color][/b] [b][color=#ff00ff]"\n"[/color][/b] msg[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
         [b][color=#ff00ff]"\n"[/color][/b][b][color=#ff00ff]""[/color][/b][b][color=RED])[/color][/b] msg[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=DARKRED]'[/color][/b]VLA-OBJECT [b][color=RED]([/color][/b][b][color=BLUE]type[/color][/b] oBj[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] oBj
       [b][color=RED]([/color][/b][b][color=BLUE]vlax-ename->vla-object[/color][/b] oBj[b][color=RED])[/color][/b][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]vlax-property-available-p[/color][/b] oBj [b][color=DARKRED]'[/color][/b]InsertionPoint[b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] hi
       [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] bsPt
         [b][color=RED]([/color][/b][b][color=BLUE]vlax-safearray->list[/color][/b]
           [b][color=RED]([/color][/b][b][color=BLUE]vlax-variant-value[/color][/b]
             [b][color=RED]([/color][/b][b][color=BLUE]vla-get-InsertionPoint[/color][/b] oBj[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]vla-highlight[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] cOBj
         [b][color=RED]([/color][/b][b][color=BLUE]vla-copy[/color][/b] oBj[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=Blue]:vlax-true[/color][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]while[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#009900]3[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b]
           [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] gr [b][color=RED]([/color][/b][b][color=BLUE]grread[/color][/b] [b][color=DARKRED]'[/color][color=Blue]t[/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=RED]([/color][/b][b][color=BLUE]redraw[/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]
         [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#009900]5[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] gr[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
           [b][color=RED]([/color][/b][b][color=BLUE]listp[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cadr[/color][/b] gr[b][color=RED])[/color][/b][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]vla-move[/color][/b] oBj
           [b][color=RED]([/color][/b][b][color=BLUE]vla-get-InsertionPoint[/color][/b] oBj[b][color=RED])[/color][/b]
             [b][color=RED]([/color][/b][b][color=BLUE]vlax-3D-point[/color][/b]
               [b][color=RED]([/color][/b][b][color=BLUE]cadr[/color][/b] gr[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] hi
           [b][color=RED]([/color][/b][b][color=BLUE]grdraw[/color][/b] bsPt [b][color=RED]([/color][/b][b][color=BLUE]cadr[/color][/b] gr[b][color=RED])[/color][/b] [b][color=#009900]256[/color][/b] [b][color=#009900]1[/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=RED]([/color][/b][b][color=BLUE]vl-catch-all-apply[/color][/b]
       [b][color=DARKRED]'[/color][/b][b][color=BLUE]vla-delete[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b] cOBj[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=BLUE]nil[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]redraw[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
[i][color=#990099];; Test Function[/color][/i]
[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:test  [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] ss pt[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] blk [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]entsel[/color][/b] [b][color=#ff00ff]"\nSelect Object: "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b]lmac-obj-drag-move [b][color=BLUE]nil[/color][/b] blk [b][color=BLUE]t[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]