[求助]：将图形路径写入文件中

liuyj

我想将一个目录下选择的文件的全路径写入一个新建的文件中，例如把c:\drawings下的1.dwg,2.dwg,3.dwg写入a.dat中，最好是用dos_lib函数，可以有文件选择对话框。望高手出招。

LADESIGNER

这不是CAD应该解决的问题。

aeo

vl-directory-files

open "W"

tc405003

(DEFUN C:ss (/ path date user monthlist txtpt tkpt)
        (setq path (strcase (strcat (getvar "dwgprefix") (getvar "dwgname"))))
        (setq monthlist (list "JAN" "FEB" "MAR" "APR" "MAY" "JUN"
                                                  "JUL" "AUG" "SEP" "OCT" "NOV" "DEC" ))
        (setq date (rtos (getvar "cdate") 2 0))
        (setq user (strcase (getvar "loginname")))
          (setq path (strcat path " " (substr date 7 2) "/"
                (nth (1- (atoi (substr date 5 2))) monthlist)
                                " " user))
          (setq tkpt (getpoint "插入点："))
        (if (= tkpt nil) (C:TKPT))
        (setq txtpt (list (- (nth 0 tkpt) 200) (+ (nth 1 tkpt) 200)))
        (setq os (getvar "osmode"))
        (setvar "osmode" 0)
        (command "text" "j" "BR" txtpt "350" "" path)
        (setvar "osmode" os)
        (setvar "users1" path)
  (princ)
);end defun
;;;===== 更改图纸路径 =====
(DEFUN C:aa (/ ostr str e p l n path)
        (setq path (strcase (strcat (getvar "dwgprefix") (getvar "dwgname"))))
        (setq monthlist (list "JAN" "FEB" "MAR" "APR" "MAY" "JUN"
                                                  "JUL" "AUG" "SEP" "OCT" "NOV" "DEC" ))
        (setq date (rtos (getvar "cdate") 2 0))
        (setq user (strcase (getvar "loginname")))
          (setq path (strcat path " " (substr date 7 2) "/"
                (nth (1- (atoi (substr date 5 2))) monthlist)
                        " " user))
        (if (/= path (getvar "users1"))
                (progn
                (setq p (ssget "x" (list (cons 0 "TEXT")) ));
                (if p (progn
                (setq l 0 n (sslength p))
                (if (> n 0)
                (while (< l n)
                        (setq str (cdr (assoc 1 (setq e (entget (ssname p l) )))))
                        (setq ostr str)
                        (if (wcmatch str "?:\\*DWG ??/??? *")
                        (progn
                        (setvar "users1" path)
                        (setq str (strcase path))
                        (setq e (subst (cons 1 str) (cons 1 ostr) e))
                        (entmod e)
                        );progn
                        );if
                        (setq l (1+ l))
                );while
                );if
                ));if progn
                );progn
        );if
  (princ)
);end defun

liuyj

谢谢aeo,我用dos_getfilem解决了问题.我很喜欢这种对话框选择.