[编程申请]：需要大家的帮助！！谢谢

lxyufo · 发表于 2003-4-8 08:44:45

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

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

×

急死了，老大我循环不来呀！列表放在什么函数的什么地方呀？？？你能在源程序上给我提示嘛谢谢了
(setq ptlist `((p1 p2) (p3 p4) (5 p6))
(setq i 0)
(setq ss1 (ssadd))
(while (< i 3)
  (setq ss2 (ssget "w" (car (nth i ptlist)) (cadr (nth i ptlist))))
  (setq n (sslength ss2))
  (setq j 0)
  (while (< j n)
(ssadd (ssname ss2 j) ss1)
(setq j (1+ j))
  )
  (setq i (1+ i))
)是不是这样呀？如果是，怎么会总出错呀（SETQ 中参数太少: (SETQ PTLIST ` ((P1 P2) (P3 P4) (P5 P6))) ）什么地方错了？？？

zhynt · 发表于 2003-4-8 09:18:14

少右括号

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

[编程申请]：需要大家的帮助！！谢谢

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

相关帖子

浏览过的版块