点转成阵列点表

start4444

(defun ptlst (p0 xn yn xd yd / i ii plst px)       
(setq plst '())
(setq i -1)       
(repeat xn (setq plst (cons (setq px (polar p0 (* 0 pi) (* (setq i (1+ i)) xd))) plst))        
(setq ii 0)                
(if (/= yn 1)
(repeat (1- yn) (setq plst (cons (polar px (* 0.5 pi) (* (setq ii (1+ ii)) yd)) plst))));re2         
        );re1
plst               
)

aws

nzl1116 发表于 2024-5-15 20:10
;;;_$ (ttt '(0 0) 10 10 1 1)
;;; ((0 0) (1 0) (2 0) (3 0) (4 0) (5 0) (6 0) (7 0) (8 0) (9 0)
;;;  ...

妙啊，写的真好啊

aws

xyp1964 发表于 2024-5-15 21:19

感谢院长。还需要拍平处理

aws

guosheyang 发表于 2024-5-15 19:41
vla-ArrayRectangular     vla-ArrayPolar

问个题外问题，假如我用
vla-ArrayRectangular  函数，阵列了10个对象，那么我如何把这10个对象再一次性删除呢？

aws

start4444 发表于 2024-5-15 22:23
(defun ptlst (p0 xn yn xd yd / i ii plst px)       
(setq plst '())
(setq i -1)       

感谢回复，谢谢