CAD AutoLisp 循环顶点绘制图形

示例中选中一个图形，根据图形的顶点循环创建圆形

(defun C:TT()
(setq ent (entget(car(entsel))));获取组码
(setq i 0)
(setq pts nil);初始化变量

(repeat (length ent);开始循环 循环次数就是表的长度
	(if (= (car (nth i ent))10 );当编号等于10的时候
		(progn   ;就执行这一句话
			(command "CIRCLE" (cdr (nth i ent)) 2)
			(setq pts (append pts (list (cdr (nth i ent)))))
		)
	)
	(setq i (1+ i));变量+1
)




(setq ent (entget(car(entsel))))
(setq pts nil)
(foreach n ent 
	(if (= (car n) 10);当编号等于10的时候
		(progn   ;就执行这一句话
			(command "CIRCLE" (cdr n) 2)
			(setq pts (append pts (list (cdr n))))
		)
	)
)
)