(princ "选择较低的高程块")
(setq obj1 (car (entsel)))
(princ "选择较高的高程块")
(setq obj2 (car (entsel)))
(setq pt1 (cdr (assoc 10 (entgetobj1))))
(setq pt2 (cdr (assoc 10 (entgetobj2))))
(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
(command "-style" "坡度标注" "宋体.shx,宋体big.shx" "100" "0.667" "" "" "" "N")
; 标注坡度值
(command "text" "s" "坡度标注" "j" "bc" mpt rot po)
替换一下100可以变成你要的1.5自行设置
页:
1
[2]