Hello all,
I am new to using WHILE in lsp Can someone please help me fix the posted lisp?
I am under the impression that when I hit enter or right click, the function should end.
Thanks all in advance
Code:
(defun c:crn (/ ocircno ocirccount ocircmulti circaddtext bname sp1 ocircadd)
(cvo)
(if (not circno)(setq circno 1))
(if (not circmulti)(setq circmulti 1))
(if (not circadd) (Setq circadd 1))
(if (not circcount)(setq circcount 1))
(setq circno (getreal (strcat "\nenter circuit number: ")))
(setq circcount (getreal (strcat "\nenter number of outlets on circuit: ")))
(setq circmulti (getreal (strcat "\nenter circuit number increments: ")))
(while
(progn
(setq ocircno circno)
(setq ocircmulti circmulti)
(setq ocircadd circadd)
(setq ocirccount circcount)
(if (> circadd circcount)
(progn
(setq circno (+ circno circmulti))
(setq ocircno circno)
(setq circadd (+ circmulti 0))
(setq ocircadd circadd)
)
)
(command "-layer" "make" "E-POWR-TEXT" "" "")
(command "-layer" "unlock" cclayer "" "")
(setq sp1 (getpoint "\nSpecify point for text insertion: "))
(setq bname "T:\\AEI CAD\\Electrical\\Symbols\\circuit number.dwg")
(command "-insert" bname "S" cdimscale "r" 0 sp1)
(command (strcat (rtos circno 2 0)))
(cvr)
(setq circadd (+ ocircadd 1))
(princ (strcat "\nnumber = " (rtos circno 2 0) " count = " (rtos circcount 2 0) " increments = " (rtos circmulti 2 0)))
(princ (strcat "\nCirc Add = " (rtos circadd 2 0)))
)
)
(princ)
)