Message 1 of 2
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
I have two clouds of LISP, PLL and PLL2.
When I run the PLL, there is no such prompt as below,
Reverse direction [Yes/No] <No>:
However, when I run PLL2, there is this prompt.
I don't want PLL2 to have such a prompt, what should I do?
(defun c:PLL ()
(command-s ".-LAYER" "_N" "PLL" "_C" "240" "PLL" "")
(command-s "._REVCLOUD" "_A" 5 5 "_O" pause "_N")
(command-s "._CHANGE" (entlast) "" "_P" "_LA" "PLL" "")
(princ)
)
(defun c:PLL2 (/ width)
(setq default-width 5)
(setq width (getint (strcat "\nEnter width [" (itoa default-width) "]: ")))
(if (null width)
(setq width default-width)
)
(command-s ".-LAYER" "_N" "PLL" "_C" "240" "PLL" "")
(command-s "._REVCLOUD" "_A" width width "_O" "pause" "_N")
(command-s "._CHANGE" (entlast) "" "_P" "_LA" "PLL" "")
(princ)
)
Solved! Go to Solution.