社区 › AutoLISP/Visual LISP 编程技术 › 【更新—动态版】引线写入文字(源码)（线长随文字长短）

langjs 发表于 2012-4-26 20:20:34

本帖最后由 langjs 于 2012-4-26 20:58 编辑

开心版主更新了？呵呵，看看

试用一下，已经很好用了。个人建议移动时候光标变成十字光标看着会舒服一点：
(while (= (car (setq mouse (grread t 0 0))) 5)
    。。。。。。
)

换成
(while (progn
            (setq mouse (grread t 15 0))

            。。。。。。

       (= (car mouse) 5)
   ）
)

下一步增加动态对话框可能是K版研究方向了

海盗曹 发表于 2012-4-26 20:46:40

楼主这个还是不收币为好！

lz123456 发表于 2012-4-26 21:00:25

开心版主,提个建议
那最好是能让用户选择极轴，还有就是那字高能记忆，那能让用户按F10等，按ESC就取消。现在是按了那些就是确定了。

fawn_lgc 发表于 2012-4-26 21:28:29

直线做的我就不看了，因为我以前也做过，现在我用的是用引线实体做的，由于比较复杂，至今没有定稿，所以没有放出来，以后有机会放出来晒晒。

tianyi1230 发表于 2012-4-26 22:16:00

个人感觉还是加个带圆形点的为好，最好有个选择就行l

汪柏涛 发表于 2012-4-26 22:56:16

好，这个方法以前没有见过，多谢分享

yjycad 发表于 2012-4-26 23:34:26

有用！谢谢！

【KAIXIN】 发表于 2012-4-27 08:06:12

langjs 发表于 2012-4-26 20:20 static/image/common/back.gif
开心版主更新了？呵呵，看看

试用一下，已经很好用了。个人建议移动时候光标变成十字光标看着会舒服一点 ...

研究这个动态也是情非得已！

乒乓27 发表于 2012-4-27 08:12:07

向版主学习一下

fergus1987 发表于 2012-4-27 08:12:29

谢谢楼主分享！

查看完整版本: 【更新—动态版】引线写入文字(源码)（线长随文字长短）