Lisp科技感动画

dcl1214

很多时候图纸大了，用户想快速聚焦某一个图元，而且还要醒目，之前我给客户做了一个简易的动图，现在有个别客户提出希望动图能有一点科技感，个人美术细胞有限，随便设计了一个，还没给客户看之前，先发个帖子用于记录实现方法，以下是具体lisp代码

1.           ;lisp科技动画
   
2. (setq ent (car (entsel)))
   
3. (setq Pros (vl-catch-all-apply
   
4.        'vlax-invoke
   
5.        (list (vlax-ename->vla-object ent)
   
6.        'GetDynamicBlockProperties
   
7.        )
   
8.      )
   
9. )
   
10. (setq
    
11.   obj (vl-some
    
12.   (function
    
13.     (lambda (a)
    
14.       (if
    
15.         (= (vl-catch-all-apply 'vla-get-PropertyName (list a))
    
16.      "参数集";动态块的动作名字叫做参数集
    
17.         )
    
18.          a
    
19.       )
    
20.     )
    
21.   )
    
22.   Pros
    
23.       )
    
24. )
    
25. (setq go t)
    
26. (SETQ i 0)
    
27. (while go
    
28.   (setq gr (grread t 15))
    
29.   (vl-catch-all-apply
    
30.     'vla-put-Value
    
31.     (list obj (vlax-make-variant i vlax-vbString))
    
32.   )
    
33.   (if (> i 18);动态块中设置了多少个动作
    
34.     (setq i 1)
    
35.   )
    
36.   (cond
    
37.     ((=(car gr)3)(setq go nil))
    
38.     )
    
39.   (SETQ i (1+ i))
    
40. )

          ;lisp科技动画<br /> (setq ent (car (entsel)))<br /> (setq Pros (vl-catch-all-apply<br />        'vlax-invoke<br />        (list (vlax-ename->vla-object ent)<br />        'GetDynamicBlockProperties<br />        )<br />      )<br /> )<br /> (setq<br />   obj (vl-some<br />   (function<br />     (lambda (a)<br />       (if<br />         (= (vl-catch-all-apply 'vla-get-PropertyName (list a))<br />      "参数集";动态块的动作名字叫做参数集<br />         )<br />          a<br />       )<br />     )<br />   )<br />   Pros<br />       )<br /> )<br /> (setq go t)<br /> (SETQ i 0)<br /> (while go<br />   (setq gr (grread t 15))<br />   (vl-catch-all-apply<br />     'vla-put-Value<br />     (list obj (vlax-make-variant i vlax-vbString))<br />   )<br />   (if (> i 18);动态块中设置了多少个动作<br />     (setq i 1)<br />   )<br />   (cond<br />     ((=(car gr)3)(setq go nil))<br />     )<br />   (SETQ i (1+ i))<br /> )

st11121

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

mikewolf2k

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

1028695446

花里胡哨，但是有意思

革天明

动态时钟，不影响CAD画图

https://www.bilibili.com/video/B ... 7b89d27e228bfb99c3d

自贡黄明儒

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

dcl1214

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

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

qmotuo

厉害了我的哥！

meja

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

lxl217114

大佬研究的比较高端