CADlisp 相关话题

(defun c:quanz ( / #n5 &p1 tr1)物联网软件开发公司  (if (null #n1) (setq #n1 1) 物联网软件开发公司 )  (if (setq tr1 (getint (strcat "\输入第一个整数:<" (rtos #n1 2 0) ">")))   (setq #n1 tr1)  (setq tr1 #n1)  )