错误：参数太少

arunr_18 · 发表于 2022-7-6 06:19:22

请帮助我，当我使用wtx时，我面临“错误：参数太少”的问题。用于将文本导出到excel的lsp。
Wtx01（1）。lsp

pBe · 发表于 2022-7-6 06:25:19

参数太少。。。。。

(close f)

arunr_18 · 发表于 2022-7-6 06:31:46

对不起，先生，我没有理解你。。。你想说什么。。

Tharwat · 发表于 2022-7-6 06:35:08

在剩下的例程中，请考虑对该代码的这种修改。

copy


(defun c:wtt (/ p1 p2 ss f l a b c d c1 t1 d1 t2 t3 txt)
 (if (and (setq p1 (getpoint "Point :\n:"))
          (setq p2 (getcorner p1 "Other corner :\n:"))
          (setq ss (ssget "_W" p1 p2 '((0 . "*TEXT"))))
          (if (not (setq f (open "d:\\coords.csv" "w")))
            (progn (alert "Can not open Excel file !!") nil)
            t
          )
     )
   (repeat (setq l (sslength ss))
     (setq a   (ssname ss (setq l (1- l)))
           b   (entget a)
           c   (assoc 10 b)
           d   (assoc 1 b)
           c1  (cdr c)
           t1  (rtos (car c1) 2 3)
           d1  (cdr d)
           t2  (rtos (cadr c1) 2 3)
           t3  (rtos (caddr c1) 2 3)
           txt (strcat t1 "," t2 "," t3 "," d1)
     )
     (write-line txt f)
   )
 )
 (if f
   (close f)
 )
 (princ)
)

arunr_18 · 发表于 2022-7-6 06:39:28

非常感谢先生。。。它正在工作。。。
非常感谢：D

pBe · 发表于 2022-7-6 06:43:34

这就是您收到错误消息的原因。。论点太少。

考虑一下这个

[code]（defun c:wtx（）（if（and（setq p1（getpoint“\n第一个角：”）（setq p2（getcorner p1“\n：其他角：”）（setq ss（ssget“w”p1 p2 p2[color=#4169e1”]（（0。“INSERT”）[/color）（setq l（sslength ss）n 0）（setq fto（findfile coords.csv））[/color（print l））（progn（setq f（open fto“w”）（重复l（setq a（ssname ss n）b（entget a）c（assoc 10 b）d（assoc 2 b）c1（cdr c）t1（rtos（car c1）2 3）d1（cdr d）t2（rtos（cadr c1）2 3）t3（rtos（caddr c1）2 3）txt（strcat t1”，“t2”，“t3”，“d1）n（+n 1））（写入行txt f）[color=4169e1”]（闭合f）；