Code Red > AutoLISP (Vanilla / Visual)
Clean way to use "pline" for multi [#?] points w/arc,second,undo?
CodeDing:
This last statement you made...
--- Quote from: ScottMC on September 14, 2021, 05:14:52 PM ---Works but, with it like this, it's my choice on the number of vertices.
.....
--- End quote ---
...directly contradicts your original request...
--- Quote from: ScottMC on September 14, 2021, 12:47:37 PM ---.....
Hope to see a way to avoid point-limit as NOT with this:
.....
(vl-cmdf "pline" "\\" "\\" "\\" "\\") ;; << draw polyline - 4 points.. :(
.....
--- End quote ---
Hope you got what you needed though.
Best,
~DD
ScottMC:
I'd rather it work as a normal pline for creating, but mine doesn't have command-s :(. Been without it and some others since-day-1 with 13c4 w/3-1/2" floppy. This ability would be helpful. Else-wise if there's any other code testing needed, please include me.
CodeDing:
ScottMC,
--- Quote from: ScottMC on September 14, 2021, 06:00:43 PM ---...but mine doesn't have command-s :(...
--- End quote ---
Oh, so you can not run the command-s function? What CAD software are you running then? What year/version?
Does this suit you better?
--- Code: ---(defun c:PRG ( / e)
(setq e (entlast))
(command "_.PLINE")
(while (> (getvar 'CMDACTIVE) 0)
(command pause)
);while
(if (not (equal e (entlast)))
(command "_.REGION" "l" "")
);if
(princ)
);defun
--- End code ---
Best,
~DD
ScottMC:
.. 2000! And Mega thanks for getting/sending me that code as it WORKS!! God Bless you.
Navigation
[0] Message Index
[*] Previous page
Go to full version