dcl1214 发表于 2023-7-23 23:32:15

Lisp科技感动画


很多时候图纸大了，用户想快速聚焦某一个图元，而且还要醒目，之前我给客户做了一个简易的动图，现在有个别客户提出希望动图能有一点科技感，个人美术细胞有限，随便设计了一个，还没给客户看之前，先发个帖子用于记录实现方法，以下是具体lisp代码
          ;lisp科技动画
(setq ent (car (entsel)))
(setq Pros (vl-catch-all-apply
       'vlax-invoke
       (list (vlax-ename->vla-object ent)
       'GetDynamicBlockProperties
       )
   )
)
(setq
obj (vl-some
(function
    (lambda (a)
      (if
      (= (vl-catch-all-apply 'vla-get-PropertyName (list a))
   "参数集";动态块的动作名字叫做参数集
      )
         a
      )
    )
)
Pros
      )
)
(setq go t)
(SETQ i 0)
(while go
(setq gr (grread t 15))
(vl-catch-all-apply
    'vla-put-Value
    (list obj (vlax-make-variant i vlax-vbString))
)
(if (> i 18);动态块中设置了多少个动作
    (setq i 1)
)
(cond
    ((=(car gr)3)(setq go nil))
    )
(SETQ i (1+ i))
)

st11121 发表于 2023-7-24 09:23:30

大哥 这是所有动态块都能用的吗

mikewolf2k 发表于 2023-7-24 09:47:37

这个看起来酷炫，但是实用性差。如果在动画过程中由于种种原因死机了，动画的图元就可能存在在文件中，以后还得删，麻烦。另外如果显示比例过大，动画图元很小，屏幕上可能看不到动画。
MS的处理就相对完善得多，支持绘制临时文件，再次重新打开就没有了。而且支持按像素绘图，任意比例都可以同样的大小显示。

1028695446 发表于 2023-7-24 09:47:57

花里胡哨，但是有意思

革天明 发表于 2023-7-24 10:02:48

动态时钟，不影响CAD画图

https://www.bilibili.com/video/BV1W24y1x7B9/?spm_id_from=autoNext&vd_source=385a05d4d86167b89d27e228bfb99c3d

自贡黄明儒 发表于 2023-7-24 10:10:43

用grread画一个炸蛋，会不会更震憾？

dcl1214 发表于 2023-7-24 11:06:32

自贡黄明儒 发表于 2023-7-24 10:10
用grread画一个炸蛋，会不会更震憾？

给我一个图形，我用动态块试试

qmotuo 发表于 2023-7-24 11:41:08

厉害了我的哥！

meja 发表于 2023-7-25 12:55:26

20年前有个动态地球的lisp动画

lxl217114 发表于 2023-7-25 13:56:55

大佬研究的比较高端
页: [1] 2
查看完整版本: Lisp科技感动画