Draw polyline and insert a fill circle

[karmix]

Hi all!
I want to draw a polyline and insert in the first point an circle filled.
Can you help me with a lisp code?
Thanks

[BIG-AL]

Use (setq pt (getpoint "\npick 1st point")) or if happy (setq pt (getpoint))

Then Donut !pt enter inside and outside rads
Then pline !pt then all the next pick points.

[karmix]

Hi BIG-AL,
this is my result:

(defun c:a3 (/ point)
	(if (setq point (getpoint "\nSpecify start point: "))
		(command "_.polygon" 4 "_non" point "_inscribed" 0.05))
			(setq e1 (entlast))
				(command "-.pedit" e1 "_w" 0.10 "_f" "") 
					(command "_.pline" point)
  (princ)
)

I have another question: When i finish to draw the "pline", i want to add an "mtext" in the same position of the last vertex.
How can i doing this?
Thank you very much

[marko_ribar]

@karmix,

You need (progn ... ) after (if expression (progn ... then ) (progn ... else ));end if

Next time, you test your code after posting...

As for your question :

...
(command "_.pline" "_non" point)
(while (< 0 (getvar 'cmdactive))
(command pause)
)
(command "_.text" "_non" (getvar 'lastpoint))
(while (< 0 (getvar 'cmdactive))
(command pause)
)
);end progn
);end if
(princ)
);end defun

[karmix]

Hi Marko,
you think i can delete the "if" expression from my code?
Your code do not run...
Thank you