[求助]坐标提取程序完善

lescad2008

(defun c:cc ()
  (setq ss (ssget '((0 . "CIRCLE"))))
  (if (setq data_file (getfiled "写入坐标文件" "c:\\lsptools\\" "dat" 1))
   (if ss
     (progn
     (setq ff (open data_file "w"))
     (write-line "对象名称     坐标尺寸" ff)
     (write-line "---------------------" ff)
     (setq n 0)
      (repeat (sslength ss)
        (setq en (ssname ss n ))
        (setq en_data (entget en))
        (setq cen_data (cdr (assoc 10 en_data)))
        (setq n (1+ n))
        (princ en ff) (princ " " ff) (princ cen_data ff) (princ "\n" ff)
      )
     (close ff)
     )
    ))
  (prin1)
)

(prompt "<<CC>>圆心提取程序")
(prin1)

返回:

对象名称     坐标尺寸
---------------------
<图元名: 7ef82708> (1366.35 2859.1 0.0)
<图元名: 7ef82700> (1366.35 2874.1 0.0)
<图元名: 7ef82208> (1447.33 2874.55 0.0)
<图元名: 7ef82200> (1431.83 2874.55 0.0)

目标:

对象名称     坐标尺寸
---------------------
A1          (1366.35 2859.1 0.0)
A2          (1366.35 2874.1 0.0)
A3          (1447.33 2874.55 0.0)
A4          (1431.83 2874.55 0.0)

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 4 才可浏览，你当前发帖数只有 0

lescad2008

原对象目标如图片:

ZZXXQQ

用上面程序按顺序选取就行了。

lescad2008

我想要的是一次选取,假如有很多圆,注释有B1,B2,...,C1,C2,...,D1,D2,...

一个一个不是很麻烦!

ZZXXQQ

那注释是什么实体？写在什么位置？

xxsheng

在你的程序的基础上添加一个根据圆心坐标排序功能就可以了,,,,,

lescad2008

注释是文本,在圆附近.我是想提取文本对应的圆的坐标.如:

N                X坐标                 Y坐标

A1              50.000                20.000

A2              100.000               20.000

A3              50.000                100.000

A4              100.000              100.000

ZZXXQQ

给个DWG文件好进行调试程序。

lescad2008

CAD附件如上: