satishrajdev 发表于 2022-7-6 06:58:25

; 错误：参数太少

请更正此例程。。。它的显示；错误：参数太少错误
 
(defun c:1 (/ file dta p i) ;POints to TeXT
(setq file (open (getfiled "specify output file" "c:/" "csv" 1) "w"))
(setq dta (ssget '((0 . "text"))))
(repeat (setq i (sslength dta))
(ssname (setq i (1- i)))
(write-line
(strcat (rtos (car p) 2 3) ","
(rtos (cadr p) 2 3) ","
(rtos (caddr p) 2 3)
) file)
)
(close file)
(Princ)
)
 
谢谢

pBe 发表于 2022-7-6 07:21:36

(setq p (cdr (assoc 10 (entget (ssname dta (setq i (1- i)))))))

satishrajdev 发表于 2022-7-6 07:32:27

非常感谢pBE。。。。。问题已解决
我想问你的另一件事是，，，我想把标题放在每一列上，只看附件中的图片

pBe 发表于 2022-7-6 07:40:07

(defun c:1 (/ file dta p i)                ;POints to TeXT
(if (and
(setq file (open (getfiled "specify output file" "c:/" "csv" 1) "w"))
        (setq dta (ssget '((0 . "text")))))
(progn
          (write-line "EASTING,NORTHING,ELEVATION" file)
(repeat (setq i (sslength dta))
    (setq p (cdr (assoc 10 (entget (ssname dta (setq i (1- i)))))))
    (write-line
      (strcat (rtos (car p) 2 3)
              ","
              (rtos (cadr p) 2 3)
              ","
              (rtos (caddr p) 2 3)
              )
      file
      )
    )
(close file)
   )
   )
(Princ)
)
 
HTH公司

satishrajdev 发表于 2022-7-6 07:51:50

非常感谢pBE。。。。问题完全解决

pBe 发表于 2022-7-6 07:59:39

 
真为你高兴。
 
继续编写satishrajdev，你会成功的
页: [1]
查看完整版本: ; 错误：参数太少