如何让要画的图形在光标处显示出来并跟随鼠标一起到要画的位置

yanghao1 · 发表于 2013-5-9 13:24:01

就像在AutoCAD中，复制一个圆，粘贴时这个被复制的圆在光标处隐隐约约显示，直到鼠标点击的位置就粘贴了一个圆，每次点击粘贴命令时都是这样。

Gu_xl · 发表于 2013-5-9 13:35:40

不明白你说什么，也不知道你要干什么！CAD里本身就是这个样子的！

hpy · 发表于 2013-5-9 16:48:21

1楼说的估计就是grread的效果。

yanghao1 · 发表于 2013-5-9 19:39:03

Gu_xl 发表于 2013-5-9 13:35
不明白你说什么，也不知道你要干什么！CAD里本身就是这个样子的！

C#如何实现这个功能

669423907 · 发表于 2013-5-9 23:24:23

cp 的效果？？？

nzl1116 · 发表于 2013-5-10 07:53:28

(defun c:tt (/ EnLst grVal InsPt)
  (setq EnLst nil TorN t)
  (while TorN
(setq grVal (grread 3))
(if (member (car grVal) '(3 5))
   (setq InsPt (cadr grVal))
)
(if (= (car grVal) 3)
   (setq TorN nil)
)
(if (and InsPt EnLst)
   (mapcar 'entdel EnLst)
)
(if InsPt
   (setq EnLst (MyDrawFunc InsPt))
)
  )
  (princ)
)

yanghao1 · 发表于 2013-5-10 13:18:57

Gu_xl 发表于 2013-5-9 13:35
不明白你说什么，也不知道你要干什么！CAD里本身就是这个样子的！

这项技术叫JIG。

夏生生 · 发表于 2013-5-10 16:04:18

本帖最后由夏生生于 2013-5-10 16:08 编辑

好厉害哦！！鸟版讲了那么多我都没看懂
我也好厉害，按照古版的方法一下就实现了

wowan1314 · 发表于 2013-5-10 16:49:41

就是先复制

然后粘贴就可以了。

669423907 · 发表于 2013-5-11 21:10:38

nzl1116 发表于 2013-5-10 07:53
(defun c:tt (/ EnLst grVal InsPt)
(setq EnLst nil TorN t)
(while TorN

错误: no function definition: MYDRAWFUNC

账号		自动登录	找回密码
密码			注册

[基础] 如何让要画的图形在光标处显示出来并跟随鼠标一起到要画的位置

相关帖子

本帖子中包含更多资源

本帖子中包含更多资源