[求助]：帮我找一下这里面的错

gucci218 · 发表于 2005-11-14 16:46:25

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

目的是选择圆，画他们的内接正N边形，用repeat 重复

yshf · 发表于 2005-11-14 17:08:13

(defun c:cp()
(setvar "cmdecho" 0)
(setq ss (ssget))
;(setq e (getreal "\n输入内接边数:"))要求为整数，改为如下即可
(setq e (getint "\n输入内接边数:"))
(setq n (sslength ss))
(setq num 0)
(repeat n
(setq en (ssname ss num))
(setq endate (entget en))
(setq x (car (cdr (assoc 10 endate))))
(setq y (cadr (cdr (assoc 10 endate))))
(setq cen (list x y ))
(setq rad (cdr (assoc 40 endate)))
(command "polygon" e cen "I" rad)
(setq num (1+ num))
(prin1)
)
)

gucci218 · 发表于 2005-11-15 08:17:06

谢谢了，我太糊涂了，内接边数只能是整数

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：帮我找一下这里面的错

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子