Wall Poche lisp

[Grigs]

I can see how this would work, just can't write the code. Was wondering if someone could help. Basically, you would pick 3 points. The first 2 would determine the width and the 3rd would determine the length. Then, it would create a polygon using the width and length. I know it sounds weird, but it would really help.

Thanks

[MSasu]

Something like this?

;;; 3 Points Polygon (11-VII-2012)
(defun c:3PP( / point1st point2nd point3rd  )
 (while (and (setq point1st (getpoint "\nPick insertion point: "))
             (setq point2nd (getpoint point1st "\nIndicate width: "))
             (setq point3rd (getpoint point1st "\nIndicate length ")))
  (command "_RECTANGLE" "_non" point1st
                        "_non" (list (+ (car  point1st) (distance point1st point3rd))
                                     (+ (cadr point1st) (distance point1st point2nd))))
 )

 (princ)
)

[Grigs]

Kinda. That draws a rectangle. What I need it a polyline.

[Tharwat]

Kinda. That draws a rectangle. What I need it a polyline.

Upload a drawing shows your needs in it .

[MSasu]

Kinda. That draws a rectangle. What I need it a polyline.

A rectangle is nothing more than a polyline entity.

[Grigs]

Does this help?


Capture.jpg

[MSasu]

So you are looking in fact for a single segment polyline with width different than 0?

[Grigs]

Correct. The width would be determined by the first 2 points that are selected.

I know the image looks a little different than what I am explaning, but honestly all I need is the base code that creates it. I can tweak it to do what I want it to end up looking like.

[Tharwat]

This ... ?

(defun c:Test (/ p1 p2 vl gr) (vl-load-com)
  (if (and (setq p1 (getpoint "\n Specify first point :"))
           (setq p2 (getpoint p1 "\n Next point :"))
      )
    (progn
      (vl-cmdf "_.pline" "_non" p1 "_non" p2 "")
      (setq vl (vlax-ename->vla-object (entlast)))
      (while (eq (car (setq gr (grread t 15 0))) 5)
        (redraw)
        (grdraw p1 (polar p1 (+ (angle p1 p2) (/ pi 2.)) (distance p1 (cadr gr))) 1 0)
        (vla-put-constantwidth vl (distance p1 (cadr gr)))
      )
    )
    (princ)
  )
  (redraw)
  (princ)
)

[Grigs]

That's an interesting way to go about it. It seems that the 2 points define the length, then it has a rubberband effect that does the width. If there was a way to type in a width or pick 2 points for the width, it would be great.