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

lichh_2003

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

xyp1964

lisp:


(getvar"lastpoint")

robertoxu

我這裡有LISP 編的一個小程序 不知道你有用麽

(defun c:poi()
  (setvar "cmdecho" 0)
  (setq point (getpoint "\n选取点: "))
  (setq xpt (rtos (car point) 2 4));返回中心点x坐标"字符串"/rtos将数值转化为字符串
  (setq ypt (rtos (cadr point) 2 4));返回中心点y坐标"字符串"
  (setq zpt (rtos (caddr point) 2 4));返回中心点z坐标"字符串"
  (alert (strcat "X坐标:" " " xpt "\nY坐标:" " " ypt "\nZ坐标:" " " zpt))
  (prin1)
)