[编程申请]：请高手看看我的程序什么地方错了？？？？

lxyufo

(setq ptlist ((pt1 pt2) (pt3 pt4) (pt5 pt6)) )

(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))
)
请指点 谢谢

yjig

1.以上程序无加载语句，应在第一行写上(DEFUN C:tst(/ pt1 pt2 pt3 ………)
2.(setq ss2 (ssget "w" ，既然是窗选，那么就应该指定选择框的两点位置，或在语句中暂停等待鼠标选择。
3.(while (< i 3) 在结束前不能再出现(while (< j n) 。
4.在程序结束前应加上 (PRINC)
                               )
至于其它还有什么问题，本人暂未发现，需待才能确定。

gchen

程序的第一句改为
(setq ptlist '((pt1 pt2) (pt3 pt4) (pt5 pt6)))
就可以了。当然最好是加上ss2的判断，是否有图元选中。
其它的没有错误。

cssanhui

将第一句改为(setq ptlist (list (list pt1 pt2) (list pt3 pt4) (list pt5 pt6)))即可