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

2224243113

    本人纯小白，对编程一窍不通，一直想找个能计算两个RTK测绘点距离和坡度的插件。昨天在论坛里找到一个帖子，里面有相似的功能，原帖地址如下：高程属性块标注箭头，坡度和距离。（附高程属性块） - AutoLISP/Visual LISP 编程技术 - AutoCAD论坛 - 明经CAD社区 - Powered by Discuz!
   帖子里提供的测试图纸1。
   使用时出现下面的问题：这个插件在我的图纸里不能用，要指定文字的旋转角度然后就进行不下去了，但是把测绘点原位复制到测试图1里后，插件就可以使用了，能计算并标注。
  综上，请大佬帮忙看看是怎么回事，是两张图有什么不同？还是插件的问题，如果插件不对，为什么在原测试图里又能正常用？

ocoipw

先用style命令设置文本的高度。
或用textsize系统变量设置文本的高度。
或直将原图存为模型图。
以上三种方法均可满足你的要求。

2224243113

ocoipw 发表于 2025-3-9 01:21
先用style命令设置文本的高度。
或用textsize系统变量设置文本的高度。
或直将原图存为模型图。

能不能帮忙修改一下插件，在新图里使用插件时，新建一个黑体样式，高度1.5

xyp1964

1. (defun c:tt ()
   
2.   (while (and (setq s1 (car (entsel "\n选择较低的高程块<退出>: ")))
   
3.               (setq s2 (car (entsel "\n选择较高的高程块<退出>: ")))
   
4.          )
   
5.     (setq pt1 (cdr (assoc 10 (entget s1)))
   
6.           pt2 (cdr (assoc 10 (entget s2)))
   
7.           z1  (atof (cdr (assoc 1 (entget (entnext s1)))))
   
8.           z2  (atof (cdr (assoc 1 (entget (entnext s2)))))
   
9.           pt  (mapcar '(lambda (x y) (* (+ x y) 0.5)) pt1 pt2)
   
10.           dd  (distance pt1 pt2)
    
11.           po  (strcat "i="
    
12.                       (rtos (* (/ (abs (- z1 z2)) dd) 100) 2 2)
    
13.                       "%"
    
14.               )
    
15.           r0  (angle pt1 pt2)
    
16.           dr  (* (/ r0 pi) 180)
    
17.           p1  (polar pt r0 (* (/ dd 4) -1))
    
18.           p2  (polar pt r0 (* (- (/ dd 4) 3) -1))
    
19.           p3  (polar pt r0 (/ dd 4))
    
20.           ll  (strcat "L=" (rtos dd 2 2) "m")
    
21.     )
    
22.     (if (and (> dr 90) (< dr 270))
    
23.       (setq dr (+ dr 180))
    
24.     )
    
25.     (command "pline" p1 "w" "0" "0.5" p2 "w" "0" "0" p3 "")
    
26.     (command "text" "j" "tc" pt 1. dr ll)
    
27.     (command "text" "j" "bc" pt 1. dr po)
    
28.   )
    
29.   (princ)
    
30. )
    

(defun c:tt ()<br />   (while (and (setq s1 (car (entsel "\n选择较低的高程块<退出>: ")))<br />               (setq s2 (car (entsel "\n选择较高的高程块<退出>: ")))<br />          )<br />     (setq pt1 (cdr (assoc 10 (entget s1)))<br />           pt2 (cdr (assoc 10 (entget s2)))<br />           z1  (atof (cdr (assoc 1 (entget (entnext s1)))))<br />           z2  (atof (cdr (assoc 1 (entget (entnext s2)))))<br />           pt  (mapcar '(lambda (x y) (* (+ x y) 0.5)) pt1 pt2)<br />           dd  (distance pt1 pt2)<br />           po  (strcat "i="<br />                       (rtos (* (/ (abs (- z1 z2)) dd) 100) 2 2)<br />                       "%"<br />               )<br />           r0  (angle pt1 pt2)<br />           dr  (* (/ r0 pi) 180)<br />           p1  (polar pt r0 (* (/ dd 4) -1))<br />           p2  (polar pt r0 (* (- (/ dd 4) 3) -1))<br />           p3  (polar pt r0 (/ dd 4))<br />           ll  (strcat "L=" (rtos dd 2 2) "m")<br />     )<br />     (if (and (> dr 90) (< dr 270))<br />       (setq dr (+ dr 180))<br />     )<br />     (command "pline" p1 "w" "0" "0.5" p2 "w" "0" "0" p3 "")<br />     (command "text" "j" "tc" pt 1. dr ll)<br />     (command "text" "j" "bc" pt 1. dr po)<br />   )<br />   (princ)<br /> )<br />

炫色ペ水域の

调整后的插件，箭头太长了

炫色ペ水域の

能否选择2个点，自动让箭头指向高程低的

炫色ペ水域の

坡度的计算方式错了 ，坡度=垂直高度/水平投影距离

xyp1964

炫色ペ水域の 发表于 2025-3-9 13:34
能否选择2个点，自动让箭头指向高程低的

炫色ペ水域の

牛啊，厉害啊

2224243113

xyp1964 发表于 2025-3-9 14:26

非常好用，十分感谢！