[编程交流] 它可以#039；t.f

;Open and Trim
(Defun C:oat () ;define Open and Trim
;        (c:wwc) ;run WriteWithinCurve
;        (setvar "cmdecho" 0)
(If(/= nil writewithincurvedirectory)(princ (strcat "\nCurrent directory is:\n" writewithincurvedirectory))) ;display current path
(princ "\n")
(setvar "SDI" 1)
(command "FILEDIA" 0) ;Set open dialog to be command line only
(setq DXFFilesArray (vl-directory-files writewithincurvedirectory "*.dxf")) ;Find all .dxf files in current folder.
(princ DXFFilesArray) ;display contents of current target directory
(princ "\n") ;newline for aesthetic purposes
(setq LoopIndex 0) ;initialize loop index
(repeat (length DXFFilesArray) ;repeat once for each .dxf file in DXFFilesArray
;        (repeat (3) ;repeat once for each .dxf file in DXFFilesArray
        (setq FileToOpenFullPath (strcat writewithincurvedirectory (nth LoopIndex DXFFilesArray))) ;get current folder to write file to and add the .dxf name to it
        (princ (strcat "\nFile to open is: " FileToOpenFullPath "\n")) ;display filename
        (setq LoopIndex (1+ LoopIndex))
        (command "_.OPEN" "_Y" FileToOpenFullPath)
;                (OpenDwgFile FileToOpenFullPath)
        (C:ty) ;Trim Yellow
)
(setvar "filedia" 1) ;Restore open dialogue to have a visual interface
(princ)
(setvar "cmdecho" 1)
;        (command "_QUIT" "_Y") ;close AutoCAD
)
; (defun OpenDwgFile (arg1 / )
 ; (vla-activate (vla-open (vla-get-documents (vlax-get-acad-object)) arg1))
; ); defun

(if (eq 'SUBR (type C:test)) (C:test))

(c:wwc) ;run WriteWithinCurve
(C:ty) ;Trim Yellow

(If(/= nil writewithincurvedirectory)(princ (strcat "\nCurrent directory is:\n" writewithincurvedirectory))) ;display current path

(if writewithincurvedirectory (princ (strcat "\nCurrent directory is:\n" writewithincurvedirectory))) ;display current path

;        (repeat (3) ;repeat once for each .dxf file in DXFFilesArray

;        (repeat 3 ;repeat once for each .dxf file in DXFFilesArray