[编程交流] 将数据点导出到excel fil

;V1.1:  04/12/2014
;PXYZ test.csv saved to dwgprefix
;add numbering PXYZ format
;index i 1+ incremental
;notified by alert
;optional: add Text numbering
;optional: open notepad
;optional: open directory
(vl-load-com)
(defun c:P2F ( / *error* p i ss fn pt )
;hanhphuc 2014
  (defun *error* (msg)
    
    (if        (not (wcmatch (strcase msg) "*CANCEL*,*EXIT*"))
      
      (princ (strcat "\nError: " msg))
      
    )
    
    (if        p
      
      (close p)
      
    )
    (princ)
    
  )
  
  (if
    (and
      (setq i  0
            
            ss (ssget ":L" '((0 . "POINT")))
            
           )
      
           (setq fn
                  (strcat (getvar "dwgprefix")
                          "PXYZ test.csv") ; rename you file
                 )
      
           (setq p (open fn "w"))
      
      )
    
    (progn
                                        ;(setq i 0) 
      (repeat
        (sslength ss)
        
        (
         (lambda (str)
           
           (foreach x
                    (setq pt
                           (vlax-get
                             
                                 (vlax-ename->vla-object (ssname ss i))
                                 
                                 'coordinates
                                 
                               )
                          
                      )
             
             (setq str (strcat str (rtos x 2) ","))
             
           )
           
           (write-line 
       
       (strcat (itoa (setq i (1+ i))) "," str) 
       
       p)
           
         )
          
          ""
          
        )
        
        (entmakex
          (list
                    '(0 . "TEXT")
                
                     (cons 1 (itoa i))
                
                (cons 10 pt)
                
                (8 . "EXPORTED")
                
                (cons 40 (getvar 'TEXTSIZE))
                
            )
          
        )
        
      )
      
      (if p
        
        (close p)
        
      )
      
      (alert
        
        (strcat
          
          "\nSyabas! Saved in ""
          
          fn
          ;""\nOK -> "PXYZ test.csv" -> Right-Click -> Open With -> EXCEL"
        )
      )
      
;;;(command "_SHELL" (strcat "explorer "" (getvar "dwgprefix") """)) ;<-- optional
      
      (vl-cmdf "_START" (strcat "EXCEL "" fn """))
      
      (startapp "notepad" fn)
      
      ;; <--optional open as notepad preview
    )
    
    (alert "\n:-( knp xde POINT ?! ")
    
  )
  (princ)
) 

(DEFUN C:Exportpnt (/       FILE    FILENAME               ANS     CNT
               PT      X       Y       Z       LINE    DESC
               LINECOUNTER     LINEDATA               LEN     OSM
              )
 (SETQ OSM (GETVAR "OSMODE"))
 (COMMAND "OSMODE" 0)
 ;;
 ;; THIS WILL SET THE FILE NAME WE ARE WRITTING TO AS WELL AS CHECK
 ;; TO MAKE SURE THAT WE ARE WRITTING AT THE END OF THE FILE
 ;;
 (SETQ LINECOUNTER 0)
 (SETQ FILE (GETSTRING "\nNAME OF POINTS FILE TO OPEN:..."))
 (SETQ FILENAME (OPEN FILE "A"))
 (CLOSE FILENAME)
 (SETQ FILENAME (OPEN FILE "R"))
 (WHILE
   (SETQ LINEDATA (READ-LINE FILENAME))
    (SETQ LEN (STRLEN LINEDATA))
    (SETQ LINECOUNTER (+ 1 LINECOUNTER))
 )
 (CLOSE FILENAME)
 (SETQ FILENAME (OPEN FILE "A"))
 (INITGET "Yy Nn")
 (SETQ
   ANS        (GETKWORD "\n ADD DESCRIPTIONS? Yes OR No ?:...")
   CNT        (GETINT "\nENTER NUMBER OF POINTS TO EXPORT:...")
   PT        (GETPOINT "\nSELECT POINT TO EXTRACT:....")
 )
 ;;
 ;; THIS BEGINS THE REPEAT LOOP TO EXTRACT THE POINT INFORMATION
 ;;
 (REPEAT CNT
   (IF
     ( = ANS "Yy")
      (SETQ DESC (GETSTRING "\nENTER DESCRIPTION:..."))
   )
   (SETQ
     X                  (RTOS (CAR PT))
     Y                  (RTOS (CADR PT))
     Z                  (RTOS (CADDR PT))
     LINECOUNTER (+ 1 LINECOUNTER)
   )
   (IF        (= ANS "Yy")
     (SETQ LINE (STRCAT (ITOA LINECOUNTER) "," Y "," X "," Z "," DESC))
     (SETQ LINE (STRCAT (ITOA LINECOUNTER) "," Y "," X "," Z))
   )
   (WRITE-LINE LINE FILENAME)
   (SETQ PT (GETPOINT "\nSELECT NEXT POINT TO EXTRACT:..."))
 )                                        ;END OF REPEAT LOOP
 (CLOSE FILENAME)
 ;; RESET THE OSNAP MODE
 (COMMAND "OSMODE" OSM)
 (PRINC)
)