一个图层有上千个点，要提取他们的坐标该咋办阿？？急！！

kingsky

谢谢大侠帮忙阿！！

zara

具体是什么情况? 可以用程序更方便吧, 到 LISP 版去问问?

yxp

如果能把DWG图形传上来就好了。

CADghost

要提取倒是不难，不过

先说说你要他们的坐标点有什么用？

CADghost

;;;给你一段代码，看看是不是你需要的

(defun c:write-point ()
  (princ "\n请选择需要显示的坐标点...")
  (setq ss (ssget))
  (setq num (sslength ss))
  (setq num1 0)
  (SETQ LST NIL)
  (princ "\n准备写点...")
  (repeat num
    (setq ss1 (ssname ss num1))
    (setq ss_data (entget ss1))
    (setq ss_name (cdr (assoc 0 ss_data)))
    (if (= ss_name "POINT")
      (progn
 (setq ss_DATA1 (cdr (assoc 10 ss_data)))
 (princ "\n点坐标为：")
 (princ ss_data1)
      )
    )
    (Setq num1 (1+ num1))
  )
  (princ "\n完毕!")
  (princ)
)

kingsky

谢谢各位大侠，特别是楼上的

小数点后面只有一位阿，有个五六位行不行？最好不用科学计数法