start4444 发表于 2024-5-15 22:23:32

(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 发表于 2024-5-16 10:54:23

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 发表于 2024-5-16 10:57:42

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


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

aws 发表于 2024-5-16 11:08:20

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

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

aws 发表于 2024-5-16 11:11:52

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


感谢回复，谢谢
页: 1 [2]
查看完整版本: 点转成阵列点表