×
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS

Log In

Come Join Us!

Are you an
Engineering professional?
Join Eng-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

Lisp files

Lisp files

Lisp files

(OP)
Where is a good place on the net to get examples of basic lisp to learn from, nothing to complicated.


cheers,

RE: Lisp files

(OP)
What Im trying to do is to make a lisp for a leader line, but to make it so it will have dual heads.(line a wish bone)

Im very much a beginer with lisp so plese be pacient.

this is what i have sorted out so far, it's very rought but im learning.

(defun c:db ()
(setq 1P (getpoint "\n Enter 1st leader point:"))
(setq 2P (getpoint "\n Enter 2ND leader point:"))
(setq 3P (getpoint "\n Enter 3RD leader point:"))
(command "LINE" 1P 3P 2P)
)

this gets me basically what i want, the double wish bone minus the arrow heads, if i change LINE to Leader. It gets me one leader but it goes through all three points.

Can some one please help me out,

RE: Lisp files

Well, for the first question. A great site is
www.afralisp.com

For the second question. I am not quite sure what you want. Are you picking in space, 3 arbitrary positions  (points) and then want to draw 2 lines between the three points and at the first point and the second point, draw an arrowhead?

Let me know if this is correct.

RE: Lisp files

If 3P is the common endpoint of the "wish-bone", and 1P and 2P are the arrowhead ends:

(defun c:db ()
(setq 1P (getpoint "\n Enter 1st leader point:"))
(setq 2P (getpoint "\n Enter 2ND leader point:"))
(setq 3P (getpoint "\n Enter 3RD leader point:"))
(command "LEADER" 1P 3P)
(command "LEADER" 2P 3P)
)

As a suggestion, before learning lisp, go through EVERY AutoCAD command and system variable and make sure you understand the prompt sequences.  Without a very good grasp of how the commands function, LISP will only cause trouble and lost time.

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Eng-Tips Forums free from inappropriate posts.
The Eng-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Eng-Tips forums is a member-only feature.

Click Here to join Eng-Tips and talk with other members!


Resources