Leaderboard

MeasureGeom worked...thanks

So you only care about the grand total ? Command: MeasureGeom

https://www.bleepingcomputer.com/news/security/autodesk-reveals-it-was-targeted-by-russian-solarwinds-hackers/

How do I get this to "call/goto" another defun within the same lisp. When I try it, it tells me ; error: no function definition: (vl-load-com) ;-------------------------------------------------------------------------------------------------------------------------------------------------------------------- (SETQ reply1 (ACET-UI-MESSAGE (strcat "Some Text") "Some Header" 36)) (IF (= reply1 6) (c:mos2nsc)) (IF (= reply1 7) (c:runlater)) ;-------------------------------------------------------------------------------------------------------------------------------------------------------------------- (defun c:mos2nsc ( / ) (SETQ reply2 (ACET-UI-MESSAGE (strcat "Some Text") "Some Header" 20)) (IF (= reply2 6) (c:replyyes)) (IF (= reply2 7) (c:runlater)) ) ;-------------------------------------------------------------------------------------------------------------------------------------------------------------------- (defun c:replyyes ( / of_epk of_pt) (setvar "cmdecho" 0) (if (null of_dist) (setq of_distx 1.0)) (initget 6) (if (null (setq of_dist (getdist (strcat "\nPlease Enter the Offset Distance <>: ")))) (setq of_dist of_distx) ) (setq of_distx of_dist) (if (null of_elev) (setq of_elevx 0.0)) (if (null (setq of_elev (getreal (strcat "\nPlease Enter the Elevation Difference - For a Negative Use a '-' <>: ")))) (setq of_elev of_elevx) ) (setq of_elevx of_elev) (while (or (setq of_epk (entsel)) (eq 7 (getvar "errno"))) (if (and of_epk (member (cdr (assoc 100 (reverse (entget (car of_epk))))) '("AcDbPolyline" "AcDb2dPolyline")) (setq of_pt (getpoint "\nPlease Select the Side to offset: ")) ) (command "_.offset" of_dist of_epk of_pt "" "_.move" (entlast) "" (list 0.0 0.0 of_elev) "") ) ) (princ) ) ;-------------------------------------------------------------------------------------------------------------------------------------------------------------------- (defun c:runlater ( / ) (acet-ui-message "To run later, type 'MOS2NSC' anytime to begin to conversion process." "Some Header" 64) )