pline by lisp

[Dayananda]

(command"pline"""(list 0 0)""W""0""2""(list 10 10))

I tried to draw a pline starting width 0 and end width 2 using above code.

But it is not working. Please somebody can give me a correct code.

[mhupp]

Close

(vl-cmdf "_.Pline" "0,0" "W" "0" "2" "10,10" "")

 

Edit -- This will allow you to pick other points but allow default to 0,0 and 10,10 if you don't pick anything

 

(defun C:Foo (/ PT1 PT2)
  (or (setq PT1 (getpoint "\nSpecify Base Point: ")) (setq PT1 "0,0"))  
  (or (setq PT2 (getpoint "\nSpecify End Point: ")) (setq PT2 "10,10"))
  (vl-cmdf "_.Pline" PT1 "W" "0" "2" PT2 "")
  (princ)
)

 

Edited August 24, 2021 by mhupp

[BIGAL]

You could use a entmake the difference being the extra codes for width when adding the dxf 10 values. Handy if adding lots of points and fast.

(10 280.0 32.0) (40 . 0.0) (41 . 2.0) (42 . 0.0) (91 . 0)