请教陈大虾，这程序为什么不好用

龙龙仔

;;注意: 亮顯並不代表物件在最上層,故請用框選去除不想刪除之物件
;;(command "_.erase" SC "")
;;改為
(prompt
"\nType \"R\" to remove objects\nSelect Objects to delete: "
)
(command "_.select" sc pause)
(setq f1 (sslength (ssget "p")))
(command "_.erase" "p" "")

hkzwsy

在绘图过程中经常出现重叠线，有时并不是完全重叠的。

老刘

龙龙仔:你能帮编一个多段线的坐标转为TXT文件的程序吗

lilq_78

这个程序对SPLINE没有一点效果，而且短线段完全被长线段覆盖时也没有效果，特别是由3D图转换出来的图效果不是很理想，

tcsl9621

好程序。

rongyifei

好程序,龙哥谢谢了!

rongyifei

但是有个问题小弟不明白,想请教一下龙哥!

程序中用到变量:GCHOICE,但是为什么它不需要定义呢?

hnfsf

;;試試這個擦除重复物件
(defun c:duprem (/ f1 sle sa ca ta la lb enta ea typa a1 a2 a3 a4 sc ltest tes)
  (setvar "cmdecho" 0)
  (setq f1 nil
 f1 0
  )        
  (or
    :gchoice
    (setq :gchoice "Set")
  )
  (initget "Set Limits All")        ;
  (setq sle (getkword "\nSelect objects by election set, imits, or ntire database: "))
  (setq sle (getkword (strcat "\nType of selection [Set/Limits/All] <"
         :gchoice ">: "
        )
     )
  )
  (if (not sle)
    (setq sle :gchoice)
    (setq :gchoice sle)
  )

  (cond
    ((= sle "Set")
      (setq sa (ssget))
    )
    ((= sle "Limits")
      (setq sa (ssget "c" (getvar "extmin") (getvar "extmax")))
    )
    ((= sle "All")
      (setq sa (ssget "X"))
    )
  )

  (if (and
 sa
 (= (type sa) 'pickset)
 (not (zerop (sslength sa)))
      )
    (progn
      (setq ca 0
     ta (sslength sa)
     la nil
     lb nil
      )
      (while (< ca ta)
 (setq enta (ssname sa ca)
       ea (cdr (entget enta))
       typa (cdr (assoc 0 ea))
 )          ;
 (if (= typa "POLYLINE")
   (progn
     (setq entb (entnext enta)
    ea (cdr (entget entb))
     )
   )
 )

 (setq a1 (assoc 5 ea))
 (setq a2 (cons 5 ""))
 (setq ea (subst
     a2
     a1
     ea
   )
 )
 (if (wcmatch (getvar "ACADVER") "*15*")
   (progn
     (setq a3 (assoc 330 ea))
     (setq a4 (cons 330 ""))
     (setq ea (subst
         a4
         a3
         ea
       )
     )
   )
 )
 (setq la (cons enta la)
       lb (cons ea lb)
       ca (+ ca 1)
 )
      )
      (setq sc nil
     sc (ssadd)
     ltest lb
      )
      (setq ca 0)
      (setq tes (car ltest)
     ltest (cdr ltest)
     ta nil
     ta (length ltest)
      )
      (while (/= ta 0)
 (if (member tes ltest)
   (progn
     (setq sc (ssadd (nth ca la) sc))
     (prompt "\nFound duplicate entity.")
     (setq f1 (+ f1 1))
   )
 )
 (setq ca (+ ca 1))
 (setq tes (car ltest)
       ltest (cdr ltest)
       ta (length ltest)
 )
      )
      (command "erase" sc "")
      (redraw)
      (prompt "\n")
      (prin1 f1)
      (prompt " duplicate entities erased.")
    )
  )
  (princ)
(prompt "\nType DUPREM to run. Delete duplicate entity routine Ver 2.0 loaded." ) (princ)
)

cvbnm8888

很想学习但是结构好像有点乱的说。。。。

MJCADLWF

龙龙仔:能否帮忙修改下你所发的程序，像12楼所说的情况也可以去重的话就好了，十分感激，先谢谢了！