Visual LISP, AutoLISP and General Customization
Reply
Topic Options
- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic to the Top
- Bookmark
- Subscribe
- Printer Friendly Page
*van Eeten, John
Delete entity?
Options
- Mark as New
- Bookmark
- Subscribe
- Subscribe to RSS Feed
- Highlight
- Email to a Friend
- Report Inappropriate Content
196 Views, 2 Replies
06-02-2002 05:45 PM
Hi All,
If i have this program to make a polyline out of a line:
(defun c:test ( / )
(setq ent (entsel "Click splintered pline: "))
(setq ent1 (entget (car ent)))
(setq pointstart (cdr (assoc 10 ent1)))
(setq pointend (cdr (assoc 11 ent1)))
(command "pline" pointstart pointend "")
(entdel ent1)
(princ)
)
with the (entdel ent1) it goes wrong. I tried several ways but I can't make
it work to delete the selected line.
How can I do this?
Thanks in advance,
John van Eeten
If i have this program to make a polyline out of a line:
(defun c:test ( / )
(setq ent (entsel "Click splintered pline: "))
(setq ent1 (entget (car ent)))
(setq pointstart (cdr (assoc 10 ent1)))
(setq pointend (cdr (assoc 11 ent1)))
(command "pline" pointstart pointend "")
(entdel ent1)
(princ)
)
with the (entdel ent1) it goes wrong. I tried several ways but I can't make
it work to delete the selected line.
How can I do this?
Thanks in advance,
John van Eeten
*McSwain, R.K.
Re: Delete entity?
Options
- Mark as New
- Bookmark
- Subscribe
- Subscribe to RSS Feed
- Highlight
- Email to a Friend
- Report Inappropriate Content
06-02-2002 07:45 PM in reply to:
*van Eeten, John
The (entdel) function expects an entity name, you
are passing it an entity list.
Change (entdel ent1) to (entdel (car ent))
"John van Eeten"
wrote in
message
news:3327003C63583A34718F852595F2E17A@in.WebX.maYI
adrTaRb...
> Hi All,
>
> If i have this program to make a polyline out of
a line:
>
> (defun c:test ( / )
> (setq ent (entsel "Click splintered pline: "))
> (setq ent1 (entget (car ent)))
> (setq pointstart (cdr (assoc 10 ent1)))
> (setq pointend (cdr (assoc 11 ent1)))
> (command "pline" pointstart pointend "")
> (entdel ent1)
> (princ)
> )
>
> with the (entdel ent1) it goes wrong. I tried
several ways but I can't make
> it work to delete the selected line.
> How can I do this?
>
> Thanks in advance,
>
> John van Eeten
>
>
are passing it an entity list.
Change (entdel ent1) to (entdel (car ent))
"John van Eeten"
message
news:3327003C63583A34718F852595F2E17A@in.WebX.maYI
adrTaRb...
> Hi All,
>
> If i have this program to make a polyline out of
a line:
>
> (defun c:test ( / )
> (setq ent (entsel "Click splintered pline: "))
> (setq ent1 (entget (car ent)))
> (setq pointstart (cdr (assoc 10 ent1)))
> (setq pointend (cdr (assoc 11 ent1)))
> (command "pline" pointstart pointend "")
> (entdel ent1)
> (princ)
> )
>
> with the (entdel ent1) it goes wrong. I tried
several ways but I can't make
> it work to delete the selected line.
> How can I do this?
>
> Thanks in advance,
>
> John van Eeten
>
>
*van Eeten, John
Re:
Options
- Mark as New
- Bookmark
- Subscribe
- Subscribe to RSS Feed
- Highlight
- Email to a Friend
- Report Inappropriate Content
06-03-2002 04:04 PM in reply to:
*van Eeten, John
Thanks!
John
"R.K. McSwain" schreef in bericht
news:63FC76563578E16A2BEAD587B0BB28D6@in.WebX.maYI
> The (entdel) function expects an entity name, you
> are passing it an entity list.
>
> Change (entdel ent1) to (entdel (car ent))
>
> "John van Eeten"
> wrote in
> message
> news:3327003C63583A34718F852595F2E17A@in.WebX.maYI
> adrTaRb...
> > Hi All,
> >
> > If i have this program to make a polyline out of
> a line:
> >
> > (defun c:test ( / )
> > (setq ent (entsel "Click splintered pline: "))
> > (setq ent1 (entget (car ent)))
> > (setq pointstart (cdr (assoc 10 ent1)))
> > (setq pointend (cdr (assoc 11 ent1)))
> > (command "pline" pointstart pointend "")
> > (entdel ent1)
> > (princ)
> > )
> >
> > with the (entdel ent1) it goes wrong. I tried
> several ways but I can't make
> > it work to delete the selected line.
> > How can I do this?
> >
> > Thanks in advance,
> >
> > John van Eeten
> >
> >
>
>
John
"R.K. McSwain"
news:63FC76563578E16A2BEAD587B0BB28D6@in.WebX.maYI
> The (entdel) function expects an entity name, you
> are passing it an entity list.
>
> Change (entdel ent1) to (entdel (car ent))
>
> "John van Eeten"
>
> message
> news:3327003C63583A34718F852595F2E17A@in.WebX.maYI
> adrTaRb...
> > Hi All,
> >
> > If i have this program to make a polyline out of
> a line:
> >
> > (defun c:test ( / )
> > (setq ent (entsel "Click splintered pline: "))
> > (setq ent1 (entget (car ent)))
> > (setq pointstart (cdr (assoc 10 ent1)))
> > (setq pointend (cdr (assoc 11 ent1)))
> > (command "pline" pointstart pointend "")
> > (entdel ent1)
> > (princ)
> > )
> >
> > with the (entdel ent1) it goes wrong. I tried
> several ways but I can't make
> > it work to delete the selected line.
> > How can I do this?
> >
> > Thanks in advance,
> >
> > John van Eeten
> >
> >
>
>
