如何实现动态显示信息

carrot1983 · 发表于 2011-11-17 15:10:00

版主用ARX实现了这个，动态显示信息，
但是，我不知道用C#要怎么搞出来，
望知情者告知。。。谢谢
怪事，怎么没办法贴图片？？？
那就贴代码吧， ARX文件找上面的贴子下载
(defun C:INFO (/ RET)
  (defun INFOCALLBACK (DYNPT / TXT LST DAT)
(setq TXT (vl-princ-to-string (mapcar 'rtos DYNPT)))
(setq TXT (strcat "\n当前点的坐标是：" TXT))
(if (setq LST (nentselp DYNPT))
   (progn
(setq DAT (entget (car LST)))
(strcat TXT "\n这个图元的类型是：" (cdr (assoc 0 DAT)))
   )
   TXT
)
  )
  (setq RET (hfb_pointmonitor "InfoCallback"))
  (prompt "\n如果要关闭监视，请用函数(HFB_PointMonitor)")
  (princ)
)