求助 怎样用lisp实现复制多义线的属性

trueman250

我想用等高线在gis里面做地形分析，但是现有的等高线的高程值有大量错误，

想通过lisp程序根据正确的等高线刷新，就是类似格式刷那样的功能，将正确等高线的

高程复制给错误的等高线的高程，达到修正的目的。但不知如何实现，谢谢各位指教。

另外，朋友帮忙写的一个lisp程序都是乱码，不知道怎么回事如何解决，企盼指教。

email：trueman250@126.com

超然A

我也想知道呢。

超然A

不过你那个高程值就是线上点的Z坐标是吧？
那编程起来应该是蛮简单的啊。你会LISP吧？估计你不会^_^
我刚开始看到属性还以为是扩展属性呢。呵呵，最近在搞这个呢。
你说的那个高程就是一个点的Z坐标。

3. (defun c:shuagc ()
4.   (setq ent1  (car (entsel "\n选择高程正确的等高线："))
5. info1 (entget ent1)
6.   )
7.   (setq leixing (cdr (assoc 0 info1)))
8.   (if (= leixing "LWPOLYLINE")
9.     (setq gc1 (cdr (assoc 38 info1)))
10.   )
11.   (if (= leixing "POLYLINE")
12.     (setq gc1 (last (assoc 10 info1)))
13.   )
14.   (while
15.     (setq ent2 (car (entsel "\n选择要修改高程的等高线："))
16.    info2 (entget ent2)
17.     )
18.      (setq leixing2 (cdr (assoc 0 info2)))
19.      (if (= leixing2 "LWPOLYLINE")
20.        (setq info2 (subst (cons 38 gc1) (assoc 38 info2) info2))
21.      )
22.      (if (= leixing2 "POLYLINE")
23.        (setq info2 (subst (list 10 0.0 0.0 gc1) (assoc 10 info2) info2))
24.      )
25.      (entmod info2)
26.      (entupd ent2)
27.   )
28. )

(defun c:shuagc ()   (setq ent1  (car (entsel "\n选择高程正确的等高线：")) info1 (entget ent1)   )   (setq leixing (cdr (assoc 0 info1)))   (if (= leixing "LWPOLYLINE")     (setq gc1 (cdr (assoc 38 info1)))   )   (if (= leixing "POLYLINE")     (setq gc1 (last (assoc 10 info1)))   )   (while     (setq ent2 (car (entsel "\n选择要修改高程的等高线："))    info2 (entget ent2)     )      (setq leixing2 (cdr (assoc 0 info2)))      (if (= leixing2 "LWPOLYLINE")        (setq info2 (subst (cons 38 gc1) (assoc 38 info2) info2))      )      (if (= leixing2 "POLYLINE")        (setq info2 (subst (list 10 0.0 0.0 gc1) (assoc 10 info2) info2))      )      (entmod info2)      (entupd ent2)   ) )

无痕

另外的一个想法

1. (entsel "\n选择要修改高程的等高线/输入高程值："))

2. （getdist "\n高程递增值：")

3.(princ "\n 选择要修改的等高线:") (setq ss (ssget '((0 . "LWPOLYLINE")))

4.根据选到的等高线，用面积或其他方式判断，排序后自动付给高程值。

这样可以一次处理多个高程的等高线

trueman250

谢谢指教

 

逻辑非

超然A 发表于 2006-4-5 00:10
不过你那个高程值就是线上点的Z坐标是吧？
那编程起来应该是蛮简单的啊。你会LISP吧？估计你不会^_^
我刚开 ...

不错，可以实现楼主的意思了，但如何使得图上等高线高程 整体增减一个数呢？