ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

Ãö©óautolispªº°ÝÃD

Ãö©óautolispªº°ÝÃD

¤j®a¦n
·Q½Ð°Ý­Ó°ÝÃD
§ÚªºautocadÀɤº¦³¤£¤Ö½u±ø©M¶ê§Î¤è¶ô
½Ð°Ýautocad lisp­n«ç»ò¼g
¤~¯à³æ¯Â±N½u±øªº¨âÂI®y¼Ð¶×¥X¦¨¤å¦rÀÉ©O¡H
§Ú»Ý­n¶×¥X¥Îexcel«áÄò³B²z
¦³¤F®y¼Ð¡A¥i¥H°µ©w¦ì©Mªø«×­pºâ¡I

¥i¥H¨Ï¥Î¸ê®ÆµÑ¨ú¥\¯à(«ü¥Odataextraction)
³o¥\¯à¥i¥H±N¹Ï­±¸ê°T¶×¥X¨ìExcel
¿ï¾Ü½u©Î»E¦X½u
«~¶µ¿z¿ï¿ï¾Ü´X¦ó¹Ï§Î
©Ê½è¨ºùØ´N·|¥X²{§A­nªºÂI®y¼Ð©M½u¬qªø«×

TOP

(defun c:TEXTEX()
   (setq ffn (getfiled "¼g¥XÀÉ®×" "" "" 1))
   (princ "\n¿ï¨ú¤å¦r...")
   (setq ss (ssget))
   (setq ff (open ffn "w"))
   (setq i 0)
   (repeat (sslength ss)
      (setq ssn (ssname ss i))
      (setq ssdata (entget ssn))
      (setq sstyp (cdr (assoc 0 ssdata)))
      (if (= sstyp "TEXT")
         (progn
     (setq txt (cdr (assoc 1 ssdata)))
          (princ txt ff)
            (princ "\n" ff)
          )
      )
      (setq i (1+ i))         
   )
   (close ff)
   (princ (strcat "\n¼g¥XÀÉ®×: " ffn))
   (prin1)
)

TOP

        ÀR«ä¦Û¦b : ¥¬¬I¦p¼½ºØ¡A¥HÅw³ß¤ß´þ¼íºØ¤l¡A¤~·|µoªÞ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD