各位高手,请指点:如何从已有的autocad图形中提取数据信息(比如坐标、标注)到文
各位高手,请指点:如何从已有的autocad图形中提取数据信息(比如坐标、标注)到文本文件? 传副图上来看看! 在工作中,会碰道在绘好的图上(比如一个多边形)提取拐点的坐标,如果先记录下来再输入到WORD表格中就很麻烦。请黑侠编一个。 (defun jx ()(setq as(car(entsel"請選取一個矩形吧")))
(setq ac (ENTGET AS))
(setq n 0)
(setq sidian nil)
(while (setq pand (assoc 10 ac))
(progn
(setq jieduan (member pand ac))
(setq one (cdr pand))
(setq ac (cdr jieduan))
(setq sidian (cons one sidian))
)
)
)
程序返回矩形的四个点 这是什么编程?
页:
[1]