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

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

本帖最后由 作者 于 2007-7-24 6:11:58 编辑 <br /><br /> <p>我想画一圆，然后当光标回到屏幕上时，这个圆的圆心刚好与光标中心重合并随光标移动，光标当前位置的坐标如何获取？我是新手，可能问题提的冒昧，见谅！</p><p>　　求大家帮忙，献花致谢！</p>

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

(CADR (GRREAD 1))

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

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

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

<p><br/>&nbsp;&nbsp;&nbsp;&nbsp; (command "move" m "" p0 pause)</p><p>&nbsp;&nbsp;&nbsp;&nbsp; (setq　p1(CADR (GRREAD 1)))</p><p>&nbsp;&nbsp;&nbsp;&nbsp; (command "scale" m "" p1 pause)</p><p>这三句是：1移动m到pause指定的位置点</p><p>　　　　　2取这点的坐标为p1</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;3以p1为基准点缩放</p><p>发现p1点不对！不知何故？求大家给看什么问题。</p>

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

<p>(COMMAND "MOVE" M "" P0 PAUSE)</p><p>(SETQ P1 (GETVAR "LASTPOINT"))</p><p>(COMMAND "SCALE" M "" P1 PAUSE)</p>

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

<p>再次感谢！谢谢啊！</p>

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

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

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

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

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

<p>单个实体直接用grread取得当前光标，用subst函数替换实体数据基点，用entmod函数更新实体。</p><p>多个实体要做成块或组后用上面的方法处理。</p>

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

(defun tt(/ pt)<br/>&nbsp; (command "circle" (setq pt (getpoint "\n请输入园心:")) pause)<br/>&nbsp; (command "_.copybase" pt (entlast) "")<br/>&nbsp; (command "_.erase" (entlast) "")<br/>&nbsp; (command "_.pasteclip" pause)<br/>&nbsp; (princ)<br/>&nbsp; )
页: [1] 2
查看完整版本: [新手求助]：如何获取光标当前位置的坐标？献花致谢！