[新手求助]：如何获取光标当前位置的坐标？献花致谢！

xhq1954425 · 发表于 2007-7-24 06:11:00

本帖最后由作者于 2007-7-24 6:11:58 编辑

我想画一圆，然后当光标回到屏幕上时，这个圆的圆心刚好与光标中心重合并随光标移动，光标当前位置的坐标如何获取？我是新手，可能问题提的冒昧，见谅！

　　求大家帮忙，献花致谢！

alin · 发表于 2007-7-24 07:25:00

(CADR (GRREAD 1))

xhq1954425 · 发表于 2007-7-24 07:56:00

谢谢你帮我解决了大问题，我还想问一下能否直接定义一个无名块？有一篇关于无名块的文章我没看懂！麻烦你了，谢谢！

xhq1954425 · 发表于 2007-7-24 08:46:00

(command "move" m "" p0 pause)

(setq　p1(CADR (GRREAD 1)))

(command "scale" m "" p1 pause)

这三句是：1移动m到pause指定的位置点

　　　　　2取这点的坐标为p1

3以p1为基准点缩放

发现p1点不对！不知何故？求大家给看什么问题。

ZZXXQQ · 发表于 2007-7-24 09:07:00

(COMMAND "MOVE" M "" P0 PAUSE)

(SETQ P1 (GETVAR "LASTPOINT"))

(COMMAND "SCALE" M "" P1 PAUSE)

xhq1954425 · 发表于 2007-7-24 09:27:00

再次感谢！谢谢啊！

黄河 · 发表于 2007-7-28 13:58:00

(defun c:jj () /时时显示光标坐标
(setq check 0) (while (= check 0)
(setq temp (grread t 1 0))
(if (= (car temp) 5) (progn
(princ "\n") (princ (cdr temp))))
(if (= (car temp) 3) (progn
(princ "\n") (princ (cdr temp))
(setq check 1)))) (princ))

jaminth · 发表于 2008-8-5 07:50:00

用MOVE命令会产生橡皮筋效果,我想去掉橡皮筋效果,有没有什么办法!?

ZZXXQQ · 发表于 2008-8-5 08:59:00

单个实体直接用grread取得当前光标，用subst函数替换实体数据基点，用entmod函数更新实体。

多个实体要做成块或组后用上面的方法处理。

byghbcx · 发表于 2008-8-5 10:44:00

(defun tt(/ pt)
(command "circle" (setq pt (getpoint "\n请输入园心:")) pause)
(command "_.copybase" pt (entlast) "")
(command "_.erase" (entlast) "")
(command "_.pasteclip" pause)
(princ)
)

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