求一个根据坐标点位子自动标注特定符号和数字

280154352

举例一下 比如一个图：


然后根据这个范围的起始点开始标注（范围起始点是坐标导出的第一个点）


以此推类 每个点有一个圈圈标记，然后圈圈旁边有数字标记，（数字标记根据这个点是第几个坐标来标记数值）

插件能做出 点击一个点就出现圈圈和自动计算出该点的数字吗


之前有前辈推荐了几款类似但是完全不一样的，没法用
另外晓东工具箱里的工具都试过了也没这种效果的插件，...o(╥﹏╥)o

Lisphk

没太看清要求，详细在说说吧

既然青春留不住

newer

论坛搜索  沿线列表 插件
或者 安装晓东工具箱，坐标下面的 沿线列表 工具

                               
登录/注册后可看大图

marting

1. (defun c:tt ()
   
2.   (if (not #xd-var-global-textheight)
   
3.     (setq #xd-var-global-textheight 4.0)
   
4.   )
   
5.   (if (setq v (getreal
   
6.                 (xdrx-prompt "\n字高<" #xd-var-global-textheight ">" t)
   
7.               )
   
8.       )
   
9.     (setq #xd-var-global-textheight v)
   
10.   )
    
11.   (if (not #xd-var-global-circle-radius)
    
12.     (setq #xd-var-global-circle-radius 4.0)
    
13.   )
    
14.   (if (setq v (getreal (xdrx-prompt
    
15.                          "\n圆圈直径<"
    
16.                          #xd-var-global-circle-radius
    
17.                          ">"
    
18.                          t
    
19.                        )
    
20.               )
    
21.       )
    
22.     (setq #xd-var-global-circle-radius v)
    
23.   )
    
24.   (if (setq e (car (xdrx-entsel "\n拾取多段线<退出>:")))
    
25.     (progn (setq pts  (xdrx-getpropertyvalue e "vertices")
    
26.                  pts  (xd::list:removedup (xd::pnts:open pts))
    
27.                  pts1 (xdrx-points-offset #xd-var-global-circle-radius pts)
    
28.            )
    
29.            (setq i 0)
    
30.            (mapcar
    
31.              '(lambda (x)
    
32.                 (xdrx-circle-make x (/ #xd-var-global-circle-radius 2.0))
    
33.                 (xdrx-text-make
    
34.                   (nth i pts1)
    
35.                   (xdrx-prompt "J-" (itoa (setq i (1+ i))) t)
    
36.                   #xd-var-global-textheight
    
37.                 )
    
38.               )
    
39.              pts
    
40.            )
    
41.     )
    
42.   )
    
43.   (princ)
    
44. )
    
45. 
    

(defun c:tt ()<br />   (if (not #xd-var-global-textheight)<br />     (setq #xd-var-global-textheight 4.0)<br />   )<br />   (if (setq v (getreal<br />                 (xdrx-prompt "\n字高<" #xd-var-global-textheight ">" t)<br />               )<br />       )<br />     (setq #xd-var-global-textheight v)<br />   )<br />   (if (not #xd-var-global-circle-radius)<br />     (setq #xd-var-global-circle-radius 4.0)<br />   )<br />   (if (setq v (getreal (xdrx-prompt<br />                          "\n圆圈直径<"<br />                          #xd-var-global-circle-radius<br />                          ">"<br />                          t<br />                        )<br />               )<br />       )<br />     (setq #xd-var-global-circle-radius v)<br />   )<br />   (if (setq e (car (xdrx-entsel "\n拾取多段线<退出>:")))<br />     (progn (setq pts  (xdrx-getpropertyvalue e "vertices")<br />                  pts  (xd::list:removedup (xd::pnts:open pts))<br />                  pts1 (xdrx-points-offset #xd-var-global-circle-radius pts)<br />            )<br />            (setq i 0)<br />            (mapcar<br />              '(lambda (x)<br />                 (xdrx-circle-make x (/ #xd-var-global-circle-radius 2.0))<br />                 (xdrx-text-make<br />                   (nth i pts1)<br />                   (xdrx-prompt "J-" (itoa (setq i (1+ i))) t)<br />                   #xd-var-global-textheight<br />                 )<br />               )<br />              pts<br />            )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

280154352

marting 发表于 2020-5-13 00:33

大佬牛批，大佬万岁，祝大佬艳遇不断{:soso__14540544813755412104_4:}

弱弱的问一句，下面的标记会跟线重叠起来 ，有没有什么办法能解决？