Author Topic: [Challenge]Delete the useless vertex (Read 2454 times)

cjw · « **on:** May 04, 2009, 05:58:24 AM »

As the subject,see the picture:

cjw · « **Reply #1 on:** May 04, 2009, 06:04:06 AM »

(defun C:TT ()
(and (setq E (car (entsel "\nSelect the lightweightpolyline object: ")))
(setq ELIST (entget E))
(setq PT_LST
     (mapcar 'cdr
        (vl-remove-if-not '(lambda (X) (= (car X) 10)) ELIST)
     )
)
(DELETE-VERTEX) ;_bother me.
(entmod ELIST)
(entupd E)
)
)

whdjr · « **Reply #2 on:** May 04, 2009, 08:35:19 AM »

I wrote one a while back that removed which ever vertex you were closest too, but alas I don't have access to it right now.

Patrick_35 · « **Reply #3 on:** May 04, 2009, 09:24:29 AM »

Hi

Here

@+

CAB · « **Reply #4 on:** May 04, 2009, 09:58:04 AM »

http://www.theswamp.org/index.php?topic=19865.0

cjw · « **Reply #5 on:** May 04, 2009, 11:02:03 AM »

Thank you very much~! CAB.

I am sorry if i know the key word,may be i won't make new topic.

and thanks Patrick_35

CAB · « **Reply #6 on:** May 04, 2009, 11:24:32 AM »

No big deal. Finding topics can be tricky at times.

cjw · « **Reply #7 on:** May 05, 2009, 02:11:39 AM »

Quote from: CAB on May 04, 2009, 11:24:32 AM

No big deal. Finding topics can be tricky at times.

Thanks.

News:

Author Topic: [Challenge]Delete the useless vertex (Read 2454 times)

cjw

[Challenge]Delete the useless vertex

cjw

Re: [Challenge]Delete the useless vertex

whdjr

Re: [Challenge]Delete the useless vertex

Patrick_35

Re: [Challenge]Delete the useless vertex

CAB

Re: [Challenge]Delete the useless vertex

cjw

Re: [Challenge]Delete the useless vertex

CAB

Re: [Challenge]Delete the useless vertex

cjw

Re: [Challenge]Delete the useless vertex