如何消除多义线重复的点？

matichen

龙龙仔

lzfat

matichen

就是多义线的数据库中的（10 . xxx.xx yyy.yy） 有重复，但重复处点选或移动时却只看到一个夹点。list或assco 时就看到有x y坐标相同的重复点了。

雷

matichen

雷

把N（10 x y z）个坐标读出，重新画一条多义线，判断坐标相同跳过。然后删除这条重复点的多义线，有点难度，我做过类似的，问题的关键是你能不能读N出坐标。

龙龙仔

;;;方法1
(defun C:EEE (/ N A AA AAA)
  (setq A (car (entsel)))
  (command "_.explode" A)
  (setq A (ssget "p"))
  (setq N 0)
  (setq AA (ssadd))
  (repeat (sslength A)
    (if        (and (/= "LINE" (assoc 0 (entget (ssname A N))))
             (not (equal (cdr (assoc 10 (entget (ssname A N))))
                         (cdr (assoc 11 (entget (ssname A N))))
                  )
             )
        )
      (ssadd (ssname A N) AA)
      (command "_.erase" (ssname A N) "")
    )
    (setq N (1+ N))
  )
  (command "_.pedit" (SSNAME AA 0) "y" "j" AA "" "")
  (princ)
)

;;方法2
;;消除PLINE重复点
(defun C:EEE (/ A AA AB N NN)
  (setq AA (car (entsel)))
  (setq A (entget AA))
  (setq AB (reverse (member (assoc 39 A) (reverse A))))
  (setq AB (append AB (list (nth (length AB) A))))
  (setq N (length AB))
  (repeat (/ (length (cdr (member (assoc 10 A) A))) 4)
    (if        (not (equal (cdr (nth (- (length AB) 1) AB))
                    (cdr (nth (+ N 3) A))
             )
        )
      (progn
        (setq NN 1)
        (repeat        4
          (setq AB (append AB (list (nth (+ (- N 1) NN) A))))
          (setq        NN (1+ NN)
          )
        )
      )
    )
    (setq N (+ N 4))
  )
  (command "_.ERASE" AA "")
  (entmake AB)
  (princ)
)

matichen

sxdyh

不要改变原句柄