[ 编程申请]：根据标高坡长计算坡度（总图场地）

bagpipe80 · 发表于 2005-5-18 22:40:52

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

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

×

找了好久好像没有，我希望的是建筑室外道路的那种标注方法
如图，有一段线（直线，弧线，多义线等），和两个标高数字（线、数字单位均为米），
能不能直接生成中间的那个标注，箭头下面就是线的长度，上面是坡度（百分之），箭头是坡向

如果复杂一点，起点标高、终点标高、线长、坡度（及坡向），四个数据已知其中三个是否能算出另一个？

谢谢

xyp1964 · 发表于 2005-5-20 13:03:29

四个数据已知其中三个可以算出另一个：共6种情况。
通常情况：
路线固定（线长已知）、知道起点或终点中的一个标高，
a. 知道第二点标高，求坡度。
b. 知道坡度，求第二点标高。

盘山路：
已知两点标高和规范坡度要求，求路长。

……
不知如何？

bagpipe80 · 发表于 2005-5-20 21:02:49

楼上大大可有这种程序？

盘山路？难道叫计算机选线，这个不大可能哦，除非计算机能识别地形。

xyp1964 · 发表于 2005-5-20 23:53:36

命令：PD （坡度）
修改增强版，试试：

huiling6868 · 发表于 2005-5-21 02:25:13

坡度标注能拾取第一点但拾取第二点显示为0.00,还有能改动一下标高标注,就是改为动态引出线方式h=0.000.

请重新下载程序，再试。“动态引出线方式h=0.000”何意？by xyp1964[/COLOR]

jinsong-liao · 发表于 2005-5-23 10:28:00

1.标高表示不符合规范要求。
2.坡度一般不加％，因设计说明中一次说明。
3.如果是多义线则不能正确表示。

bagpipe80 · 发表于 2005-5-24 22:10:57

谢谢xyp1964，
评论两句权作感谢，不要当做挑毛病哦
1. 如上，如果是多义线则不能正确表示，而现实中大部分都是直线、平曲线结合的多义线。
2. 每次都要选出图比例，一般一张图只会一个比例
3. 后续0不应该取消，5.000 和 5 表示不同精度
交流一下，别无他意
还有楼上，我们设计院一直都是这样，我也和规范对这看过，但是规范上没有明确规定阿，楼上兄弟可否举个例子，或是告诉正确表示的规范名称页数，不胜感谢！

xyp1964 · 发表于 2005-5-25 00:13:35

4楼增强版程序，支持任意线，示意：

bagpipe80 · 发表于 2005-5-25 22:22:22

再次谢谢xyp1964 ，可以标多义线，但是还有几个问题：）
1，坡向不是从高指向低，而是从第二个选择标高指向第一个选择对象
2.，还是没有精度
另外，jinsong-liao ，坡度确实不写%号，是我当时发示意图的一个手误，（xyp1964 大大能不能把那个百分号去了，呵呵），但是标高确实一直是这样。

cansheng · 发表于 2005-5-26 13:34:37

我想下载此程序！菜鸟！！

有点小烦 · 发表于 2006-4-13 09:46:55

我用了一下显示的坡度为百分整数，不带小数的，不知道怎么设置，我查了一下UN，小数点后有四位呢！

jinsong-liao · 发表于 2006-4-13 10:14:43

xyp1964 斑竹能否将 PD （坡度）修改增强版的源代码公布出来，方便大家修改为自己的习惯表达方式？要求有点过分！不过你的程序绝大部分都公布了源代码。

xyp1964 · 发表于 2006-4-13 13:10:39

[FONT=courier new]
(load "xyp_lib.vlx") ;版本 V.20060413
;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
★1·在acad.lsp中增加(load"xyp_lib.vlx")
■2·在每个程序内增加(load"xyp_lib.vlx")
■3·在command下，输入(load"xyp_lib.vlx")
■4·在菜单.mnl中增加(load"xyp_lib.vlx")
■5·将xyp_lib.vlx文件直接拽到cad屏幕
[COLOR=red] ★通用函数下载地址：[/COLOR]
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
|;
;;;[url]http://p4.xdcad.net/forum/showthread.php?s=&threadid=389500[/url]
;;;pdbz(坡度标注)
(defun c:pdbz ()
(CMDLASC0)
(setq h (* SC 300))
(command "osnap" "int,endp,cen")
(mkla "总图-标高" 3)
(if (null tx1)
(setq tx1 "1")
)
(if (null tx2)
(setq tx2 "1")
)
(setq tx1 (ukword 1 "1 2" "\n标高输入方式 : 1-输入/2-拾取" tx1)
tx2 (ukword 1 "1 2" "\n道路方式 : 1-两点/2-拾取" tx2)
)
(cond ((= tx2 "1") (mode01))
((= tx2 "2") (mode02))
)
(redraw)
(CMDLA1)
)
(defun mode01 ()
(while (setq pt1 (getpoint "\n起点位置<退出> : "))
(setq pt2 (getpoint pt1 "\n端点位置<退出> : "))
(if (and pt1 pt2)
(progn
(xyp-Cross pt1 (* Sc 1000) 0)
(xyp-Cross pt2 (* Sc 1000) 0)
(grdraw pt1 pt2 1)
(cond
((= tx1 "1")
(while (not (setq NO1 (ureal 1 "" "\n输入起点标高值" NO1))))
(while (not (setq NO2 (ureal 1 "" "\n输入端点标高值" NO2))))
)
((= tx1 "2")
(setq e1 (usel 0 "TEXT" "TEXT文本")
e2 (usel 0 "TEXT" "TEXT文本")
no1 (atof (xyp-get-dxf 1 (car e1)))
no2 (atof (xyp-get-dxf 1 (car e2)))
)
)
)
(command "osnap" "none")
(setq dx (distance pt1 pt2)
x (/ (- NO1 NO2) dx 0.01)
jd (angle pt1 pt2)
jd2 (angtos (+ jd pi) 0 2)
jd1 (angtos jd 0 2)
pdz (rtos (abs x) 2 3) ;(strcat (rtos (abs x) 2 3) "%")
pt3 (polar pt1 jd (/ dx 2.0))
pt4 (polar pt3 (+ (/ pi 2.0) jd) (+ (/ bl 1.0) (/ h 2.0)))
pt5 (polar pt3
(- 0 (- (/ pi 2.0) jd))
(+ (/ h 2.0) (/ bl 1.0))
)
s1 (+ (max (strlen pdz) (strlen (rtos dx 2 3))) 1)
s2 (/ (* h 0.7 s1) 2.0)
pt6 (polar pt3 jd s2)
pt7 (polar pt3 jd (- 0 s2))
pt8 (polar pt3 jd (- s2 (* h 0.8)))
pt9 (polar pt3 jd (- 0 (- s2 (* h 0.8))))
pt1a (polar pt1 (+ jd (* pi 0.5)) (* sc 300))
pt2a (polar pt2 (+ jd (* pi 0.5)) (* sc 300))
)
(mkla "总图-坡度" 4)
(if (>= (car pt2) (car pt1))
(progn
(command "text" "j" "m" pt4 h jd1 pdz)
(command "text" "j" "m" pt5 h jd1 (rtos dx 2 3))
)
(progn
(command "text" "j" "m" pt5 h jd2 pdz)
(command "text" "j" "m" pt4 h jd2 (rtos dx 2 3))
)
)
(if (> NO1 NO2)
(command "pline" pt8 "w" (* h 0.2) "0" pt6 "")
(command "pline" pt9 "w" (* h 0.2) "0" pt7 "")
)
(command "line" pt6 pt7 "")
(cond ((= tx1 "1")
(command "text" "j" "m" pt1a h 0 (rtos no1 2 3))
(command "text" "j" "m" pt2a h 0 (rtos no2 2 3))
(mkla "总图-坡度-位置" 1)
(command "donut" 0 (* sc 100) pt1 "")
(command "donut" 0 (* sc 100) pt2 "")
)
((= tx1 "2")
(mkla "总图-坡度-位置" 1)
(command "donut" 0 (* sc 100) pt1 "")
(command "donut" 0 (* sc 100) pt2 "")
)
)
)
)
)
)
(defun mode02 ()
(while (setq s1 (entsel "\n选择道路<退出> : "))
(setq e (car s1))
(setq pt1 (xyp-get-CurveStartPoint e)
pt2 (xyp-get-CurveEndPoint e)
leng (xyp-get-CurveLength e)
)
(xyp-Cross pt1 (* Sc 1000) 0)
(xyp-Cross pt2 (* Sc 1000) 0)
(grdraw pt1 pt2 1)
(cond
((= tx1 "1")
(while (not (setq NO1 (ureal 1 "" "\n输入起点标高值" NO1))))
(while (not (setq NO2 (ureal 1 "" "\n输入端点标高值" NO2))))
)
((= tx1 "2")
(setq e1 (usel 0 "TEXT" "TEXT文本")
e2 (usel 0 "TEXT" "TEXT文本")
no1 (atof (xyp-get-dxf 1 (car e1)))
no2 (atof (xyp-get-dxf 1 (car e2)))
)
)
)
(command "osnap" "none")
(setq dx leng
x (/ (- NO1 NO2) dx 0.01)
jd (angle pt1 pt2)
jd2 (angtos (+ jd pi) 0 2)
jd1 (angtos jd 0 2)
pdz (rtos (abs x) 2 3) ;(strcat (rtos (abs x) 2 3) "%")
pt3 (xyp-get-CurvePointAtDist e (/ leng 2.0))
pt4 (polar pt3 (+ (/ pi 2.0) jd) (+ (/ bl 1.0) (/ h 2.0)))
pt5 (polar pt3 (- 0 (- (/ pi 2.0) jd)) (+ (/ h 2.0) (/ bl 1.0)))
s1 (+ (max (strlen pdz) (strlen (rtos dx 2 3))) 1)
s2 (/ (* h 0.7 s1) 2.0)
pt6 (polar pt3 jd s2)
pt7 (polar pt3 jd (- 0 s2))
pt8 (polar pt3 jd (- s2 (* h 0.8)))
pt9 (polar pt3 jd (- 0 (- s2 (* h 0.8))))
pt1a (polar pt1 (+ jd (* pi 0.5)) (* sc 300))
pt2a (polar pt2 (+ jd (* pi 0.5)) (* sc 300))
)
(mkla "总图-坡度" 4)
(if (>= (car pt2) (car pt1))
(progn
(command "text" "j" "m" pt4 h jd1 pdz)
(command "text" "j" "m" pt5 h jd1 (rtos dx 2 3))
)
(progn
(command "text" "j" "m" pt5 h jd2 pdz)
(command "text" "j" "m" pt4 h jd2 (rtos dx 2 3))
)
)
(if (> NO1 NO2)
(command "pline" pt8 "w" (* h 0.2) "0" pt6 "")
(command "pline" pt9 "w" (* h 0.2) "0" pt7 "")
)
(command "line" pt6 pt7 "")
(cond ((= tx1 "1")
(command "text" "j" "m" pt1a h 0 (rtos no1 2 3))
(command "text" "j" "m" pt2a h 0 (rtos no2 2 3))
(mkla "总图-坡度-位置" 1)
(command "donut" 0 (* sc 100) pt1 "")
(command "donut" 0 (* sc 100) pt2 "")
)
((= tx1 "2")
(mkla "总图-坡度-位置" 1)
(command "donut" 0 (* sc 100) pt1 "")
(command "donut" 0 (* sc 100) pt2 "")
)
)
)
)
(PXYP "pdbz (坡度标注)")
(princ)
[/FONT]

[FONT=courier new] 
(load "xyp_lib.vlx")  ;版本 V.20060413 
;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下) 
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序： 
★1·在acad.lsp中增加(load"xyp_lib.vlx") 
■2·在每个程序内增加(load"xyp_lib.vlx") 
■3·在command下，输入(load"xyp_lib.vlx") 
■4·在菜单.mnl中增加(load"xyp_lib.vlx") 
■5·将xyp_lib.vlx文件直接拽到cad屏幕 
[COLOR=red] ★通用函数下载地址：[/COLOR] 
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url] 
|; 
 
;;;[url]http://p4.xdcad.net/forum/showthread.php?s=&threadid=389500[/url] 
;;;pdbz(坡度标注) 
(defun c:pdbz () 
  (CMDLASC0) 
  (setq h (* SC 300)) 
  (command "osnap" "int,endp,cen") 
  (mkla "总图-标高" 3) 
  (if (null tx1) 
    (setq tx1 "1") 
  ) 
  (if (null tx2) 
    (setq tx2 "1") 
  ) 
  (setq        tx1 (ukword 1 "1 2" "\n标高输入方式 : 1-输入/2-拾取" tx1) 
        tx2 (ukword 1 "1 2" "\n道路方式 : 1-两点/2-拾取" tx2) 
  ) 
  (cond        ((= tx2 "1") (mode01)) 
        ((= tx2 "2") (mode02)) 
  ) 
  (redraw) 
  (CMDLA1) 
) 
 
(defun mode01 () 
  (while (setq pt1 (getpoint "\n起点位置<退出> : ")) 
    (setq pt2 (getpoint pt1 "\n端点位置<退出> : ")) 
    (if        (and pt1 pt2) 
      (progn 
        (xyp-Cross pt1 (* Sc 1000) 0) 
        (xyp-Cross pt2 (* Sc 1000) 0) 
        (grdraw pt1 pt2 1) 
        (cond 
          ((= tx1 "1") 
           (while (not (setq NO1 (ureal 1 "" "\n输入起点标高值" NO1)))) 
           (while (not (setq NO2 (ureal 1 "" "\n输入端点标高值" NO2)))) 
          ) 
          ((= tx1 "2") 
           (setq e1  (usel 0 "TEXT" "TEXT文本") 
                 e2  (usel 0 "TEXT" "TEXT文本") 
                 no1 (atof (xyp-get-dxf 1 (car e1))) 
                 no2 (atof (xyp-get-dxf 1 (car e2))) 
           ) 
          ) 
        ) 
        (command "osnap" "none") 
        (setq dx   (distance pt1 pt2) 
              x           (/ (- NO1 NO2) dx 0.01) 
              jd   (angle pt1 pt2) 
              jd2  (angtos (+ jd pi) 0 2) 
              jd1  (angtos jd 0 2) 
              pdz  (rtos (abs x) 2 3)        ;(strcat (rtos (abs x) 2 3) "%") 
              pt3  (polar pt1 jd (/ dx 2.0)) 
              pt4  (polar pt3 (+ (/ pi 2.0) jd) (+ (/ bl 1.0) (/ h 2.0))) 
              pt5  (polar pt3 
                          (- 0 (- (/ pi 2.0) jd)) 
                          (+ (/ h 2.0) (/ bl 1.0)) 
                   ) 
              s1   (+ (max (strlen pdz) (strlen (rtos dx 2 3))) 1) 
              s2   (/ (* h 0.7 s1) 2.0) 
              pt6  (polar pt3 jd s2) 
              pt7  (polar pt3 jd (- 0 s2)) 
              pt8  (polar pt3 jd (- s2 (* h 0.8))) 
              pt9  (polar pt3 jd (- 0 (- s2 (* h 0.8)))) 
              pt1a (polar pt1 (+ jd (* pi 0.5)) (* sc 300)) 
              pt2a (polar pt2 (+ jd (* pi 0.5)) (* sc 300)) 
        ) 
        (mkla "总图-坡度" 4) 
        (if (>= (car pt2) (car pt1)) 
          (progn 
            (command "text" "j" "m" pt4 h jd1 pdz) 
            (command "text" "j" "m" pt5 h jd1 (rtos dx 2 3)) 
          ) 
          (progn 
            (command "text" "j" "m" pt5 h jd2 pdz) 
            (command "text" "j" "m" pt4 h jd2 (rtos dx 2 3)) 
          ) 
        ) 
        (if (> NO1 NO2) 
          (command "pline" pt8 "w" (* h 0.2) "0" pt6 "") 
          (command "pline" pt9 "w" (* h 0.2) "0" pt7 "") 
        ) 
        (command "line" pt6 pt7 "") 
        (cond ((= tx1 "1") 
               (command "text" "j" "m" pt1a h 0 (rtos no1 2 3)) 
               (command "text" "j" "m" pt2a h 0 (rtos no2 2 3)) 
               (mkla "总图-坡度-位置" 1) 
               (command "donut" 0 (* sc 100) pt1 "") 
               (command "donut" 0 (* sc 100) pt2 "") 
              ) 
              ((= tx1 "2") 
               (mkla "总图-坡度-位置" 1) 
               (command "donut" 0 (* sc 100) pt1 "") 
               (command "donut" 0 (* sc 100) pt2 "") 
              ) 
        ) 
      ) 
    ) 
  ) 
) 
 
(defun mode02 () 
  (while (setq s1 (entsel "\n选择道路<退出> : ")) 
    (setq e (car s1)) 
    (setq pt1  (xyp-get-CurveStartPoint e) 
          pt2  (xyp-get-CurveEndPoint e) 
          leng (xyp-get-CurveLength e) 
    ) 
    (xyp-Cross pt1 (* Sc 1000) 0) 
    (xyp-Cross pt2 (* Sc 1000) 0) 
    (grdraw pt1 pt2 1) 
    (cond 
      ((= tx1 "1") 
       (while (not (setq NO1 (ureal 1 "" "\n输入起点标高值" NO1)))) 
       (while (not (setq NO2 (ureal 1 "" "\n输入端点标高值" NO2)))) 
      ) 
      ((= tx1 "2") 
       (setq e1         (usel 0 "TEXT" "TEXT文本") 
             e2         (usel 0 "TEXT" "TEXT文本") 
             no1 (atof (xyp-get-dxf 1 (car e1))) 
             no2 (atof (xyp-get-dxf 1 (car e2))) 
       ) 
      ) 
    ) 
    (command "osnap" "none") 
    (setq dx   leng 
          x    (/ (- NO1 NO2) dx 0.01) 
          jd   (angle pt1 pt2) 
          jd2  (angtos (+ jd pi) 0 2) 
          jd1  (angtos jd 0 2) 
          pdz  (rtos (abs x) 2 3)        ;(strcat (rtos (abs x) 2 3) "%") 
          pt3  (xyp-get-CurvePointAtDist e (/ leng 2.0)) 
          pt4  (polar pt3 (+ (/ pi 2.0) jd) (+ (/ bl 1.0) (/ h 2.0))) 
          pt5  (polar pt3 (- 0 (- (/ pi 2.0) jd)) (+ (/ h 2.0) (/ bl 1.0))) 
          s1   (+ (max (strlen pdz) (strlen (rtos dx 2 3))) 1) 
          s2   (/ (* h 0.7 s1) 2.0) 
          pt6  (polar pt3 jd s2) 
          pt7  (polar pt3 jd (- 0 s2)) 
          pt8  (polar pt3 jd (- s2 (* h 0.8))) 
          pt9  (polar pt3 jd (- 0 (- s2 (* h 0.8)))) 
          pt1a (polar pt1 (+ jd (* pi 0.5)) (* sc 300)) 
          pt2a (polar pt2 (+ jd (* pi 0.5)) (* sc 300)) 
    ) 
    (mkla "总图-坡度" 4) 
    (if        (>= (car pt2) (car pt1)) 
      (progn 
        (command "text" "j" "m" pt4 h jd1 pdz) 
        (command "text" "j" "m" pt5 h jd1 (rtos dx 2 3)) 
      ) 
      (progn 
        (command "text" "j" "m" pt5 h jd2 pdz) 
        (command "text" "j" "m" pt4 h jd2 (rtos dx 2 3)) 
      ) 
    ) 
    (if        (> NO1 NO2) 
      (command "pline" pt8 "w" (* h 0.2) "0" pt6 "") 
      (command "pline" pt9 "w" (* h 0.2) "0" pt7 "") 
    ) 
    (command "line" pt6 pt7 "") 
    (cond ((= tx1 "1") 
           (command "text" "j" "m" pt1a h 0 (rtos no1 2 3)) 
           (command "text" "j" "m" pt2a h 0 (rtos no2 2 3)) 
           (mkla "总图-坡度-位置" 1) 
           (command "donut" 0 (* sc 100) pt1 "") 
           (command "donut" 0 (* sc 100) pt2 "") 
          ) 
          ((= tx1 "2") 
           (mkla "总图-坡度-位置" 1) 
           (command "donut" 0 (* sc 100) pt1 "") 
           (command "donut" 0 (* sc 100) pt2 "") 
          ) 
    ) 
  ) 
) 
(PXYP "pdbz  (坡度标注)") 
(princ) 
[/FONT]

命令 : pdbz (坡度标注)

jinsong-liao · 发表于 2006-4-13 14:50:41

象xyp1964这样的斑竹真是不多见了！有求必应哟！对论坛管理和对大家帮助的热情“始终如一”，建议晓东开展“2005～2006年度感动中国十大斑竹”活动，我举双手投票赞成xyp1964 同志！

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

[ 编程申请]：根据标高坡长计算坡度（总图场地）

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

相关帖子

浏览过的版块