【转帖】这个开发可能有点难度!
 

这个开发可能有点难度!
www.dimcax.com
这个开发可能有点难度!
图片：

我想把图中所有圆的的直径大小,位置都用记事本的的方式记录下来,也就是提取出圆的位置和大小到记事本,怎样实现这功能呢?
re:這個開發可能有點難度!
题外话,与您参考
我们并不 提取出...到记事本
10

应该可以吧，我想是循环提取属性，然后用text写出，现转出excel
勤能补拙

andyes,你怎发上来的东西是损坏的？
勤能补拙

请到此下载解压软件:

(defun c:tst()
(setq a (ssget "x" '((0 . "circle"))))
(setq l (1-(sslength a)))
(while (>= l 0)
(setq na (ssname a l))
(setq in (entget na))
(setq center (cdr(assoc 10 in)))
(setq dia (cdr(assoc 40 in)))
(setq fi (open "d:\\tst.txt" "a"))
(write-line (strcat "直径：" (rtos dia) "--圆心位置(" (rtos(car center)) "," (rtos (cadr center)) ")") fi)
(close fi)
(setq l (1- l))
))

(defun c:dxy ()
(setq f (open "c:\\dxy.txt" "w") yua nil ss (ssget "all" '((0 . "circle"))))
(setq n (sslength ss))
(setq ii 0 yyu (list))
(repeat n
(setq gg 1 en1 (ssname ss ii) )
(setq bbb nil en (entget en1) ii (+ ii 1) a (cdr (assoc 10 en)) x (rtos (car a)) y (rtos (cadr a)))
(setq r (cdr (assoc 40 en)) d (rtos (* r 2.0) ) bb (strcat "直径=" d " 孔的位置 " x "," y))
(prompt bb)(terpri)
(write-line bb f)
)
(close f)
)
gbg

好厉害啊,关键能不能做成nc程式出来,给cnc加工

怎么设置原点坐标位置