请教如何坐标点自动标注

280154352

举例一下 比如：


然后根据这个线的起始点开始标注


以此推类 第四个点会标J4


有没有大佬有类似的插件，或者大佬教学我做

Lisphk

搜索论坛很多

• 沿线批量标注坐标
  97 个回复 - 1785 次查看
  **** 本内容被作者隐藏 ****
  2018-9-18 08:14 - newer - 每日插件
• 读EXCEL当前选择的坐标点生成POLY线
  14 个回复 - 74 次查看
  函数 XD::List:IsPoint 见： http://bbs.xdcad.net/thread-725682-1-1.html 函数 XD::Pnts:XY 见： http://bbs.xdcad.net/forum.php?mod=viewthread&tid=725683 **** 本内容被作者隐藏 ****
  2020-4-21 22:00 - newer - 每日插件
• 坐标标注并提取指标值到Excel
  34 个回复 - 474 次查看
  命令:WP:ZBBZ 提示:需先打开Excel,坐标值提取到Excel的当前活动页
  2020-1-22 14:54 - 王鹏_pBZlo - 每日插件
• 晓东工具箱2013版（8、9、10）---沿线坐标、坐标翻转、随线平齐工具
  22 个回复 - 3729 次查看
  [fabu=沿线坐标、坐标翻转、随线平齐,晓东工具箱3.0，XDRX_API，OpenDCL]沿多段线插入坐标，坐标对象可以拷贝任何地方更新坐标[/fabu] 继续提供坐标方面的工具提供测试。 演示： 1、取消初级会 ...
  2013-5-24 00:21 - XDSoft - 每日插件
• 多段线顶点坐标列表统计（支持凸度和边长）
  10 个回复 - 605 次查看
  可选 Z 坐标是否列出。 多段线上编号标注待完成。 **** 本内容需购买可见 ****
  2017-8-13 00:43 - Lispboy - 每日插件
• 提取坐标到表格
  122 个回复 - 3706 次查看
  以前在编程申请论坛写的，发到这里吧。 http://bbs.xdcad.net/thread-706366-1-1.html 插件背景：平时画市政给排水管道时，需要用到坐标标注的插件，我用的是网蜂工具箱（zbbz.vlx），启用很中坐标互换进行标注 ...
  2018-1-22 15:19 - Lispboy - 每日插件
• 非模式对话框沿线坐标列表标注（第二版）
  41 个回复 - 995 次查看
  和第一版相比，加入了更多的控制。摸索下对话框就清楚了，不复杂。 1、标注控制开关如果点开，里面的点数输入正值，只标注指定的点数，列表里面包括全部的顶点。如果点数给负值，只标注指定的点数，列表也只包 ...
  2018-7-16 10:03 - newer - 每日插件
  
  

晓东工具箱 坐标菜单下，更多

王鹏_pBZlo

先获得点坐标列表，然后依次在点旁添加文字就搞定

280154352

王鹏_pBZlo 发表于 2020-5-9 21:44
先获得点坐标列表，然后依次在点旁添加文字就搞定

手动我也会啊，我是需要自动的那种 几百个点标死人

王鹏_pBZlo

280154352 发表于 2020-5-11 11:09
手动我也会啊，我是需要自动的那种 几百个点标死人

1. (defun c:nod( / ss i j ent plst pt thei prefix)
   
2.         (setq thei (getreal "\n字高:"))
   
3.         (setq prefix (getstring "\n文字前缀:"))
   
4.         (setq ss (ssget (list (cons 0 "LWPOLYLINE"))))
   
5.         (setq i -1)
   
6.         (while (setq ent (ssname ss (setq i (1+ i))))
   
7.                 (setq plst (vl-remove-if (function (lambda (e) (/= 10 (car e)))) (entget ent)))
   
8.                 (setq j -1)
   
9.                 (while (setq pt (nth (setq j (1+ j)) plst))
   
10.                     (entmake (list (cons 0 "TEXT") (cons 62 1) pt (cons 40 thei)(cons 1 (strcat prefix (itoa (1+ j))))))
    
11.                 )
    
12.         )
    
13.         (princ)
    
14. )
    

(defun c:nod( / ss i j ent plst pt thei prefix)<br />         (setq thei (getreal "\n字高:"))<br />         (setq prefix (getstring "\n文字前缀:"))<br />         (setq ss (ssget (list (cons 0 "LWPOLYLINE"))))<br />         (setq i -1)<br />         (while (setq ent (ssname ss (setq i (1+ i))))<br />                 (setq plst (vl-remove-if (function (lambda (e) (/= 10 (car e)))) (entget ent)))<br />                 (setq j -1)<br />                 (while (setq pt (nth (setq j (1+ j)) plst))<br />                     (entmake (list (cons 0 "TEXT") (cons 62 1) pt (cons 40 thei)(cons 1 (strcat prefix (itoa (1+ j))))))<br />                 )<br />         )<br />         (princ)<br /> )<br />

280154352

Lisphk 发表于 2020-5-9 20:33
搜索论坛很多

最后一个使用方法比较相近，但是加载不了，工具箱里也没有 头疼

newer

280154352 发表于 2020-5-12 15:05
最后一个使用方法比较相近，但是加载不了，工具箱里也没有 头疼

工具箱  坐标菜单下  沿线列表