[求助]：批量给线加高程值

gufengyin

请问哪位高手可以编一个可以给线批量加高程值的,也就是Z值,比如有10根线,画一根线经过横跨这10根线,然后指定第一根线的高程值,其它的线根据一定的值(如5)自动增加!
                                                                                                                                   谢谢

WHGF

帮你顶，希望高手给出实例

gufengyin

请高手帮帮忙罗，因为急着用！

XWT670530

天正有连续标高的功能，你可以试试

buweida

不知道你的线是不是本身的Z值就是要标的高程？如果是，那么很多测绘类软件都有这这功能。如CASS。

david96007

提示点取的点是用老栏选等高线的!

第一条等高线是离第一点最近的!它是"基准"!

等高线间距可以输入负值,等高线就成下降的了!

程序在2006下好像没什么问题,但我在2000下确遇到了麻烦,正在寻找解决办法!

遇到的问题奇怪的很,选择集内实体的排序顺序混乱;同样的图,在r14下,ctrl+c然后ctrl+v再炸开后,用程序调整等高线,以前排序混乱的情况却没了!不知道问题到底出在哪儿?!

2. 
   
3. (defun c:tt (/
   
4. ;;;             pt pt01 pt02 pt_lst ll ss L_ss ent_l nam e gaocheng gch
   
5.              )
   
6.   (setq        pt     (getpoint "点取等高线垂线第1点:")
   
7.         pt01   pt
   
8.         pt02   pt
   
9.         pt_lst nil
   
10.   )
    
11.   (WHILE PT
    
12.     (SETQ PT_LST (APPEND PT_LST (LIST PT))
    
13.           LL         (LENGTH pt_lst)
    
14.           pt         (getpoint (strcat "\n点取等高线垂线第"
    
15.                                    (rtos (+ 1 ll))
    
16.                                    "点(回车完成选择):"
    
17.                            )
    
18.                            pt
    
19.                  )
    
20.     )
    
21.     (if        pt
    
22.       (progn (grdraw pt02 pt 1 1) (setq pt02 pt))
    
23.     )
    
24.   )
    
25.   (setq        ss    (ssget "f" pt_lst '((0 . "LINE,LWPOLYLINE,POLYLINE")))
    
26.         l_ss  (sslength ss)
    
27.         ent_l (entget (ssname ss 0))
    
28.         nam   (cdr (assoc 0 ent_l))
    
29.   )
    
30.   (if (= nam "LWPOLYLINE")
    
31.     (setq e           (cdr (assoc 38 ent_l))
    
32.           gaocheng (getreal
    
33.                      (strcat "输入第一条等高线高程<" (rtos e 2 0) ">:")
    
34.                    )
    
35.     )
    
36.     (setq e           (last (assoc 10 ent_l))
    
37.           gaocheng (getreal
    
38.                      (strcat "输入第一条等高线高程<" (rtos e 2 0) ">:")
    
39.                    )
    
40.     )
    
41.   )
    
42.   (if gaocheng
    
43.     ()
    
44.     (setq gaocheng e)
    
45.   )
    
46.   (setq gch (getreal "输入等高线间距<1000>:"))
    
47.   (if gch
    
48.     ()
    
49.     (setq gch 1000)
    
50.   )
    
51.   (setq n 0)
    
52.   (while (< n l_ss)
    
53.     (setq ent_l        (entget (ssname ss n))
    
54.           nam        (cdr (assoc 0 ent_l))
    
55.     )
    
56.     (if        (= nam "LINE")
    
57.       (setq ent_l (subst (append (reverse (cdr (reverse (assoc 10 ent_l))))
    
58.                                  (list gaocheng)
    
59.                          )
    
60.                          (assoc 10 ent_l)
    
61.                          ent_l
    
62.                   )
    
63.             ent_l (subst (append (reverse (cdr (reverse (assoc 11 ent_l))))
    
64.                                  (list gaocheng)
    
65.                          )
    
66.                          (assoc 11 ent_l)
    
67.                          ent_l
    
68.                   )
    
69.       )
    
70.       (if (= nam "LWPOLYLINE")
    
71.         (setq ent_l (subst (cons 38 gaocheng) (assoc 38 ent_l) ent_l))
    
72.         (setq ent_l
    
73.                (subst (append (reverse (cdr (reverse (assoc 10 ent_l))))
    
74.                               (list gaocheng)
    
75.                       )
    
76.                       (assoc 10 ent_l)
    
77.                       ent_l
    
78.                )
    
79.         )
    
80.       )
    
81.     )
    
82.     (entmod ent_l)
    
83.     (setq gaocheng (+ gaocheng gch)
    
84.           n           (1+ n)
    
85.     )
    
86.   )
    
87.   (command "redraw")
    
88.   (princ)
    
89. )
    

<br /> (defun c:tt (/<br /> ;;;             pt pt01 pt02 pt_lst ll ss L_ss ent_l nam e gaocheng gch<br />              )<br />   (setq        pt     (getpoint "点取等高线垂线第1点:")<br />         pt01   pt<br />         pt02   pt<br />         pt_lst nil<br />   )<br />   (WHILE PT<br />     (SETQ PT_LST (APPEND PT_LST (LIST PT))<br />           LL         (LENGTH pt_lst)<br />           pt         (getpoint (strcat "\n点取等高线垂线第"<br />                                    (rtos (+ 1 ll))<br />                                    "点(回车完成选择):"<br />                            )<br />                            pt<br />                  )<br />     )<br />     (if        pt<br />       (progn (grdraw pt02 pt 1 1) (setq pt02 pt))<br />     )<br />   )<br />   (setq        ss    (ssget "f" pt_lst '((0 . "LINE,LWPOLYLINE,POLYLINE")))<br />         l_ss  (sslength ss)<br />         ent_l (entget (ssname ss 0))<br />         nam   (cdr (assoc 0 ent_l))<br />   )<br />   (if (= nam "LWPOLYLINE")<br />     (setq e           (cdr (assoc 38 ent_l))<br />           gaocheng (getreal<br />                      (strcat "输入第一条等高线高程<" (rtos e 2 0) ">:")<br />                    )<br />     )<br />     (setq e           (last (assoc 10 ent_l))<br />           gaocheng (getreal<br />                      (strcat "输入第一条等高线高程<" (rtos e 2 0) ">:")<br />                    )<br />     )<br />   )<br />   (if gaocheng<br />     ()<br />     (setq gaocheng e)<br />   )<br />   (setq gch (getreal "输入等高线间距<1000>:"))<br />   (if gch<br />     ()<br />     (setq gch 1000)<br />   )<br />   (setq n 0)<br />   (while (< n l_ss)<br />     (setq ent_l        (entget (ssname ss n))<br />           nam        (cdr (assoc 0 ent_l))<br />     )<br />     (if        (= nam "LINE")<br />       (setq ent_l (subst (append (reverse (cdr (reverse (assoc 10 ent_l))))<br />                                  (list gaocheng)<br />                          )<br />                          (assoc 10 ent_l)<br />                          ent_l<br />                   )<br />             ent_l (subst (append (reverse (cdr (reverse (assoc 11 ent_l))))<br />                                  (list gaocheng)<br />                          )<br />                          (assoc 11 ent_l)<br />                          ent_l<br />                   )<br />       )<br />       (if (= nam "LWPOLYLINE")<br />         (setq ent_l (subst (cons 38 gaocheng) (assoc 38 ent_l) ent_l))<br />         (setq ent_l<br />                (subst (append (reverse (cdr (reverse (assoc 10 ent_l))))<br />                               (list gaocheng)<br />                       )<br />                       (assoc 10 ent_l)<br />                       ent_l<br />                )<br />         )<br />       )<br />     )<br />     (entmod ent_l)<br />     (setq gaocheng (+ gaocheng gch)<br />           n           (1+ n)<br />     )<br />   )<br />   (command "redraw")<br />   (princ)<br /> )<br />

shuaier

恩,还有其它的没有了,程序不错!

acad_3

二楼能不能说的详细一点，我很想知道，因为我要建模匝道