ruirui999 发表于 2014-6-12 17:50:46

字随鼠标

多行单行文字跟随鼠标，当鼠标左键按下时，放置，同时返回多行单行文字的选择集。如何实现？？求教。

nzl1116 发表于 2014-6-12 18:06:44

给你个列子，自己套
(defun c:SmoothSign (/ Dist GVal Pnt0 Pnt1 Pnt2 Pnt3 Ents)
(setq        Dist (/ 10.0 (expt 3.0 0.5))
        TorN t
)
(while TorN
    (setq GVal (grread 3))
    (if        (member (car GVal) '(3 5))
      (progn
        (setq Pnt0 (cadr GVal)
              Pnt1 (polar Pnt0 (/ (* pi 2.0) 3.0) Dist)
              Pnt2 (polar Pnt0 (/ pi 3.0) Dist)
              Pnt3 (polar Pnt0 (/ pi 3.0) (* 2.0 Dist))
        )
        (if Ents
          (mapcar 'entdel Ents)
        )
        (setq Ents
             (list (entmakex
                     (list '(0 . "LINE") (cons 10 Pnt0) (cons 11 Pnt1))
                     )
                     (entmakex
                     (list '(0 . "LINE") (cons 10 Pnt0) (cons 11 Pnt3))
                     )
                     (entmakex
                     (list '(0 . "LINE") (cons 10 Pnt1) (cons 11 Pnt2))
                     )
             )
        )
        (if (= (car GVal) 3)
          (setq TorN nil)
        )
      )
    )
)
(princ)
)

依然低调 发表于 2014-6-13 11:40:46

没看懂！先做个记号！能不能做个gif图片看看效果。

ruirui999 发表于 2014-6-13 16:24:55

nzl1116 发表于 2014-6-12 18:06 static/image/common/back.gif
给你个列子，自己套

应用程序错误: 控制台中断

nzl1116 发表于 2014-6-13 16:35:44

ruirui999 发表于 2014-6-13 16:24 static/image/common/back.gif
应用程序错误: 控制台中断

这个小工具，我自己一直在用，从没出问题。而且，按道理来说，控制台中断和我的程序无关吧。
页: [1]
查看完整版本: 字随鼠标