[求助]生成散点数据

waterhot

还望Zhang007同志多多帮助呀！


如果方便，能否编一个小程序给我参考参考！不请之请，望回复．

LONGXIN

这种图形是没有办法得取准确有数据的。


1。线的坐标与高程没有办法准确匹配


2。高程点的坐标与文本的内容同样存在无法匹配的问题。


除非你能找出他们之间如何匹配的规律。程序是只能按逻辑来工作，对于无规律无逻辑的工作无法用程序来完成

waterhot

给出的图形中只有等高线和高程点，而且它们分布在不同的土层中，而且高程点的DXF文件格式中有text一项，等高线的DXF文件中有acdpolyline项．

waterhot

就以多段线为例，又如何读取其端点坐标呢，是DXF文件．

LONGXIN

试问你，即使取出了多段线的折点坐标，那么它的高程又应该是多少呢？一个数据只有高程没有坐标不行，只有坐标没有高程同样不行。

waterhot

我只要读取出端点坐标就可以了．请问这些坐标怎么读出呢？


能否给个例程！烦劳了！

LONGXIN

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=36585

waterhot

谢谢了！

老刘

(defun c:zbzh()
(SETQ layer1 "zdh")
(SETQ filename1 (GETVAR "dwgname") ;提取图形文件名
filename1 (SUBSTR filename1 1 (- (STRLEN filename1) 4)) ;取消.DWG
filename1 (STRCAT (GETVAR "dwgprefix") filename1 ".dat");提取文件夹并转换dat
)
(IF
(NOT (SETQ fp1 (OPEN filename1 "w"))) ;打开文件如果没有该文件就建立,如果有覆盖它
(ALERT (STRCAT "错误:\n\t不能打开文件<" filename1 ">."));显示警告框(字符串加文件名)
)
(SETQ OBJ (SSGET "x" (LIST (CONS 0 "POINT") (CONS 8 layer1))))
;;; (setq obj(ssget))
(IF(/= OBJ nil)
(PROGN
(setq num(sslength obj))
(setq r 0)
(REDRAW)
(REPEAT num
(setq nam(ssname obj r))
(setq aa(entget nam))
(setq BBB(assoc 0 aa))
(SETQ BB(CDR BBB))
(setq r (+ r 1))
(IF (/= "point" BB)
(PROGN
(SETQ aa1(assoc 10 aa))
(SETQ aa2(cdr aa1))
(SETQ x1(rtos(car aa2) 2 3))
(SETQ y1(rtos(cadr aa2) 2 3))
(SETQ z1(rtos(caddr aa2) 2 3))
(WRITE-LINE(STRCAT ", ,"x1","y1","z1) fp1)
(redraw)
)
)
)
)
)
(CLOSE fp1)
)