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

0 Members and 1 Guest are viewing this topic.

cjw

  • Guest
[Challenge]Delete the useless vertex
« on: May 04, 2009, 05:58:24 AM »
As the subject,see the picture:

cjw

  • Guest
Re: [Challenge]Delete the useless vertex
« 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

  • Guest
Re: [Challenge]Delete the useless vertex
« 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

  • Guest
Re: [Challenge]Delete the useless vertex
« Reply #3 on: May 04, 2009, 09:24:29 AM »
Hi

Here

@+

CAB

  • Global Moderator
  • Seagull
  • Posts: 10401
I've reached the age where the happy hour is a nap. ()
Windows 10 core i7 4790k 4Ghz 32GB GTX 970
Please support this web site.

cjw

  • Guest
Re: [Challenge]Delete the useless vertex
« 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

  • Global Moderator
  • Seagull
  • Posts: 10401
Re: [Challenge]Delete the useless vertex
« Reply #6 on: May 04, 2009, 11:24:32 AM »
No big deal. Finding topics can be tricky at times. :-)
I've reached the age where the happy hour is a nap. ()
Windows 10 core i7 4790k 4Ghz 32GB GTX 970
Please support this web site.

cjw

  • Guest
Re: [Challenge]Delete the useless vertex
« Reply #7 on: May 05, 2009, 02:11:39 AM »
No big deal. Finding topics can be tricky at times. :-)

Thanks. :-)