注册

这个Lisp为啥提示“; 错误: 语法错误”

想批量提取CAD中文字，把链接里的代码粘贴到txt，改名为.lsp文件。但LISMEN后，输入图层名称 回车就提示“; 错误: 语法错误”


2020-12-17 添加评论
分享

没有找到相关结果

    已邀请:

    CAD小苏 - 专注所以信赖！

    赞同来自:

    将下面代码里面的路径改为自己的，保存为lsp直接运行就行了

      (defun c:LISMEN ()
    (setq la (getstring "\n输入图层名"))
    (setq ss (ssget "X" (list (cons 0 "TEXT")(cons 8 la))))
    (setq fi (open "C:\\test.txt" "w"))
    (setq si 0)
    (repeat (sslength ss)
     (setq ssn (ssname ss si))
     (setq ent (entget ssn))
     (setq ct (cdr (assoc 1 ent)))
     (write-line ct fi)
     (setq si (1+ si))
    )
    (close fi)
    )  
    2020-12-17 0 1
    分享
    为什么被折叠? 0 个回复被折叠

    该问题目前已经被锁定, 无法添加新回复

    CAD | CAD软件 | CAD下载 | CAD linux版 | 建筑CAD | 给排水CAD | 暖通CAD | 电气CAD | 电力CAD | 机械CAD | CAD母线槽 | CAD看图
    Copyright © 2019 - 2024