新手写的代码，运行不了，还麻烦大佬看下

熊咔咔 · 发表于 2020-12-10 15:10:39

想写个从cad里提取文字到excel的小程序，但是运行不了，我把源码一贴麻烦大佬们看下

；；======================
(defun C:tqwz ()
  (setq ss (ssget '((0 . "TEXT,MTEXT") (1 . "*"))))
  (setq ff (open "C:\\shujuchuli.txt" "w")
  (setq si 0)
  (repeat (sslength ss)
  (setq ct (cdr (assoc 1 (entget (ssname ss si)))))
  (write-line ct ff)
  (setq si (1+ si))
)
(close ff)
)

wzg356 · 发表于 2020-12-11 19:04:49

请搜索免费的编辑器everedit
好比对括号，lsp的函数全有

烟盒迷唇 · 发表于 2020-12-10 16:42:03

本帖最后由烟盒迷唇于 2020-12-10 16:46 编辑

第二行少了括号匹配
;;======================

(defun C:tqwz (/ ct ff si ss)
(setq ss (ssget '((0 . "TEXT,MTEXT") (1 . "*"))))
(setq ff (open "C:\\shujuchuli.txt" "w"))
(setq si 0)
(repeat (sslength ss)
(setq ct (cdr (assoc 1 (entget (ssname ss si)))))
(write-line ct ff)
(setq si (1+ si))
)
(close ff)
(princ)
)

熊咔咔 · 发表于 2020-12-10 16:00:45

自己顶一下。。。。

熊咔咔 · 发表于 2020-12-11 08:08:06

烟盒迷唇发表于 2020-12-10 16:42
第二行少了括号匹配
;;======================

非常感谢，找了好久也不知道是什么问题

熊咔咔 · 发表于 2020-12-11 09:01:46

烟盒迷唇发表于 2020-12-10 16:42
第二行少了括号匹配
;;======================

大佬，还有个问题，我看了下，好像括号都是有的饿。。
您说的括号匹配具体是指什么，如果能详细些的话，非常感谢
我百度了一圈好像也没找到相对应的解答

烟盒迷唇 · 发表于 2020-12-11 14:49:15

熊咔咔发表于 2020-12-11 09:01
大佬，还有个问题，我看了下，好像括号都是有的饿。。
您说的括号匹配具体是指什么，如果能详细些的话， ...

有什么哦，你的括号少了右边一个都不知道的吗？

熊咔咔 · 发表于 2020-12-11 15:15:50

烟盒迷唇发表于 2020-12-11 14:49
有什么哦，你的括号少了右边一个都不知道的吗？

看插了。。。。

烟盒迷唇 · 发表于 2020-12-11 17:24:39

熊咔咔发表于 2020-12-11 15:15
看插了。。。。

你还是找个编辑器能够自动匹配括号和提示函数的，这样就不会缺少了。

熊咔咔 · 发表于 2020-12-14 08:04:08

wzg356 发表于 2020-12-11 19:04
请搜索免费的编辑器everedit
好比对括号，lsp的函数全有

好的好的，非常感谢

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

[提问] 新手写的代码，运行不了，还麻烦大佬看下