求助,标注高程点距离和坡度的问题

寒潮大冬瓜

(defun cul()
    (princ "选择较低的高程块")
    (setq obj1 (car (entsel)))
    (princ "选择较高的高程块")
    (setq obj2 (car (entsel)))
    (setq pt1 (cdr (assoc 10 (entget  obj1))))
    (setq pt2 (cdr (assoc 10 (entget  obj2))))
    (setq num1 (atof (cdr (assoc 1 (entget (entnext obj1))))))
    (setq num2 (atof (cdr (assoc 1 (entget (entnext obj2))))))
    (setq mpt (list (/ (+ (car pt1) (car pt2)) 2) (/ (+ (cadr pt1) (cadr pt2)) 2) ))
    (setq dis (distance pt1 pt2))
这里计算出来的DIS值应该是斜长，建议版主核对坡度系数--通常把水平宽度B和坡面的铅直高度H的比。通常使用百分比表示。 即:i=B/H×100%。坡度系数与坡度互为倒数，意义:路基或基坑每高1米对应的边坡水平的宽度。中文名称：坡度系数；别称：延迟系数；英文表示字母：i；公式i=B/H边坡坡度：【grade of side slope】指的是边坡的垂直高度h与水平宽度b之比=h/b。