0 Members and 1 Guest are viewing this topic.
Why not overkill?
op said "overlapping lines . arcs ...... i would like to remove overlapping parts". i guess those lines/arcs are not duplicates. maybe he/she should post a sample dwg.
; Ignore group codes:; 0 type; 8 layer; 6 linetype; 62 color; 370 lineweight; 390 plotstyle;; igonore layers;; (acet-ss-remove-dups (ssget '((410 . "Model"))) 1e-6 '(8));; Takes single list of arguments:;; ss - selection set;; fuz - for numeric comparisons;; ignore - (optional) list of group codes specifying which common group codes to ;; ignore when comparing entities.;; no-plines - (optional) flag - T means do NOT optimize segments within plines.;; no-partial - (optional) flag - T means do NOT combine parallel segments ;; that partially overlap.;; no-endtoend - (optional) flag - T means do NOT combine parallel segments ;; that are end to end.;; The function also deletes duplicate objects.;; As is it does not heal or delete duplicate objects on different layers.(defun c:Heal ( / *error* doc ss s) (defun *error* (msg) (cond ((not msg)) ((wcmatch (strcase msg) "*QUIT*,*CANCEL*")) (T (princ (strcat "\nError: " msg))) ) (vla-EndUndoMark doc) (princ) ) ;end error (vl-load-com) (setq doc (vla-get-ActiveDocument (vlax-get-acad-object))) (vla-StartUndoMark doc) (if (not (load "overkill.lsp" nil)) (progn (princ "\nCould not load Overkill. Exiting... ") (exit) ) ) (if (and (setq ss (ssget ":L")) ;; Selection set of deleted objects. (setq s (acet-overkill (list ss 1e-6 nil T nil nil))) ) (princ (strcat "\nNumber of objects deleted: " (itoa (sslength s)))) ) (*error* nil)) ;end
Kelie,Overkill can do what the OP asked for with lines and arcs, assuming I understand the question in the first place.