Wall Poche lisp

[Tharwat]

Things like this ... ?

(defun c:Test (/ p1 p2 w vl) (vl-load-com)
  (if (and (setq p1 (getpoint "\n Specify first point :"))
           (setq p2 (getpoint p1 "\n Next point :"))
      )
    (vl-cmdf "_.pline" "_non" p1 "_non" p2 "")
  )
  (if (setq w (getdist "\n Specify width of Polyline :"))
    (progn
      (setq vl (vlax-ename->vla-object (entlast)))
      (vla-put-constantwidth vl w)
    )
    (princ)
  )
  (princ)
)

[Grigs]

Yeah, that works great. Thanks!!!

[Tharwat]

Yeah, that works great. Thanks!!!

You're very welcome .

[Grigs]

Now just to tweak it abit

[Tharwat]

Now just to tweak it abit

If you need to add more options , just tell and I would be more than happy to modify it if I could make it .

[Grigs]

I just need to add error detection, layer control, setting/resetting of osnaps.

[Tharwat]

I just need to add error detection, layer control, setting/resetting of osnaps.

Yeah , it is possible .

What is the name of the layer that you want lay the drawn polyline on ?
And the osnaps modes that you want to set them on just while running the routine ?

[Grigs]

Well, I think I have those figured out. It detects if the layer is there or not. If it is there, then it sets that layer current. If not, it creates it. I've got that implenented, just need to save the current layer and reset it back.

[Tharwat]

Ok , just post the name of the layer and its settings (color , Lineweight , LType )

[Grigs]

Here is the code I came up with to deal with the layer:

(if (tblsearch "layer" "A-Wall-Patt")


(command "layer" "s" "A-Wall-Patt" "")


(command "layer" "m" "A-Wall-Patt" "c" "252" "A-Wall-Patt" "")


)