（更新 6.15）[编程申请]：能否做一个切地形图纵、横剖面的程序

msdg · 发表于 2003-6-3 14:01:01

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

XDSOFT、EACHY：
在水利水电工程设计中，经常会遇到如题问题。ZDM3。0中有这个功能，经实际运用，发现其有不足之处，主要表现在：1、切剖面只能剖直线，不能剖曲线。2、经常会多处漏切，即使按其提示办法也不能完全解决，特别是横剖面。3、切在两条同高等高线之间，其连接线是直线，而实际应该是曲线。
要求：剖面切出后，在剖面的左边有高程标尺，下边有等高线的间距，剖面线上有等高线高程。
在求剖面图时，用户能设定图的比例、字高等。
附参考图：

eachy · 发表于 2003-6-4 14:51:40

最初由 msdg 发布
[B]XDSOFT、EACHY：
在水利水电工程设计中，经常会遇到如题问题。ZDM3。0中有这个功能，经实际运用，发现其有不足之处，主要表现在：1、切剖面只能剖直线，不能剖曲线。2、经常会多处漏切，即使按其提示办法也不能完全... [/B]

先写了个等高线赋值。

(if (not $xdtb_globle_high1)
(setq $xdtb_globle_high1 "10")
)
(if (not $xdtb_globle_high2)
(setq $xdtb_globle_high2 "1")
)
(if (not $XDTB_globle_scale)
(setq $XDTB_globle_scale 1.)
)
(defun $set_high (/ hig)
(princ "\n输入起始高程[H]或高程与高差[H,h]...")
(setq hig (getstring "\n输入高程或高程、高程或高差: "))
(cond
((= (substr hig 1 1) ",")
(setq $xdtb_globle_high2 (substr hig 2))
)
((xdrx_string_find hig ",")
(setq $xdtb_globle_high1 (car (xdrx_string_tok hig ","))
$xdtb_globle_high2 (cadr (xdrx_string_tok hig ","))
)
)
(t (setq $xdtb_globle_high1 hig))
)
)
;;等高线赋值
(defun c:XDTB_FZ (/ $_setxdata tf e p1 p2 pint ss tf0 e1 hig)
(defun $_setxdata (e p tf1 h / ang txt e1 ln)
(if (> tf1 1)
(setq $xdtb_globle_high1
(rtos (+ (read $xdtb_globle_high1)
(read $xdtb_globle_high2)
)
2
0
)
)
)
(setq ang ($xdlsp_angle_format
(car (xdrx_getperpline e p))
)
)
(command ".text"
"j"
"mc"
p
(* 2.5 $XDTB_globle_scale)
($xdlsp_rtd ang)
$xdtb_globle_high1
)
(setq na (cadr (xdrx_object_classname e)))
(setq txt (entlast)
ln (list e p)
)
(command ".trim" txt "" ln "")
(setq e1 (entlast))
(if (= (cadr (xdrx_object_classname e1)) na)
(xdrx_setxdata e1 "Yb_high" (if h h $xdtb_globle_high1))
)
(xdrx_setxdata e "Yb_high" (if h h $xdtb_globle_high1))
)
(xdrx_begin)
(xdrx_ucson)
(xdrx_sysvar_push "osmode")
(setvar "dimzin" 0)
(setvar "osmode" 0)
(setq tf t)
(while tf
(princ (strcat "\n当前高程 H＝"
(if h1
h1
$xdtb_globle_high1
)
", 高差 h＝"
$xdtb_globle_high2
)
)
(initget 128 "F S M")
(setq e (xdrx_entsel
"\n选择等高线[S - 设置 / F - 多选 / M - 匹配]<Exit>: "
'((0 . "*line,arc,circle,ellipse"))
)
)
(cond
((= e "S")
($set_high)
)
((= e "F")
(princ "\n注意: 按递增方向选择.....")
(if (and (setq p1 (getpoint "\n第一点: "))
(setq p2 (getpoint p1 "\n第二点: "))
)
(progn
(xdrx_line1 p1 p2)
(setq ent1 (entlast))
(setq ss (ssget "F" (list p1 p2) '((0 . "*line,arc,circle,ellipse"))))
(xdrx_setsstodb ss 0)
(while (setq e1 (xdrx_getentdata 0))
(if (not tf0)
(setq tf0 1)
)
(setq pint (xdrx_getinters e1 ent1 0))
($_setxdata e1 (car pint) tf0 nil)
(setq tf0 (1+ tf0))
)
(xdrx_entity_delete ent1)
)
)
)
((= e "M")
(setq
e (xdrx_entsel "\n选择已赋值的等高线: " '((-3 ("YB_high"))))
)
(setq hig (xdrx_getxdata (car e) "YB_high"))
(setq e1 (xdrx_entsel
"\n选择目标等高线: "
'((0 . "*line,arc,circle,ellipse"))
)
)
($_setxdata (car e1) (cadr e1) 2 hig)
)
((= (type e) 'STR)
(princ "\n输入错误!")
)
((= (type e) 'LIST)
(progn
(if (not tf0)
(setq tf0 1)
)
(setq pint (cadr (xdrx_curve_ClosestPoint (car e) (cadr e)))
)
($_setxdata (car e) pint tf0 nil)
(setq tf0 (1+ tf0))
)
)
(t (setq tf nil))
)
)
(xdrx_sysvar_pop)
(xdrx_ucsoff)
(xdrx_end)
(princ)
)

(if (not $xdtb_globle_high1) 
  (setq $xdtb_globle_high1 "10") 
) 
(if (not $xdtb_globle_high2) 
  (setq $xdtb_globle_high2 "1") 
) 
(if (not $XDTB_globle_scale) 
  (setq $XDTB_globle_scale 1.) 
) 
(defun $set_high (/ hig) 
  (princ "\n输入起始高程[H]或高程与高差[H,h]...") 
  (setq hig (getstring "\n输入高程或高程、高程或高差: ")) 
  (cond 
    ((= (substr hig 1 1) ",") 
     (setq $xdtb_globle_high2 (substr hig 2)) 
    ) 
    ((xdrx_string_find hig ",") 
     (setq $xdtb_globle_high1 (car (xdrx_string_tok hig ",")) 
           $xdtb_globle_high2 (cadr (xdrx_string_tok hig ",")) 
     ) 
    ) 
    (t (setq $xdtb_globle_high1 hig)) 
  ) 
) 
;;等高线赋值 
(defun c:XDTB_FZ (/ $_setxdata tf e p1 p2 pint ss tf0 e1 hig) 
  (defun $_setxdata (e p tf1 h / ang txt e1 ln) 
    (if        (> tf1 1) 
      (setq $xdtb_globle_high1 
             (rtos (+ (read $xdtb_globle_high1) 
                      (read $xdtb_globle_high2) 
                   ) 
                   2 
                   0 
             ) 
      ) 
    ) 
    (setq ang ($xdlsp_angle_format 
                (car (xdrx_getperpline e p)) 
              ) 
    ) 
    (command ".text" 
             "j" 
             "mc" 
             p 
             (* 2.5 $XDTB_globle_scale) 
             ($xdlsp_rtd ang) 
             $xdtb_globle_high1 
    ) 
    (setq na (cadr (xdrx_object_classname e))) 
    (setq txt (entlast) 
          ln  (list e p) 
    ) 
    (command ".trim" txt "" ln "") 
    (setq e1 (entlast)) 
    (if        (= (cadr (xdrx_object_classname e1)) na) 
      (xdrx_setxdata e1 "Yb_high" (if h h $xdtb_globle_high1)) 
    ) 
    (xdrx_setxdata e "Yb_high" (if h h $xdtb_globle_high1)) 
  ) 
  (xdrx_begin) 
  (xdrx_ucson) 
  (xdrx_sysvar_push "osmode") 
  (setvar "dimzin" 0) 
  (setvar "osmode" 0) 
  (setq tf t) 
  (while tf 
    (princ (strcat "\n当前高程 H＝" 
                   (if h1 
                     h1 
                     $xdtb_globle_high1 
                   ) 
                   ", 高差 h＝" 
                   $xdtb_globle_high2 
           ) 
    ) 
    (initget 128 "F S M") 
    (setq e (xdrx_entsel 
              "\n选择等高线[S - 设置 / F - 多选 / M - 匹配]<Exit>: " 
              '((0 . "*line,arc,circle,ellipse")) 
            ) 
    ) 
    (cond 
      ((= e "S") 
       ($set_high) 
      ) 
      ((= e "F") 
       (princ "\n注意: 按递增方向选择.....") 
       (if (and        (setq p1 (getpoint "\n第一点: ")) 
                (setq p2 (getpoint p1 "\n第二点: ")) 
           ) 
         (progn 
           (xdrx_line1 p1 p2) 
           (setq ent1 (entlast)) 
           (setq ss (ssget "F" (list p1 p2) '((0 . "*line,arc,circle,ellipse")))) 
           (xdrx_setsstodb ss 0) 
           (while (setq e1 (xdrx_getentdata 0)) 
             (if (not tf0) 
               (setq tf0 1) 
             ) 
             (setq pint (xdrx_getinters e1 ent1 0)) 
             ($_setxdata e1 (car pint) tf0 nil) 
             (setq tf0 (1+ tf0)) 
           ) 
           (xdrx_entity_delete ent1) 
         ) 
       ) 
      ) 
      ((= e "M") 
        (setq 
          e (xdrx_entsel "\n选择已赋值的等高线: " '((-3 ("YB_high")))) 
        ) 
        (setq hig (xdrx_getxdata (car e) "YB_high")) 
        (setq e1 (xdrx_entsel 
                   "\n选择目标等高线: " 
                   '((0 . "*line,arc,circle,ellipse")) 
                 ) 
        ) 
        ($_setxdata (car e1) (cadr e1) 2 hig) 
      ) 
      ((= (type e) 'STR) 
       (princ "\n输入错误!") 
      ) 
      ((= (type e) 'LIST) 
       (progn 
         (if (not tf0) 
           (setq tf0 1) 
         ) 
         (setq pint (cadr (xdrx_curve_ClosestPoint (car e) (cadr e))) 
         ) 
         ($_setxdata (car e) pint tf0 nil) 
         (setq tf0 (1+ tf0)) 
       ) 
      ) 
      (t (setq tf nil)) 
    ) 
  ) 
  (xdrx_sysvar_pop) 
  (xdrx_ucsoff) 
  (xdrx_end) 
  (princ) 
)

msdg · 发表于 2003-6-5 00:31:27

辛苦了！很完美！

eachy · 发表于 2003-6-7 00:39:34

正式完成。在工具葙环境下运行

增加绘制中线

命令：XDTB_FZ 等高线赋值
命令：XDTB_DrPm 绘制剖面
命令：XDTB_DrZH 桩号标注
命令：XDTB_InsCu 等高线内插
命令：XDTB_CalArea 计算开挖面积

msdg 作个演示吧。:6

演示：
http://www.xdcad.net/modrator/fi ... 14014633_qhxzpm.swf
下载：
http://www.xdcad.net/forum/showthread.php?s=&threadid=66087

lzfat · 发表于 2003-6-8 10:26:21

有时间的时候我来做个演示，呵呵，谢谢啊，我测试一下，看看有什么意见可以提出，呵呵，抱歉啊！

j1187 · 发表于 2003-6-8 13:05:49

能否在生成的剖面中将图中轴线绿线一起生成

eachy · 发表于 2003-6-8 13:15:20

最初由 j1187 发布
[B]能否在生成的剖面中将图中轴线绿线一起生成 [/B]

绿线是什么？尽量把要求描述详细些，对水利行业的工作我一窍不通。

wubaohe · 发表于 2003-6-8 17:52:33

是个好东西，看来这里真的是高手如云！以前我都要一点一点量，然后再画！

gjq · 发表于 2003-6-8 18:39:12

是个好东西，可惜我加载不了，晓东工具箱没法安装在2004上，什么时候才能解决这个问题？

j1187 · 发表于 2003-6-9 21:55:41

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

最初由 eachy 发布
[B]
绿线是什么？尽量把要求描述详细些，对水利行业的工作我一窍不通。 [/B]

平面图如下

j1187 · 发表于 2003-6-9 21:57:40

生成的剖面图如下即可，不知表达清楚没有？

j1187 · 发表于 2003-6-9 22:02:50

上图中高程标注有误，重贴一张

XDSoft · 发表于 2003-6-9 22:06:19

最初由 j1187 发布
[B]上图中高程标注有误，重贴一张 [/B]

那个5 点和绿线绘制的依据是什么? 详细说下.

j1187 · 发表于 2003-6-9 23:20:06

绿线可以代表公路、渠道等线路的中心线，5点即是剖面与轴线的交点，既然在平面中有5点，在剖面中也应由5点，剖面中有了5点才可标出轴线的相对位置。这对于计算开挖和回填很有用。

j1187 · 发表于 2003-6-9 23:28:27

有了轴线，便可确定开挖断面的位置。

账号		自动登录	找回密码
密码			立即注册

（更新 6.15）[编程申请]：能否做一个切地形图纵、横剖面的程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [编程申请]：能否做一个切地形图纵、横剖面的程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子