批量坐标，请教大神

弥勒

求教，我想实现，图形中，同边的位置，写文件时，2.2，2.3 ，用1.2，1.3替代。源码那抄的忘记了。

;********************************批量坐标20231110************************************************
(defun c:plzb()
      (setq os(getvar "osmode"))
      (setvar "osmode" 0)
     (setq ffn (getfiled "坐标写入文本文件" "c:/Users/Administrator/Desktop/坐标" "zlb" 1))
      (setq high (getreal "\n请输入字高(默认2): "))
          (if (= high nil) (setq high 2))
      (setq opf (open ffn "w"))
      (setq ss  (ssget '((0 . "*LINE"))))
      (setq txt (strcat "点" "," "X坐标" "," "Y坐标"))
           (write-line txt opf)
           (setq i -1)
           (setq key 10)
           (setq   n  (sslength ss))
               (repeat n
                        (setq ent (entget (ssname ss (setq i (1+ i)))))
                        (setq qz ( - n (- n (+ i 1))))
                        (setq count 1)
                        (foreach xy ent
                              (if (eq (car xy) key)
                                  (progn
                                       (setq pe (cdr xy))
                                       (setq x (rtos(cadr pe)2 3))
                                       (setq y (rtos(car pe)2 3))
                                           (setq Dname (strcat  (strcat (itoa qz) ".") (itoa count)))
                                           (write-line (strcat Dname "," x "," y) opf)
                                                          (setq p0 (list (car pe) (cadr pe  )))
                                                     (biaozb p0 Dname high)
                                                     (setq count (1+ count))
                                    )
                               )
                          )
              )
     (close opf)
      (setvar "osmode" os)
      (princ(strcat "\n坐标已写入文本: " ffn))
(princ)
)
(defun biaozb( pt dn zg );坐标，点名，字高

       (setq fzx "X:" fzy "Y:")
       (setq p1a (polar pt (* 0.3 pi) (* zg 3)))
       (setq p1 (polar p1a (* 0.5 pi) (* zg 0.6)))         ;注记位置
       (setq p2 (polar p1a (* 1.5 pi) (* zg 0.6)))         ;注记位置
       (setq xx (nth 1 pt) yy (nth 0 pt))
       (setq xx1 (rtos xx 2 3))
           (setq yy1 (rtos yy 2 3))
       (setq xxx (strcat fzx xx1))
           (setq yyy (strcat fzy yy1))
       (command "layer" "make" "坐标" "c"  "4" "坐标" "")
       (command "pline" pt  "w" 0 "" p1a "@14<0" "")
       (command "text" "bl" p1 zg 0 xxx)
       (command  "text" "tl" p2 zg 0 yyy)
       (setq p3 (polar p1a (* PI 0.5) (* zg 3)))
       (command "layer" "make" "点号" "c"  "20" "点号" "")
       (command "circle" pt 0.3)
       (command "text" "TL"  p3 zg 0 dn)

)
;********************************批量坐标************************************************

NSHX

[size=9.5475pt]
Hi~ o(*￣▽￣*)ブ

NSHX

(defun c:plzb()
        (setq pts nil);;初始化
        (setq os(getvar "osmode"))
        (setvar "osmode" 0)
        (setq ffn (getfiled "坐标写入文本文件" "c:/Users/Administrator/Desktop/坐标" "zlb" 1));规定了文件后缀
        (setq high (getreal "\n请输入字高(默认2): "))
        (if (= high nil) (setq high 2))
        (setq opf (open ffn "w"))
        (setq ss  (ssget '((0 . "*LINE"))))
        (setq txt (strcat "点" "," "X坐标" "," "Y坐标"))
        (write-line txt opf)
        (setq i -1)
        (setq key 10)
        (setq   n  (sslength ss))
        (repeat n
                (setq ent (entget (ssname ss (setq i (1+ i)))))
                (setq qz ( - n (- n (+ i 1))))
                (setq count 1)
                (foreach xy ent
                        (if (eq (car xy) key)
                                (progn
                                        (setq pe (cdr xy))
                                        (setq x (rtos(cadr pe)2 3))
                                        (setq y (rtos(car pe)2 3))
                                        (setq Dname (strcat  (strcat (itoa qz) ".") (itoa count)))
                                        (setq X2 (ATOF X));;把字符串X,转成数X2
                                        (setq Y2 (ATOF Y));;把字符串Y,转成数Y2
                                        (setq Dname2 (ATOF Dname));;把字符串点名,转成数Dname2
                                        (setq pts (cons (list y2 x2 Dname2) pts));;把读取到的图形点，组成一个list
                                        (setq pt3 (list Y2 X2 ));;设置当前点
                                        (setq plist (vl-remove-if '(lambda (x3) (> (distance pt3 x3) 0.02)) pts));;从 pts中剔除距离当前点（pt3）大于0.02的点。预计剩余本身。
                                        (setq listLength (length plist));;获取plist的长度
                                        (if (= listLength 2);;长度=2说明，有重复点，这里也可以改成长度不等于1，或者大于1
                                                (progn
                                                        (setq Dname (strcat (rtos(caddr(CADR plist)) 2 3 )));;通过调试，发现这样可以实现，但好像仅仅针对长度2有效。或许这里可以调整成最后一个表的第三个数据
                                                )
                                        )
                                        (Write-line (strcat Dname "," x "," y) opf)
                                        (setq p0 (list (car pe) (cadr pe  )))
                                        (biaozb p0 Dname high)
                                        (setq count (1+ count))
                                )
                        )
                )
        )
        (close opf)
        (setvar "osmode" os)
        (princ(strcat "\n坐标已写入文本: " ffn))
        (princ)
)
(defun biaozb( pt dn zg );坐标，点名，字高
        (setq fzx "X:" fzy "Y:")
        (setq p1a (polar pt (* 0.3 pi) (* zg 3)))
        (setq p1 (polar p1a (* 0.5 pi) (* zg 0.6)))         ;注记位置
        (setq p2 (polar p1a (* 1.5 pi) (* zg 0.6)))         ;注记位置
        (setq xx (nth 1 pt) yy (nth 0 pt))
        (setq xx1 (rtos xx 2 3))
        (setq yy1 (rtos yy 2 3))
        (setq xxx (strcat fzx xx1))
        (setq yyy (strcat fzy yy1))
        (command "layer" "make" "坐标" "c"  "4" "坐标" "")
        (command "pline" pt  "w" 0 "" p1a "@14<0" "")
        (command "text" "bl" p1 zg 0 xxx)
        (command  "text" "tl" p2 zg 0 yyy)
        (setq p3 (polar p1a (* PI 0.5) (* zg 3)))
        (command "layer" "make" "点号" "c"  "20" "点号" "")
        (command "circle" pt 0.3)
        (command "text" "TL"  p3 zg 0 dn)
)
;********************************批量坐标************************************************
实现了，大体上是读取图形X,Y的时候构建一个点表pts。每读一个点，pts就多一个。
然后创建个临时表plist，计算当前点距离pts表里的点的距离，大于0.02（也可以自己改更小）的剔除，稳定剩一个，如果剩两个，就说明有重复点。这时候把点名Dname，赋值成plist里的数据，也就是赋值成重复的点名。剩下的就正常走了。