[求助]：求批量给等高线赋高程的程序

hisum

其它系统导入到CAD里的文件，等高线都没有高程值，就是标高属性值，不利于进一步的工程应用。有没有办法通过拉一条线，把经过这条线的等高线依次按给定的步长赋值？请高手指教！

david96007

很久以前的东西了，自己改造一下应该可以！

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

<br /> <br /> (defun c:tt (/ pt pt01 pt02 pt_lst ll ss L_ss ent_l nam e gaocheng gch)<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 />

hisum

非常感谢！果然是高手啊

lff763

怎样给样条曲线赋标高值

st788796

lff763 发表于 2014-11-26 11:34
怎样给样条曲线赋标高值

首先你要检查spline是平面曲线，然后用move

alimax

果然是高手，确实可以。

如果能够划一条线，然后判断新划线与其他线的交点来自动赋值（省去手动点击每一条线的步骤）就更完美了

wu112031853

谢谢！！！