Pick points

Hi
why does this not work?
thanks
Russ

(princ "pick points")
(command "pline" "c" "" )
(setq e1 (entlast))
(command "revcloud" "object" e1 "")

 

try -
(setq EL1 (entget (entlast)))
(princ "\nPick Points in Clock-wise Direction and hit C to close ? ")
(command "pline")
(while (/= (getvar "cmdactive") 0)
(command PAUSE)
)
(setq EL2 (entget (entlast)))
(if (not (equal EL1 EL2))
(command "revcloud" "object" (cdr (assoc -1 EL2)) "")
)

I added a get last entity before the pline command and a check to make sure
Pline command was successfully completed.

 

Alan ...brilliant!
more than I asked
many thanks
Russ

 

Someone was looking for a revision cloud routine that created the cloud
from a picked polyline. I could not find one so I created this one.
You may pick the polyline or draw it. You have the option to keep or delete
the polyline used to form the shape of the revision cloud.
The arc size is determined by the dimscale. I may revise this so the user
could enter the desired arc length.

You can find it here
http://theswamp.org/phpBB2/viewtopic.php?t=1319

If the link doesn't work it's because you are not a member of the forum.
It's free so just sign up to gain access

Here is the routine header:

Code:

;;;  PL2Cloud.lsp by Charles Alan Butler
;;;         Copyright 2004
;;;  by Precision Drafting & Design All Rights Reserved.
;;;  Contact at 
;;;
;;;   Version 1.0 Beta  May 1,2004
;;;   Version 1.1 Beta  May 5,2004
;;;      Added options to size the arc
;;;
;;; DESCRIPTION
;;; User picks or Draws a LW polyline and the routine draws a revision
;;; cloud along it, User option to delete the original polyline
;;;
;;;
;;;  Limitations
;;;  No error checking when object pline is too small
;;;
;;;
;;; Command Line Usage
;;; Command: PL2Cloud
;;;          Enter method to get polyline. [Pick / Draw / Options] <Pick>:
;;;          Keep the original polyline [Yes No] <No>:y
;;;          Pick Polyline to cloud:
;;;
;;;  Options:
;;;   Enter a new Chord length or negative number to divide into DimScale
;;;     Enter the actual chord length desired or
;;;     enter a negative number and that number will be divided into
;;;      the current dimscale to derive the chord length 

 

thanks looks interesting - but I can't find the PL2Cloud.lsp, even doing a
search

 

You have to be a member and logged in to see that forum.

Go here http://theswamp.org/phpBB2/index.php
and sign up. then go to the "Show your stuff" forum and you will find it.

 

You can find it here
The topic in the website you've posted does not exist,
so signing up as a member in that forum is useless.

Was wondering why you've posted the file header but
not the main lisp routine?

 

Sorry for the confusion, but it does exist, members of the swamp
can click on the first link posted and go directly to the thread.

The reason I posted the header only was to increase traffic to that
site, I didn't realize accessing it would be a problem.

Are you saying you signed up and still could not click on the first
link posted and view the thread?
If not I'll find out from the moderator of that forum why it did not
work for you. I see that two people signed up and NParcon was not
one of them.
If you are not a member that forum is invisible. Why? You'll have to
ask the administrator.

It appears urugx found it ok.
Again, sorry for your confusion.

CAB