topic Re: BlocksToLine for fire alarm risers vertical LISP in Visual LISP, AutoLISP and General Customization Forum

BlocksToLine for fire alarm risers vertical LISP

jlicerioAQQLC — Mon, 26 Sep 2022 21:03:52 GMT

Using this lisp to make fire alarm risers how would I add a vertical function to it? It lays them out horizontally.

(vl-load-com)

(defun c:BlocksToLine ( / s p i a l x)

(or *btl-a* (setq *btl-a* "STROMKREIS"))
(or *btl-d* (setq *btl-d* 2.))

(if (and (setq s (ssget "_:L" '((0 . "INSERT") (66 . 1 ))))
(not (initget 128))
(setq *btl-a* (cond ((getkword (strcat "\nTag name to sort by <" *btl-a* ">: "))) (*btl-a*)))
(setq *btl-d* (cond ((getdist (strcat "\nDistance in between <" (rtos *btl-d*) ">: "))) (*btl-d*)))
(setq p (getpoint "\nPlace them here: "))
)
(repeat (setq i (sslength s))
(setq e (ssname s (setq i (1- i))))
(if (not (vl-catch-all-error-p (setq a (vl-catch-all-apply 'getpropertyvalue (list e *btl-a*)))))
(setq l (cons (cons e a) l)))))
(setq l (vl-sort l '(lambda (e1 e2) (< (cdr e1) (cdr e2)))))
(setq x (- (car p) *btl-d*))
(foreach e l (command "_copy" (car e) "" "_non" (trans (cdr (assoc 10 (entget (car e)))) 0 1) "_non" (list (setq x (+ x *btl-d*)) (cadr p))))
(princ)
)

Re: BlocksToLine for fire alarm risers vertical LISP

Kent1Cooper — Tue, 27 Sep 2022 12:07:09 GMT

Show us what that would look like.

Re: BlocksToLine for fire alarm risers vertical LISP

jlicerioAQQLC — Tue, 27 Sep 2022 20:28:06 GMT

The first vertical one was what I was looking for the other two as well I could use for a different project.

Re: BlocksToLine for fire alarm risers vertical LISP

Kent1Cooper — Wed, 28 Sep 2022 11:32:32 GMT

Untested, but try changing this much:
(setq x (- (car p) *btl-d*))

to this:

(setq y (+ (cadr p) *btl-d*))

and changing this much:

...(list (setq x (+ x *btl-d*)) (cadr p))...

to this:

...(list (car p) (setq y (- y *btl-d*)))...

And change the x at the end of the localized variables list at the top to y.

Re: BlocksToLine for fire alarm risers vertical LISP

jlicerioAQQLC — Wed, 28 Sep 2022 13:51:24 GMT

It changed the direction of the blocks to opposite numerical order greatest to least .

Re: BlocksToLine for fire alarm risers vertical LISP

jlicerioAQQLC — Wed, 28 Sep 2022 13:52:18 GMT

(vl-load-com)

(defun c:BlocksToLineY ( / s p i a l x)

(or *btl-a* (setq *btl-a* "NACTAG"))
(or *btl-d* (setq *btl-d* 2.))

(if (and (setq s (ssget "_:L" '((0 . "INSERT") (66 . 1 ))))
(not (initget 128))
(setq *btl-a* (cond ((getkword (strcat "\nTag name to sort by <" *btl-a* ">: "))) (*btl-a*)))
(setq *btl-d* (cond ((getdist (strcat "\nDistance in between <" (rtos *btl-d*) ">: "))) (*btl-d*)))
(setq p (getpoint "\nPlace them here: "))
)
(repeat (setq i (sslength s))
(setq e (ssname s (setq i (1- i))))
(if (not (vl-catch-all-error-p (setq a (vl-catch-all-apply 'getpropertyvalue (list e *btl-a*)))))
(setq l (cons (cons e a) l)))))
(setq l (vl-sort l '(lambda (e1 e2) (< (cdr e1) (cdr e2)))))
(setq Y (+ (car p) *btl-d*))
(foreach e l (command "_copy" (car e) "" "_non" (trans (cdr (assoc 10 (entget (car e)))) 0 1) "_non" (list (setq Y (- Y *btl-d*)) (cadr p))))
(princ)
)

Re: BlocksToLine for fire alarm risers vertical LISP

Kent1Cooper — Wed, 28 Sep 2022 13:59:56 GMT

@jlicerioAQQLC wrote:
....
(setq Y (+ (car p) *btl-d*))
(foreach e l (command "_copy" (car e) "" "_non" (trans (cdr (assoc 10 (entget (car e)))) 0 1) "_non" (list (setq Y (- Y *btl-d*)) (cadr p))))
....

You didn't make all the changes suggested in Message 4 [the red parts above are wrong].

Re: BlocksToLine for fire alarm risers vertical LISP

jlicerioAQQLC — Thu, 29 Sep 2022 14:28:24 GMT

Got errors in the script malformed list while using the exact suggestion.

Re: BlocksToLine for fire alarm risers vertical LISP

Kent1Cooper — Thu, 29 Sep 2022 14:32:06 GMT

Post it. [It's not a Script, by the way -- that word has a specific and different (though related) meaning in AutoCAD.]

Re: BlocksToLine for fire alarm risers vertical LISP

jlicerioAQQLC — Thu, 29 Sep 2022 15:03:07 GMT

Re: BlocksToLine for fire alarm risers vertical LISP

jlicerioAQQLC — Thu, 29 Sep 2022 15:03:13 GMT

(vl-load-com)

(defun c:BlocksToLineY ( / s p i a l x)

(or *btl-a* (setq *btl-a* "NACTAG"))
(or *btl-d* (setq *btl-d* 2.))

(if (and (setq s (ssget "_:L" '((0 . "INSERT") (66 . 1 ))))
(not (initget 128))
(setq *btl-a* (cond ((getkword (strcat "\nTag name to sort by <" *btl-a* ">: "))) (*btl-a*)))
(setq *btl-d* (cond ((getdist (strcat "\nDistance in between <" (rtos *btl-d*) ">: "))) (*btl-d*)))
(setq p (getpoint "\nPlace them here: "))
)
(repeat (setq i (sslength s))
(setq e (ssname s (setq i (1- i))))
(if (not (vl-catch-all-error-p (setq a (vl-catch-all-apply 'getpropertyvalue (list e *btl-a*)))))
(setq l (cons (cons e a) l)))))
(setq l (vl-sort l '(lambda (e1 e2) (< (cdr e1) (cdr e2)))))
(setq y (+ (cadr p) *btl-d*))
(foreach e l (command "_copy" (car e) "" "_non" (trans (cdr (assoc 10 (entget (car e)))) 0 1) "_non" (list(car p) (setq y (- y *btl-d*)) ))
(princ)
)

Re: BlocksToLine for fire alarm risers vertical LISP

Kent1Cooper — Thu, 29 Sep 2022 17:16:54 GMT

....

(foreach e l

(command

"_copy"

(car e) ""

"_non" (trans (cdr (assoc 10 (entget (car e)))) 0 1)

"_non"

(list

(car p) ; X coordinate

(setq y (- y *btl-d*)) ; Y coordinate

) ; list [completes Copy command]

) ; command

) ; foreach <-- MISSING

(princ)

....