[求助]：还是提取点坐标

dracula63

求各位大侠帮忙编两个LISP OR VBA ，昨天我没表达清楚！！！
一：如何提取N个圆的中心坐标，如 x=1,y=1
                                                x=2,y=2
（要求可以把提取的数据复制到EXCEL里）
二：如何求N个圆的圆心到直线的距离，如d=1
                                                        d=2
（要求可以把提取的数据复制到EXCEL里）
Thank You very much !!!

                               
登录/注册后可看大图

ll_j

昨天的程序修改一下输出方式：
[php](defun c:test (/ ss li pt10 pt11 ang len i en pt pt1 dis fi)
  (princ "\n选择需要计算的圆")
  (setq ss (ssget '((0 . "circle"))))
  (if ss
    (setq li (entsel "\n计算目标直线："))
  )
  (if (and ss
           (= (cdr (assoc 0 (setq li (entget (car li))))) "LINE")
           (setq fi(getfiled "CSV（逗号分隔）" "circle" "csv" 13))
      )
    (progn
      (setq pt10 (cdr (assoc 10 li))
            pt11 (cdr (assoc 11 li))
            ang         (angle pt10 pt11)
            len         (sslength ss)
            fi   (open fi "w")
      )
      (princ "圆心x,圆心y,距离\n" fi)
      (setq i -1)
      (repeat len
        (setq i          (1+ i)
              en  (entget (ssname ss i)) ;圆心
              pt  (cdr (assoc 10 en))
              pt1 (inters pt10 pt11 pt (polar pt (+ ang (/ pi 2)) 1) nil)
              dis (distance pt pt1)        ;距离
        )
        (princ (strcat (rtos (car pt)) "," (rtos (cadr pt)) ","        (rtos dis) "\n") fi)
      )
      (close fi)
    )
  )
  (princ)
)
[/php]

dracula63

感激不尽

jx2008

多谢l1_j兄，程序非常好。支持，顶了


能不能按已建好的地文件格式输出，文件格式已将建立，并保存在某路经下，在输出坐标的时候，把坐标值等按格式和位置灌输进已存在的excel文件中？请问怎么编程？

另外在输出好坐标后，马上调用运行excel应用程序并打开该excel文件？？