lichh_2003 发表于 2004-10-25 16:34:00

指教：获得鼠标点击处的坐标（CAD）

麻烦了。我想通过VB程序来实现绘制断面图，其中需要知道鼠标点击处值：就是先在CAD中通过鼠标点击获得点的坐标，然后把此点的坐标传递给VB 。<BR>请教该怎么实现啊？


非常希望和我联系qq 10364426<BR>

xyp1964 发表于 2004-10-27 07:42:00

lisp:


(getvar"lastpoint")

robertoxu 发表于 2008-2-1 20:07:00

<p>我這裡有LISP 編的一個小程序 不知道你有用麽</p>(defun c:poi()<br/>&nbsp; (setvar "cmdecho" 0)<br/>&nbsp; (setq point (getpoint "\n选取点: "))<br/>&nbsp; (setq xpt (rtos (car point) 2 4));返回中心点x坐标"字符串"/rtos将数值转化为字符串<br/>&nbsp; (setq ypt (rtos (cadr point) 2 4));返回中心点y坐标"字符串"<br/>&nbsp; (setq zpt (rtos (caddr point) 2 4));返回中心点z坐标"字符串"<br/>&nbsp; (alert (strcat "X坐标:" " " xpt "\nY坐标:" " " ypt "\nZ坐标:" " " zpt))<br/>&nbsp; (prin1)<br/>)<p></p>
页: [1]
查看完整版本: 指教：获得鼠标点击处的坐标（CAD）