普通线表格转出到EXCEL 运行报错

colonel_sky · 发表于 2018-10-15 16:36:33

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 colonel_sky 于 2018-10-15 16:37 编辑

如题，运行TEST.LSP，出现如下报错提示，请问如何解决？，LSP源码如下：截图.png

(defun c:xdtb_ln->excel (/ #textheight #textstyle box e fuzz i info j ss ss1 tbl temp tf txts x y ) (xd::begin) (setq tf t) (while (and tf (setq fn (xdrx_system_selectFiles (if (not tf1) "选择保存的文件" "文件在使用，重新选择保存的文件" ) "" "xlsx" 1 ) ) (setq fn (car fn)) (progn (if (setq tf1 (xdrx_system_fileInUse fn)) (xdrx_prompt "\n\n文件已经使用，请关闭或者重新命名.") (setq tf nil) ) t ) ) ) (if (and (not tf) (setq fuzz (getdist "\n输入精度<退出>:")) (xdrx_initssget "\n选择表格线(LINE,*POLYLINE)<退出>:") (setq ss (xdrx_ssget '((0 . "line,*polyline")))) (setq ss (xdrx_entity_copy ss)) (setq box (xdrx_entity_box ss)) (xdrx_polyline_make (xd::pnts:ucs2wcs box) t) (ssadd (entlast) ss) (setq ents (xdrx_pickset->ents ss)) (xdrx_runtime t) (progn (setq tf (xd::doc:safezoom ss)) t) (setq info (xd::table<-lines ss (abs fuzz))) ) (progn (setq merges (nth 5 info)) (xdrx_begin) (setq num 0 lst1 nil ) (mapcar '(lambda (x) (setq num (1+ num)) (if (= (logand num 5) 0) (progn (princ (xdrx_prompt "\r正在处理 " num t))) ) (if (and x (setq temp (ssget "cp" (nth 2 x) '((0 . "*text"))))) (progn (setq i (nth 0 x) j (nth 1 x) ) (setq ss1 (XD::Pickset:TableSort temp 0 3 '> '<) txts (xdrx_string_join (mapcar '(lambda (x) (apply 'strcat (mapcar '(lambda (y) (xdrx_getpropertyvalue y "textstring" ) ) x ) ) ) ss1 ) "\r\n" ) ) (setq lst1 (cons (list i j txts) lst1)) ) ) ) (apply 'append (nth 6 info)) ) (setq lst1 (reverse lst1)) (xdrx_entity_delete ents) (and tf (xdrx_document_zoomprevious)) (xdrx_prompt "\n执行时间:" (xdrx_runtime) "s.") (if (xd::list->excel lst1 merges fn) (progn (xdrx_prompt "\nEXCEL文件导出成功.") (xdrx_initget "Y N") (if (= 1 (xdrx_yesorno "\n是否打开EXCEL文件" 0)) (xdrx_system_shellExecute fn) ) ) ) ) ) (xdrx_end) (princ))

colonel_sky · 发表于 2018-10-15 16:38:45

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:test.lsp
下载次数:5 文件大小:3.63 KB
下载权限: 不限以上 [免费赚D豆]

newer · 发表于 2018-10-15 17:34:14

请上传你的DWG

yangjian001 · 发表于 2018-10-16 00:04:14

做一个热心并受欢迎的人

colonel_sky · 发表于 2018-10-16 11:52:02

newer 发表于 2018-10-15 17:34
请上传你的DWG

DWG文件上传受限制，改为RAR上传，请接收

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:材料表.zip
下载次数:1 文件大小:49.88 KB
下载权限: 不限以上 [免费赚D豆]

colonel_sky · 发表于 2018-10-16 13:28:48

API版本2018.10.08，CAD版本2007

4904010 · 发表于 2018-10-22 15:46:55

同样问题 CAD07~怎么解决才好？？？

newer · 发表于 2018-10-22 15:56:56

4904010 发表于 2018-10-22 15:46
同样问题 CAD07~怎么解决才好？？？

请上传下你的DWG
用的时候，你精度设置合适没？

4904010 · 发表于 2018-10-23 12:54:50

newer 发表于 2018-10-22 15:56
请上传下你的DWG
用的时候，你精度设置合适没？

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:Drawing2.rar
下载次数:1 文件大小:118.54 KB
下载权限: 不限以上 [免费赚D豆]

精度从1到10都试了~一样的结果，麻烦前辈帮忙看下问题出在哪

所用插件

(defun c:excel       (/       #textheight       #textstyle
                     box       e       fuzz       i       info
                     j       ss       ss1       tbl       temp
                     tf       txts       x       y
                     )
  (xd::begin)
  (setq tf t)
  (while
(and tf
      (setq fn (xdrx_system_selectFiles
                  (if       (not tf1)
                  "选择保存的文件"
                  "文件在使用，重新选择保存的文件"
                  )
                  ""
                  "xlsx"
                  1
               )
      )
      (setq fn (car fn))
      (progn       (if (setq tf1 (xdrx_system_fileInUse fn))
               (xdrx_prompt "\n\n文件已经使用，请关闭或者重新命名.")
               (setq tf nil)
            )
            t
      )
)
  )
  (if (and (not tf)
         (setq fuzz (getdist "\n输入精度<退出>:"))
         (xdrx_initssget "\n选择表格线(LINE,*POLYLINE)<退出>:")
         (setq ss (xdrx_ssget '((0 . "line,*polyline"))))
         (setq ss (xdrx_entity_copy ss))
         (setq box (xdrx_entity_box ss))
         (xdrx_polyline_make (xd::pnts:ucs2wcs box) t)
         (ssadd (entlast) ss)
         (setq ents (xdrx_pickset->ents ss))
         (xdrx_runtime t)
         (progn (setq tf (xd::doc:safezoom ss)) t)
         (setq info (xd::table<-lines ss (abs fuzz)))
   )
(progn
   (setq merges (nth 5 info))
   (xdrx_begin)
   (setq num       0
         lst1 nil
   )
   (mapcar
      '(lambda (x)
         (setq num (1+ num))
         (if (= (logand num 5) 0)
         (progn (princ (xdrx_prompt "\r正在处理 " num t)))
         )
         (if
         (and x (setq temp (ssget "cp" (nth 2 x) '((0 . "*text")))))
            (progn (setq i (nth 0 x)
                        j (nth 1 x)
                  )
                  (setq ss1       (XD::Pickset:TableSort temp 0 3 '> '<)
                        txts       (xdrx_string_join
                              (mapcar
                                 '(lambda (x)
                                    (apply 'strcat
                                          (mapcar '(lambda (y)
                                                      (xdrx_getpropertyvalue
                                                         y
                                                         "textstring"
                                                      )
                                                   )
                                                   x
                                          )
                                    )
                                 )
                                 ss1
                              )
                              "\r\n"
                              )
                  )
                  (setq lst1 (cons (list i j txts) lst1))
            )
         )
      )
      (apply 'append (nth 6 info))
   )
   (setq lst1 (reverse lst1))
   (xdrx_entity_delete ents)
   (and tf (xdrx_document_zoomprevious))
   (xdrx_prompt "\n执行时间:" (xdrx_runtime) "s.")
   (if (xd::list->excel lst1 merges fn)
      (progn (xdrx_prompt "\nEXCEL文件导出成功.")
            (xdrx_initget "Y N")
            (if (= 1 (xdrx_yesorno "\n是否打开EXCEL文件" 0))
               (xdrx_system_shellExecute fn)
            )
      )
   )
)
  )
  (xdrx_end)
  (princ)
)

colonel_sky · 发表于 2018-10-23 15:14:46

我换CAD2018和晓东工具箱，试用成功

newer · 发表于 2018-10-23 15:49:19

4904010 发表于 2018-10-23 12:54
精度从1到10都试了~一样的结果，麻烦前辈帮忙看下问题出在哪

所用插件

和上面朋友一样，装下最新版本的工具箱试试，我这没问题
搜狗截图20181023154753.png

用线转表格，表格转EXCEL ，和线转EXCEL 都可以

yjpyjp · 发表于 2019-2-26 15:23:33

谢谢分享

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

[求助] 普通线表格转出到EXCEL 运行报错

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评