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

lzfat · 发表于 2002-8-5 13:53:00

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

龙龙仔 · 发表于 2002-8-5 21:39:00

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

matichen · 发表于 2002-8-7 14:18:00

;;;方法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)
)

sxdyh · 发表于 2002-8-8 12:37:00

不要改变原句柄

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

发表回复

精选推荐

浏览过的版块