qq229918602 发表于 2012-4-14 00:11:35

关于选择集的重复函数问题

附上源代码：
(defun c:PAD2 ()
(setvar "cmdecho" 0)
(COMMAND ".UNDO" "BE")
(command "-units" "2" "3" "2" "3" "" "")
(setq        fp (open "d:/PAD点坐标值.xls" "a")
        s(getvar "cmdecho")
)
(princ "PAD点名称" fp)
(princ "\t" fp)
(princ "X坐标值" fp)
(princ "\t" fp)
(princ "Y坐标值" fp)
(princ "\n" fp)
(princ "\n选取块数")
(setq ss (ssget))

(repeat (sslength ss)
    (setq i 0)
    (setq ssn (ssname ss i))
    (setq endata (entget ssn))
    (setq pts (assoc 10 endata)
          pt1 (cdr pts)
          xx(car pt1)
          yy(cadr pt1)
          xx(* xx 1.0)
          yy(* yy 1.0)
          x   (* xx 1000)
          y   (* yy 1000)
          x   (rtos x 2 10)
          y   (rtos y 2 10)

    )
    (princ k fp)
    (princ "\t" fp)
    (princ x fp)
    (princ "\t" fp)
    (princ y fp)
    (princ "\n" fp)
    (close fp)
    (setq i (1+ i))
)
(setvar "cmdecho" s)
(princ "\n简化查找PAD点坐标")
(princ)
)


问题是：加入重复函数后为什么选择两个图中的块时，输出在EXCEL表格上只有显示一个坐标？请问哪里出错了？有木有大大帮我修改下，选择多个块时都能输出坐标？感谢万分！

zdqwy19 发表于 2012-4-14 06:37:00

估计是写在同一单元格内，覆盖了。

nzl1116 发表于 2012-4-15 08:40:28

(setq ss (ssget) i -1)
(repeat (sslength ss)
(setq i    (1+ i)
      ssn (ssname ss i)
...

qq229918602 发表于 2012-4-16 22:53:18

问题解决了，是程序关闭了EXCEL没有设置重新打开。
页: [1]
查看完整版本: 关于选择集的重复函数问题