- 积分
- 1059
- 明经币
- 个
- 注册时间
- 2004-2-16
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
使用了一个循环,这样给变量p1,p2...到pn赋值, 并不限定n的多少,但我在编程中想把这些pi,都写到defun 后的局部变量中该如何写呢??
(defun (/ )
(while (setq en (entsel(strcat"\n" "选择杆" (itoa i)))) (setq en (car en)) (setq e (entget en)) (set (read (strcat "p" (itoa i) )) (cdr (assoc 10 e))) )
) |
|