明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1344|回复: 4

[讨论] 字随鼠标

[复制链接]
发表于 2014-6-12 17:50 | 显示全部楼层 |阅读模式
多行单行文字跟随鼠标,当鼠标左键按下时,放置,同时返回多行单行文字的选择集。如何实现??求教。
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2014-6-12 18:06 | 显示全部楼层
给你个列子,自己套
  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. )

评分

参与人数 1明经币 +1 收起 理由
edata + 1 学习了。

查看全部评分

发表于 2014-6-13 11:40 | 显示全部楼层
没看懂!先做个记号!能不能做个gif图片看看效果。
 楼主| 发表于 2014-6-13 16:24 | 显示全部楼层
nzl1116 发表于 2014-6-12 18:06
给你个列子,自己套

应用程序错误: 控制台中断
发表于 2014-6-13 16:35 | 显示全部楼层
ruirui999 发表于 2014-6-13 16:24
应用程序错误: 控制台中断

这个小工具,我自己一直在用,从没出问题。而且,按道理来说,控制台中断和我的程序无关吧。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 14:30 , Processed in 0.216503 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表