LSP批量创建文件夹

yiran86 · 发表于 2012-6-12 22:45:22

创建文件夹的函数知道，请问哈LSP批量创建文件夹代码该怎么写啊

ZZXXQQ · 发表于 2012-6-13 07:07:03

将创建文件夹的函数写在循环中就可以了。

smartstar · 发表于 2012-6-13 07:16:39

版主这么早上线疑辛苦了。

yiran86 · 发表于 2012-6-13 10:58:43

ZZXXQQ 发表于 2012-6-13 07:07
将创建文件夹的函数写在循环中就可以了。

斑竹大侠，帮我看看这那不对啊
(defun c:zz (/ i)
(setq ffn (getfiled "选取文件" "C:/Documents and Settings/Administrator/桌面/" "txt" 1))
(setq ff (open ffn "w"))
(close ff)
   ;;(setq ss (ssget '((0 . "text"))))
(setq ss (ssget '((0 . "text")(8 . "户主"))))
  (setq       i  0)
  (repeat (sslength ss)
      (setq ssn (ssname ss i)
            endata (entget ssn)
            new_pp (cdr (assoc 1 endata))
            )
            (setq ff (open ffn "a"))
            (princ new_pp ff)
            (princ "\n" ff)
                  (close ff)
   (setq  i (1+ i))
(vl-mkdir (strcat "d:\\" ssn))
  )
)

ZZXXQQ · 发表于 2012-6-13 20:43:43

ssn的内容是什么？是实体名，能当作文件名吗？

yiran86 · 发表于 2012-6-13 22:29:57

ZZXXQQ 发表于 2012-6-13 20:43
ssn的内容是什么？是实体名，能当作文件名吗？

谢谢提示，已经找到问题

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