Need lisp for polyline
That lisp definitely works on multi-vertex polylines.
...however, it will not effectively work on polylines with arcs...
Best,
~DD
I would like to reiterate @CodeDing's first question in Message 2, which the routine does not handle [left side of image below]. And would the Polyline ever slope the other way [right side]? The routine also doesn't work in that situation.
Even if it generally slopes upward from left to right, if it goes downward first before going predominantly upward, the same error occurs.
These don't matter if you never have such situations, but that doesn't seem likely in the real world.
Kent Cooper, AIA 
Accepted solution
@Kent1Cooper wrote:
I would like to reiterate @CodeDing's first question in Message 2, which the routine does not handle .... And would the Polyline ever slope the other way [right side]? The routine also doesn't work in that situation. ....
Try this:
(defun C:STEP-15 (/ *error* doc svnames svvals ss n plobj LL xl xlobj intc pts)
;; Kent Cooper 12/20/18
(defun *error* (errmsg)
(if (not (wcmatch errmsg "Function cancelled,quit / exit abort,console break"))
(princ (strcat "\nError: " errmsg))
); if
(mapcar 'setvar svnames svvals); reset System Variables
(vla-endundomark doc)
(princ)
); defun - *error*
(vla-startundomark (setq doc (vla-get-activedocument (vlax-get-acad-object))))
(setq
svnames '(osmode cmdecho blipmode plinewid)
svvals (mapcar 'getvar svnames)
); setq
(prompt "\nTo draw 0.15-height under-side steps along Polyline(s),")
(if (setq ss (ssget '((0 . "*POLYLINE"))))
(progn ; then
(mapcar 'setvar svnames '(0 0 0 0))
; turn off Osnap, command echoing, blips; set Pline width to 0
(repeat (setq n (sslength ss))
(setq
pts nil ; [reset from previous]
plobj (vlax-ename->vla-object (ssname ss (setq n (1- n))))
); setq
(vla-getboundingbox plobj 'minpt 'maxpt)
(setq LL (vlax-safearray->list minpt)); setq
(command "_.xline" "_hor" LL "")
(setq xl (entlast) xlobj (vlax-ename->vla-object xl))
(repeat (1+ (fix (/ (- (cadr (vlax-safearray->list maxpt)) (cadr LL)) 0.15)))
(setq intc (vlax-invoke plobj 'IntersectWith xlobj acExtendNone))
(while intc
(setq
pts (cons (list (car intc) (cadr intc) (caddr intc)) pts)
intc (cdddr intc); to next [if any]
); setq
); while
(command "_.move" xl "" "0,0.15" ""); next level upward
); repeat
(entdel xl); remove level-stepping Xline
(if (> (length pts) 1); i.e. Polyline had enough vertical extent for >1 levels
(progn ; then
(setq pts (vl-sort pts '(lambda (a b) (< (car a) (car b))))); left-to-right order
(command "_.pline" (car pts)); start at left-most point
(while (> (length pts) 1); still at least 2 points left
(command
(if (< (cadar pts) (cadadr pts)); current point lower than next point?
(list (caadr pts) (cadar pts)); then -- X of next point, Y of current point
(list (caar pts) (cadadr pts)); else -- X of current point, Y of next point
); if
(cadr pts); then next point
); command
(setq pts (cdr pts)); remove current point
); while
(command (car pts) ""); finish Polyline
); progn
); if
); repeat [each Polyline]
); progn
(prompt "\nNo Polyline(s) selected."); else
); if [selection]
(mapcar 'setvar svnames svvals); reset System Variables
(vla-endundomark doc)
(princ)
); defun -- C:STEP-15
It works with Polylines containing arc segments:
and with ones that slope in either direction, or that reverse vertical direction:
and note there that it always touches, and bases its 0.15-height stepping from, the lowest point in the Polyline's vertical extent, which in the case above is the right end. If a Polyline goes downward and then back upward again, but where that dip is not the lowest point [here, the "path" extends lower outside the image] it can result in a stepped Polyline that is in part above the "path" Polyline:
though it does have vertices on it. I suppose it might be possible to revise it to step downward another level across that space, if appropriate.
You can select more than one Polyline in or parallel to the current drawing plane [of any variety, but if 3D, they must be planar], and it will do all of them at once. It draws the stepped one on the current Layer, at constant zero width regardless of the current PLINEWID setting.
It could be adjusted to ask for a stepping height, rather than have the 0.15 built in, and/or could be made to work with planar Polylines not parallel to the current XY plane, and/or with other "path" object types [Lines, Splines, Arcs, etc.].
Kent Cooper, AIA
@Anonymous wrote:
.... Would it be possible to start the steps instead of the lowest point of the polyline, from the highest? ....
Try this [minimally tested]:
(defun C:STEP-15 (/ *error* doc svnames svvals ss n plobj UR xl xlobj intc pts)
;; Kent Cooper 12/20/18
(defun *error* (errmsg)
(if (not (wcmatch errmsg "Function cancelled,quit / exit abort,console break"))
(princ (strcat "\nError: " errmsg))
); if
(mapcar 'setvar svnames svvals); reset System Variables
(vla-endundomark doc)
(princ)
); defun - *error*
(vla-startundomark (setq doc (vla-get-activedocument (vlax-get-acad-object))))
(setq
svnames '(osmode cmdecho blipmode plinewid)
svvals (mapcar 'getvar svnames)
); setq
(prompt "\nTo draw 0.15-height under-side steps along Polyline(s),")
(if (setq ss (ssget '((0 . "*POLYLINE"))))
(progn ; then
(mapcar 'setvar svnames '(0 0 0 0))
; turn off Osnap, command echoing, blips; set Pline width to 0
(repeat (setq n (sslength ss))
(setq
pts nil ; [reset from previous]
plobj (vlax-ename->vla-object (ssname ss (setq n (1- n))))
); setq
(vla-getboundingbox plobj 'minpt 'maxpt)
(setq UR (vlax-safearray->list maxpt)); setq
(command "_.xline" "_hor" UR "")
(setq xl (entlast) xlobj (vlax-ename->vla-object xl))
(repeat (1+ (fix (/ (- (cadr UR) (cadr (vlax-safearray->list minpt))) 0.15)))
(setq intc (vlax-invoke plobj 'IntersectWith xlobj acExtendNone))
(while intc
(setq
pts (cons (list (car intc) (cadr intc) (caddr intc)) pts)
intc (cdddr intc); to next [if any]
); setq
); while
(command "_.move" xl "" "0,-0.15" ""); next level downward
); repeat
(entdel xl); remove level-stepping Xline
(if (> (length pts) 1); i.e. Polyline had enough vertical extent for >1 levels
(progn ; then
(setq pts (vl-sort pts '(lambda (a b) (< (car a) (car b))))); left-to-right order
(command "_.pline" (car pts)); start at left-most point
(while (> (length pts) 1); still at least 2 points left
(command
(if (< (cadar pts) (cadadr pts)); current point lower than next point?
(list (caadr pts) (cadar pts)); then -- X of next point, Y of current point
(list (caar pts) (cadadr pts)); else -- X of current point, Y of next point
); if
(cadr pts); then next point
); command
(setq pts (cdr pts)); remove current point
); while
(command (car pts) ""); finish Polyline
); progn
); if
); repeat [each Polyline]
); progn
(prompt "\nNo Polyline(s) selected."); else
); if [selection]
(mapcar 'setvar svnames svvals); reset System Variables
(vla-endundomark doc)
(princ)
); defun -- C:STEP-15If you want to have both varieties available, change the command name in one of them.
Kent Cooper, AIA
.png){kind=link}
.png){kind=link}
@Anonymous wrote:
.... Would it be complicate to install a short request in the AutoCAD commando line for inserting a individual high for the steps? ....
That is probably not complicated, but I'm not quite sure exactly what you mean by it. Can you post an image or sample drawing pointing with notes indicating what you're starting with and the kind of result you want?
Kent Cooper, AIA