字随鼠标

ruirui999

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

nzl1116

给你个列子，自己套

1. (defun c:SmoothSign (/ Dist GVal Pnt0 Pnt1 Pnt2 Pnt3 Ents)
   
2.   (setq        Dist (/ 10.0 (expt 3.0 0.5))
   
3.         TorN t
   
4.   )
   
5.   (while TorN
   
6.     (setq GVal (grread 3))
   
7.     (if        (member (car GVal) '(3 5))
   
8.       (progn
   
9.         (setq Pnt0 (cadr GVal)
   
10.               Pnt1 (polar Pnt0 (/ (* pi 2.0) 3.0) Dist)
    
11.               Pnt2 (polar Pnt0 (/ pi 3.0) Dist)
    
12.               Pnt3 (polar Pnt0 (/ pi 3.0) (* 2.0 Dist))
    
13.         )
    
14.         (if Ents
    
15.           (mapcar 'entdel Ents)
    
16.         )
    
17.         (setq Ents
    
18.                (list (entmakex
    
19.                        (list '(0 . "LINE") (cons 10 Pnt0) (cons 11 Pnt1))
    
20.                      )
    
21.                      (entmakex
    
22.                        (list '(0 . "LINE") (cons 10 Pnt0) (cons 11 Pnt3))
    
23.                      )
    
24.                      (entmakex
    
25.                        (list '(0 . "LINE") (cons 10 Pnt1) (cons 11 Pnt2))
    
26.                      )
    
27.                )
    
28.         )
    
29.         (if (= (car GVal) 3)
    
30.           (setq TorN nil)
    
31.         )
    
32.       )
    
33.     )
    
34.   )
    
35.   (princ)
    
36. )

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

依然低调

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

ruirui999

nzl1116 发表于 2014-6-12 18:06
给你个列子，自己套

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

nzl1116

ruirui999 发表于 2014-6-13 16:24
应用程序错误: 控制台中断

这个小工具，我自己一直在用，从没出问题。而且，按道理来说，控制台中断和我的程序无关吧。