; 错误: 参数类型错误: stringp STRING lisp里这个错误是什么意思

; 错误: 参数类型错误: stringp STRING

```lisp
(defun replace-1003-in-dxf (folder-path)
  (setq file-list (directory (strcat 'string folder-path "/*.dxf")))
  (repeat (length file-list)
    (setq dxf-file (nth it file-list))
    (setq file-name (file-namestring dxf-file))
    (setq new-str (strcat 'string file-name ".dxf"))
    (setq doc (vla-get-activedocument (vlax-get-acad-object)))
    (vla-open doc dxf-file)
    (vlax-for entity (vla-get-entities doc)
      (if (vl-position old-str (vla-get-textstring entity))
          (vla-put-textstring entity (vl-string-replace old-str new-str (vla-get-textstring entity)))))
    (vla-saveas doc dxf-file)
    (vla-close doc)
    (setq it (1+ it)))
  (princ "All DXF files have been processed.")
)

(defun c:eee ()
  (setq folder-path (strcat (vl-string-right-trim "\\" (strcase (acet-ui-pickdir "Select" (vl-string-right-trim "\\" (getvar "dwgprefix")) "Change")))  "\\" ))

  (replace-1003-in-dxf-file folder-path)
)

```

  • 1
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值