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

寒潮大冬瓜

(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。

敖沧海

江湖夜雨 发表于 2025-3-9 10:14
能不能帮忙修改一下插件，在新图里使用插件时，新建一个黑体样式，高度1.5

2. (command "-style" "坡度标注" "宋体.shx,宋体big.shx" "100" "0.667" "" "" "" "N")
   
3.     ; 标注坡度值
   
4.     (command "text" "s" "坡度标注" "j" "bc" mpt rot po)

(command "-style" "坡度标注" "宋体.shx,宋体big.shx" "100" "0.667" "" "" "" "N")<br />     ; 标注坡度值<br />     (command "text" "s" "坡度标注" "j" "bc" mpt rot po)

替换一下  100可以变成你要的1.5  自行设置