yjpyjp 发表于 2024-11-9 15:31:38

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

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



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

feiyike 发表于 2024-11-9 16:12:04

命令：fgw 转载 忘了出处

yjpyjp 发表于 2024-11-9 16:30:22

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

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

xyp1964 发表于 2024-11-9 16:53:12



(defun c:tt ()
"高程文本移动"
(xyp-Start)
(setq i -1)
(if (setq ss (ssget '((0 . "text"))))
    (while (setq s1 (ssname ss (setq i (1+ i))))
      (setq pt(xyp-DXF 10 s1)
            p1(xyp-3d2d pt)
            ss1 (ssget "cp" (xyp-PtBox p1 200) '((0 . "*po*")))
            lst (xyp-Ss2List ss1)
            ptn (mapcar '(lambda (x) (xyp-Vertexs x 0)) lst)
            ptn (apply 'append ptn)
            p2 (xyp-PtNearPtn p1 ptn)
      )
      (xyp-Move s1 p1 p2)
    )
)
(xyp-End)
)
页: [1]
查看完整版本: 求助 有没有这种类似的纯数字转高程点的插件