求已知起点终点水平标注标高。求高手出手谢谢

flytoday · 发表于 2012-12-20 21:07:19

测试文件：

操作：
1---指定起点输入标高
2---指定终点输入标高
3---进行标高标高并生成高度线
麻烦哪位高手出手帮忙谢谢

夏生生 · 发表于 2012-12-20 21:07:20

本帖最后由夏生生于 2012-12-21 08:37 编辑

flytoday 发表于 2012-12-21 07:12
沉滴好快顶起哈………

试试

(defun c:test1 ( / oldos pt1 pt2 ptx ang bg1 bg2 bgx dist disx)
(setq oldos (getvar "osmode"))
(setvar "osmode" 513)
(setq pt1 (getpoint "\n选择起点:")
bg1 (getreal "\n输入起点标高:")
pt2 (getpoint "\n选择终点:")
bg2 (getreal "\n输入终点标高:")
dist (distance pt1 pt2)
ang (+ (/ pi 2) (angle pt1 pt2))
)
(entmake (list '(0 . "line")
(cons 10 pt1)
(cons 11 (polar pt1 ang (* bg1 1000)))
)
)
(entmake (list '(0 . "text")
'(10 0 0 0)
(cons 11 (polar pt1 ang (* bg1 1000)))
(cons 1 (rtos bg1 2 3))
'(40 . 250)
'(41 . 0.75)
(cons 50 (- ang (/ pi 2)))
'(7 . "standard")
'(72 . 1)
'(73 . 0)
)
)
(entmake (list '(0 . "line")
(cons 10 pt2)
(cons 11 (polar pt2 ang (* bg2 1000)))
)
)
(entmake (list '(0 . "text")
'(10 0 0 0)
(cons 11 (polar pt2 ang (* bg2 1000)))
(cons 1 (rtos bg2 2 3))
'(40 . 250)
'(41 . 0.75)
(cons 50 (- ang (/ pi 2)))
'(7 . "standard")
'(72 . 1)
'(73 . 0)
)
)
(while (setq ptx (getpoint "\n选择插入点:"))
(setq disx (distance pt1 ptx)
bgx (+ bg1 (/ (* disx (- bg2 bg1)) dist))
)
(entmake (list '(0 . "line")
(cons 10 ptx)
(cons 11 (polar ptx ang (* bgx 1000)))
)
)
(entmake (list '(0 . "text")
'(10 0 0 0)
(cons 11 (polar ptx ang (* bgx 1000)))
(cons 1 (rtos bgx 2 3))
'(40 . 250)
'(41 . 0.75)
(cons 50 (- ang (/ pi 2)))
'(7 . "standard")
'(72 . 1)
'(73 . 0)
)
)
)
(setvar "osmode" oldos)
(princ)
)

(defun c:test1 ( / oldos pt1 pt2 ptx ang bg1 bg2 bgx dist disx) 
  (setq oldos (getvar "osmode")) 
  (setvar "osmode" 513) 
  (setq        pt1  (getpoint "\n选择起点:") 
        bg1  (getreal "\n输入起点标高:") 
        pt2  (getpoint "\n选择终点:") 
        bg2  (getreal "\n输入终点标高:") 
        dist (distance pt1 pt2) 
        ang  (+ (/ pi 2) (angle pt1 pt2)) 
  ) 
  (entmake (list '(0 . "line") 
                 (cons 10 pt1) 
                 (cons 11 (polar pt1 ang (* bg1 1000))) 
           ) 
  ) 
  (entmake (list '(0 . "text") 
                 '(10 0 0 0) 
                 (cons 11 (polar pt1 ang (* bg1 1000))) 
                 (cons 1 (rtos bg1 2 3)) 
                 '(40 . 250) 
                 '(41 . 0.75) 
                 (cons 50 (- ang (/ pi 2))) 
                 '(7 . "standard") 
                 '(72 . 1) 
                 '(73 . 0) 
           ) 
  ) 
  (entmake (list '(0 . "line") 
                 (cons 10 pt2) 
                 (cons 11 (polar pt2 ang (* bg2 1000))) 
           ) 
  ) 
  (entmake (list '(0 . "text") 
                 '(10 0 0 0) 
                 (cons 11 (polar pt2 ang (* bg2 1000))) 
                 (cons 1 (rtos bg2 2 3)) 
                 '(40 . 250) 
                 '(41 . 0.75) 
                 (cons 50 (- ang (/ pi 2))) 
                 '(7 . "standard") 
                 '(72 . 1) 
                 '(73 . 0) 
           ) 
  ) 
  (while (setq ptx (getpoint "\n选择插入点:")) 
    (setq disx (distance pt1 ptx) 
          bgx  (+ bg1 (/ (* disx (- bg2 bg1)) dist)) 
    ) 
    (entmake (list '(0 . "line") 
                   (cons 10 ptx) 
                   (cons 11 (polar ptx ang (* bgx 1000))) 
             ) 
    ) 
    (entmake (list '(0 . "text") 
                   '(10 0 0 0) 
                   (cons 11 (polar ptx ang (* bgx 1000))) 
                   (cons 1 (rtos bgx 2 3)) 
                   '(40 . 250) 
                   '(41 . 0.75) 
                   (cons 50 (- ang (/ pi 2))) 
                   '(7 . "standard") 
                   '(72 . 1) 
                   '(73 . 0) 
             ) 
    ) 
  ) 
  (setvar "osmode" oldos) 
  (princ) 
)

flytoday · 发表于 2012-12-21 07:12:49

沉滴好快顶起哈………

flytoday · 发表于 2012-12-21 14:27:07

麻烦大师改下谢谢~

xyp1964 · 发表于 2012-12-21 17:38:51

来个另类的：两点内插标高

flytoday · 发表于 2012-12-22 08:52:56

大师麻烦修改下谢谢

夏生生 · 发表于 2012-12-22 08:54:15

flytoday 发表于 2012-12-21 14:27
麻烦大师改下谢谢~

(defun c:test1 ( / oldos pt1 pt2 ptx ang bg1 bg2 bgx dist disx)
(setq oldos (getvar "osmode"))
(setvar "osmode" 513)
(setq pt1 (getpoint "\n选择起点:")
bg1 (getreal "\n输入起点标高:")
pt2 (getpoint "\n选择终点:")
bg2 (getreal "\n输入终点标高:")
dist (distance pt1 pt2)
ang (+ (/ pi 2) (angle pt1 pt2))
)
(entmake (list '(0 . "text")
'(10 0 0 0)
(cons 11 pt1)
(cons 1 (rtos bg1 2 3))
'(40 . 250)
'(41 . 0.75)
(cons 50 (- ang (/ pi 2)))
'(7 . "standard")
'(72 . 1)
'(73 . 0)
)
)
(entmake (list '(0 . "line")
(cons 10 pt2)
(cons 11 (polar pt2 ang (* (- bg2 bg1) 1000)))
)
)
(entmake (list '(0 . "text")
'(10 0 0 0)
(cons 11 (polar pt2 ang (* (- bg2 bg1) 1000)))
(cons 1 (rtos bg2 2 3))
'(40 . 250)
'(41 . 0.75)
(cons 50 (- ang (/ pi 2)))
'(7 . "standard")
'(72 . 1)
'(73 . 0)
)
)
(while (setq ptx (getpoint "\n选择插入点:"))
(setq disx (distance pt1 ptx)
bgx (+ bg1 (/ (* disx (- bg2 bg1)) dist))
)
(entmake (list '(0 . "line")
(cons 10 ptx)
(cons 11 (polar ptx ang (* (- bgx bg1) 1000)))
)
)
(entmake (list '(0 . "text")
'(10 0 0 0)
(cons 11 (polar ptx ang (* (- bgx bg1) 1000)))
(cons 1 (rtos bgx 2 3))
'(40 . 250)
'(41 . 0.75)
(cons 50 (- ang (/ pi 2)))
'(7 . "standard")
'(72 . 1)
'(73 . 0)
)
)
)
(setvar "osmode" oldos)
(princ)
)

(defun c:test1 ( / oldos pt1 pt2 ptx ang bg1 bg2 bgx dist disx) 
  (setq oldos (getvar "osmode")) 
  (setvar "osmode" 513) 
  (setq        pt1  (getpoint "\n选择起点:") 
        bg1  (getreal "\n输入起点标高:") 
        pt2  (getpoint "\n选择终点:") 
        bg2  (getreal "\n输入终点标高:") 
        dist (distance pt1 pt2) 
        ang  (+ (/ pi 2) (angle pt1 pt2)) 
  ) 
  (entmake (list '(0 . "text") 
                 '(10 0 0 0) 
                 (cons 11 pt1) 
                 (cons 1 (rtos bg1 2 3)) 
                 '(40 . 250) 
                 '(41 . 0.75) 
                 (cons 50 (- ang (/ pi 2))) 
                 '(7 . "standard") 
                 '(72 . 1) 
                 '(73 . 0) 
           ) 
  ) 
  (entmake (list '(0 . "line") 
                 (cons 10 pt2) 
                 (cons 11 (polar pt2 ang (* (- bg2 bg1) 1000))) 
           ) 
  ) 
  (entmake (list '(0 . "text") 
                 '(10 0 0 0) 
                 (cons 11 (polar pt2 ang (* (- bg2 bg1) 1000))) 
                 (cons 1 (rtos bg2 2 3)) 
                 '(40 . 250) 
                 '(41 . 0.75) 
                 (cons 50 (- ang (/ pi 2))) 
                 '(7 . "standard") 
                 '(72 . 1) 
                 '(73 . 0) 
           ) 
  ) 
  (while (setq ptx (getpoint "\n选择插入点:")) 
    (setq disx (distance pt1 ptx) 
          bgx  (+ bg1 (/ (* disx (- bg2 bg1)) dist)) 
    ) 
    (entmake (list '(0 . "line") 
                   (cons 10 ptx) 
                   (cons 11 (polar ptx ang (* (- bgx bg1) 1000))) 
             ) 
    ) 
    (entmake (list '(0 . "text") 
                   '(10 0 0 0) 
                   (cons 11 (polar ptx ang (* (- bgx bg1) 1000))) 
                   (cons 1 (rtos bgx 2 3)) 
                   '(40 . 250) 
                   '(41 . 0.75) 
                   (cons 50 (- ang (/ pi 2))) 
                   '(7 . "standard") 
                   '(72 . 1) 
                   '(73 . 0) 
             ) 
    ) 
  ) 
  (setvar "osmode" oldos) 
  (princ) 
)

sky899150 · 发表于 2023-8-23 12:25:51

xyp1964 发表于 2012-12-21 17:38
来个另类的：两点内插标高

能分享一个吗

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

求已知起点终点水平标注标高。求高手出手谢谢

最佳答案

相关帖子

评分

本帖子中包含更多资源

本帖子中包含更多资源

点评

点评

评分