[编程交流] [Lisp程序]捕捉点似乎已过时

(setq aantal (getint "\nHoeveel cirkels plaatsen?<50>: "))
 (if (null aantal) (setq aantal 50)) ;; Indien gewoon op enter wordt gedrukt bij deze vraag wordt het standaard aantal 50 gebruikt
 (setq max aantal) ;; Defineer het maximum aantal circels dat geplaatst wordt
  (repeat aantal ;; Herhaal de code totdat het max aantal circels is bereikt
(setq XYZpunt (getpoint (strcat "\nWaar wil je de cirkel hebben? (nog: " (rtos aantal 2 0)"/"(rtos max 2 0)")")))
(setq Z (getint "\nOp welke hoogte moet deze komen?: "))
(setq X (rtos (car XYZpunt) 2 10)) ;; Zet coordinaat X om in STRING
(setq Y (rtos (cadr XYZpunt) 2 10)) ;; Zet coordinaat Y om in STRING
(setq Z (rtos Z 2 3)) ;; Zet coordinaat Z om in STRING
(setq XYZ (strcat X "," Y "," Z)) ;; Combineert SETQ X Y en Z naar coordinaten STRING
;;(princ "\nXYZ: ") ;; Debug check
;;(princ XYZ) ;; Debug check
(command "CIRCLE" XYZ "0.05") ;; Plaatst cirkel op gekozen coordinaat met handingevoerde hoogte
(princ "\nCirkel geplaatst")
(setq aantal (1- aantal)) ;; Haalt van het aantal aangegeven punten-nog-te-doen 1 punt af.
  )
)

(setq aantal (getint "\nHoeveel cirkels plaatsen?<50>: "))
 (if (null aantal) (setq aantal 50))
 (setq max aantal)
  (repeat aantal 
(setq XYZpunt (getpoint (strcat "\nWaar wil je de cirkel hebben? (nog: " (rtos aantal 2 0)"/"(rtos max 2 0)")")))
(setq Z (getint "\nOp welke hoogte moet deze komen?: "))
(setq X (rtos (car XYZpunt) 2 10)) 
(setq Y (rtos (cadr XYZpunt) 2 10)) 
(setq Z (rtos Z 2 3)) 
(setq XYZ (strcat X "," Y "," Z))
(command "CIRCLE" XYZ "0.05")
(princ "\nCirkel geplaatst")
(setq aantal (1- aantal)) 
  )
)

(defun c:foo (/ p z)
 (and
   (setq p (getpoint "\nSpecify center point for circle: "))
   (setq z (getreal "\nEnter Z value: "))
   (entmakex (list '(0 . "circle") '(8 . "Circle") (cons 10 (list (car p) (cadr p) z)) '(40 . 0.05))
   )
 )
 (princ)
)

[size=2](command "CIRCLE" [color=red]"none"[/color] XYZ "0.05")[/size]

(Defun c:PCH (/ aantal max XYZpunt Z X Y XYZ)
(setq aantal (getint "\nHoeveel cirkels plaatsen?<50>: "))
 (if (null aantal) (setq aantal 50)) ;; Indien gewoon op enter wordt gedrukt bij deze vraag wordt het standaard aantal 50 gebruikt
 (setq max aantal) ;; Defineer het maximum aantal circels dat geplaatst wordt
  (repeat aantal ;; Herhaal de code totdat het max aantal circels is bereikt
(setq XYZpunt (getpoint (strcat "\nWaar wil je de cirkel hebben? (nog: " (rtos aantal 2 0)"/"(rtos max 2 0)")")))
(setq Z (getstring "\nOp welke hoogte moet deze komen?: "))
(setq X (rtos (car XYZpunt) 2 10)) ;; Zet coordinaat X om in STRING
(setq Y (rtos (cadr XYZpunt) 2 10)) ;; Zet coordinaat Y om in STRING
(setq XYZ (strcat X "," Y "," Z)) ;; Combineert SETQ X Y en Z naar coordinaten STRING
(command "CIRCLE" [color=red]"none"[/color] XYZ "0.05") ;; Plaatst cirkel op gekozen coordinaat met handingevoerde hoogte
(princ "\nCirkel geplaatst")
(setq aantal (1- aantal)) ;; Haalt van het aantal aangegeven punten-nog-te-doen 1 punt af.
  )
)