求助 有没有这种类似的纯数字转高程点的插件

yjpyjp

类似这样的插件，https://www.zhihu.com/zvideo/1487528909076377601?utm_id=0



主要还是想把方格网上的数字转为高程点，高程点对齐方格网角点

feiyike

命令：fgw 转载 忘了出处

yjpyjp

feiyike 发表于 2024-11-9 16:12
命令：fgw 转载 忘了出处

谢谢  这个也有用处，最好是直接在图纸上添加高程点 而不是导出dat文件

xyp1964

1. (defun c:tt ()
   
2.   "高程文本移动"
   
3.   (xyp-Start)
   
4.   (setq i -1)
   
5.   (if (setq ss (ssget '((0 . "text"))))
   
6.     (while (setq s1 (ssname ss (setq i (1+ i))))
   
7.       (setq pt  (xyp-DXF 10 s1)
   
8.             p1  (xyp-3d2d pt)
   
9.             ss1 (ssget "cp" (xyp-PtBox p1 200) '((0 . "*po*")))
   
10.             lst (xyp-Ss2List ss1)
    
11.             ptn (mapcar '(lambda (x) (xyp-Vertexs x 0)) lst)
    
12.             ptn (apply 'append ptn)
    
13.             p2 (xyp-PtNearPtn p1 ptn)
    
14.       )
    
15.       (xyp-Move s1 p1 p2)
    
16.     )
    
17.   )
    
18.   (xyp-End)
    
19. )

(defun c:tt ()<br />   "高程文本移动"<br />   (xyp-Start)<br />   (setq i -1)<br />   (if (setq ss (ssget '((0 . "text"))))<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (setq pt  (xyp-DXF 10 s1)<br />             p1  (xyp-3d2d pt)<br />             ss1 (ssget "cp" (xyp-PtBox p1 200) '((0 . "*po*")))<br />             lst (xyp-Ss2List ss1)<br />             ptn (mapcar '(lambda (x) (xyp-Vertexs x 0)) lst)<br />             ptn (apply 'append ptn)<br />             p2 (xyp-PtNearPtn p1 ptn)<br />       )<br />       (xyp-Move s1 p1 p2)<br />     )<br />   )<br />   (xyp-End)<br /> )