社区 › AutoLISP/Visual LISP 编程技术 › 求制作lisp：文字跟随着鼠标随意移动

mokson 发表于 2019-9-8 08:08:15

求制作lisp：文字跟随着鼠标随意移动

本帖最后由 mokson 于 2019-9-8 10:48 编辑

好像web的网页特效一样，求高手写这样的一个lisp,让文字跟随着鼠标在绘图区域随意移动,
不是 move 命令呀，要求在不执行任何命令的状态下也能实现的，
用js代码我会，但不会写lisp，谢谢。

Andyhon 发表于 2019-9-8 09:35:39

本帖最后由 Andyhon 于 2019-9-8 10:56 编辑

;;; ability to drag an move a vla object
;;; msg: optional message by default uses "Move"
(defun drag-move (msg vla_obj / take code5 p3)
   (prompt
   (strcat
       "\n"
       (cond (msg) ("Move"))
       "\n"
   )
   )
   (while (and (setq take (grread 't)) (/= 3 (car take)))
   (setq code5 (car take))
   (setq p3 (cadr take))
   (if (and p3 (= 5 code5))
       (vla-move
         vla_obj
         (vla-get-insertionpoint vla_obj)
         (vlax-3d-point p3)
       )
   )
   )
)

info:
https://www.cadtutor.net/forum/t ... ut-data-extraction/

e2002 发表于 2019-9-13 16:36:17

这东西有什么用？这才是本质问题。
如果仅仅作为个效果，没有什么实际意义。

当年没有Rollover Tooltips的时候，lyy 写了个这样的功能，用于查询对象属性。
后来有了 Rollover Tooltips，还有第三方的 Priscope ，mcneel 也出了个 bubble（后来没了）。

Kye 发表于 2019-9-13 20:11:44

本帖最后由 Kye 于 2019-9-13 20:17 编辑

e2002 发表于 2019-9-13 16:36
这东西有什么用？这才是本质问题。
如果仅仅作为个效果，没有什么实际意义。


lyy 的查询对象属性很好呀，看了好几年没看出其好处，突然有一天发现可改造查别的东西，谢谢Iyy提供这么好的思路

13648893846 发表于 2019-9-8 08:21:00

猫老师教程就有

注册 发表于 2019-9-8 09:12:58

具体用途是什么啊？

mokson 发表于 2019-9-8 10:34:43

本帖最后由 mokson 于 2019-9-9 07:59 编辑

注册 发表于 2019-9-8 09:12
具体用途是什么啊？
尽显与众不同，用来装逼呀，你不知道吗。

mokson 发表于 2019-9-8 10:37:37

本帖最后由 mokson 于 2019-9-8 10:42 编辑

Andyhon 发表于 2019-9-8 09:35
;;; ability to drag an move a vla object
;;; msg: optional message by default uses "Move"
((defun...
; 错误: 输入的列表有缺陷，
不知道如何使用呀？

Andyhon 发表于 2019-9-8 11:02:33

(drag-move "Move" (vlax-ename->vla-object (car (entsel))))

言戲無軍 发表于 2019-9-8 11:16:08

了解下dynamicwrraper，就是功能太强，容易被杀毒

lxw320 发表于 2019-9-8 19:34:45

论坛里有，多搜索

纵横八方 发表于 2019-9-8 20:58:01

用copy或则建成块呀

查看完整版本: 求制作lisp：文字跟随着鼠标随意移动