[求助]：关于"高程"合并

sony123

有大量的地形点需要加注上下高,,就这个问题首先需要解决的问题就是上下高程点的高程合并问题...

  不如单击高程1 高程2  ,就可以合并成高程3,,,并且要求合并出的点以高程1的圆心为准!!

  带上附件供大家研究,谢谢大家献出援手____

netbee

不明白！

是CASS生成的高程点吗？
所谓的标上下高是什么意思？坎？建筑物？桥？或其他什么东东？？？
一般的地形点是没有上下不同的高程的？
而且你所说的合并是加？减？或其他运算公式？？？

嘿嘿。。。。

sony123

主要是针对坎子,,合并只是单一的高程值的合并

下面 这个是我刚编写的不完善的程序,,达到了合并值的效果,但是在显示比例 (比原来大一倍) 和数学精度方面还存在问题,,


(defun C:12()
        (setvar "cmdecho" 0)
        (setq en1 (entsel "Select a point:"))
       
       
                (setq en1_data(entget(car en1)))
                (setq en1_type(cdr(assoc 0 en1_data)))            ;是不是插入“insert”对象
                (setq base_1xyh (cdr (assoc 10 en1_data)))        ;取得高程点1的xyh坐标值，后面以此做为
                (setq gc1 (cdr (cdr  base_1xyh)))                 ;取得高程点1的h值，做为新插入的”7023“的DH值
             
        (setq en2 (entsel "Select a point:"))     
       
               
                (setq en2_data(entget(car en2)))
                (setq en2_type(cdr(assoc 0 en2_data)))
                (setq base_2xyh (cdr (assoc 10 en2_data)))         ;取得高程点2的xyh坐标值，后面以此做为         
                (setq gc2 (cdr (cdr  base_2xyh)))                  ;取得高程点2的h值，做为新插入的”7023“的GC值  
               
                (setq GC1 (nth  0  gc1 ))
                (setq GC2 (nth  0  gc2 ))
               
                      (command  "-LAYER"  "S"  ""  ""  "insert" "C:\\program Files\\ppsp\\symbols\\7023.dwg"  base_1xyh   ""  ""  "0"  "-" GC1 GC2)   ;新插入"7023"的高程值      
                      ;(command  "-LAYER"  "S"  ""  ""  "insert" "C:\\program Files\\ppsp\\symbols\\7023.dwg" base_1xyh  ""  ""  "0"  gc1   gc2)                 
)
               
(prompt "********<<命令12:坎子高程编辑>>**********")
(prin1)

sony123

(command  "-LAYER"  "S"  ""  ""  "insert" "C:\\program Files\\ppsp\\symbols\\7023.dwg"  base_1xyh   ""  ""  "0"  "-" GC1 GC2)


(command  "-LAYER"  "S"  ""  ""  "insert" "C:\\program Files\\ppsp\\symbols\\7023.dwg"  base_1xyh   "0.5"  ""  "0"  "-" GC1 GC2)

经过把  ""    修改为  "0.5" 把显示比列的问题解决拉!!

sony123

问题已经解决:

(defun C:12()
        (setvar "cmdecho" 0)
        (setq en1 (entsel "Select a point:"))
               
                (setq en1_data(entget(car en1)))
                (setq en1_type(cdr(assoc 0 en1_data)))            ;是不是插入“insert”对象
                (setq base_1xyh (cdr (assoc 10 en1_data)))        ;取得高程点1的xyh坐标值，后面以此做为
                (setq gc1 (cdr (cdr  base_1xyh)))                 ;取得高程点1的h值列表，做为新插入的”7023“的DH值列表               
                (command "erase" en1 "")                          ;删除高程点1的对象
                
        (setq en2 (entsel "Select a point:"))     
                       
                (setq en2_data(entget(car en2)))
                (setq en2_type(cdr(assoc 0 en2_data)))
                (setq base_2xyh (cdr (assoc 10 en2_data)))         ;取得高程点2的xyh坐标值，后面以此做为         
                (setq gc2 (cdr (cdr  base_2xyh)))                  ;取得高程点2的h值列表，做为新插入的”7023“的GC值列表        
                (command "erase" en2 "")                           ;删除高程点2的对象
               
                (setq GC1 (nth  0  gc1 ))                          ;从列表中取出高程值
                (setq GC2 (nth  0  gc2 ))
               
                (setq GC1 (rtos GC1 2 2))                          ;解决AutoLisp实数的有效位数最多为16位，所以需要
                (setq GC2 (rtos GC2 2 2))                          ;对实数精度进行控制
                
                (setq Xscale (cdr (assoc 41 en1_data)))            ;读取图形X轴方向比列值
               
               
               
                      (command  "-LAYER"  "S"  ""  ""  "insert" "C:\\program Files\\ppsp\\symbols\\7023.dwg"  base_1xyh  Xscale  ""  ""    "-"  GC1  GC2 )  
                            ;新插入"7023"的高程值对象,Xscale是比列因子是由图形对象的X轴比例尺决定的，而非图形比列尺。。   
                            ;Xscale  ""  "" 分别为Xscale,Yscale,Zscale 。
                      ;"-" 为标记符号                                       
)
               
(prompt "********<<命令12:坎子高程编辑>>**********")
(prin1)




        希望各位能指点指点!!!!!