[编程交流] 空字符

(write-line (strcat "text" (chr 256)))

([color=BLUE]defun[/color] c:test ( )
   (nullchartest [color=MAROON]"line-text"[/color] ([color=BLUE]vl-filename-mktemp[/color] [color=MAROON]"test"[/color] ([color=BLUE]getvar[/color] 'dwgprefix) [color=MAROON]".txt"[/color]))
)

(defun nullchartest ( str txt / fso stm )
   (if (setq fso (vlax-create-object "scripting.filesystemobject"))
       (progn
           (vl-catch-all-apply
              '(lambda ( )
                   (setq stm (vlax-invoke fso 'createtextfile txt -1 0))
                   (vlax-invoke stm 'write (strcat str (chr 256)))
                   (vlax-invoke stm 'write (strcat "text for line 2" (chr 256)))   ;;;;;changes
                   (vlax-invoke stm 'close)
               )
           )
           (if (= 'vla-object (type stm))
               (vlax-release-object stm)
           )
           (if (= 'vla-object (type fso))
               (vlax-release-object fso)
           )
           (findfile txt)
       )
   )
)

(vlax-invoke stm 'write (chr 10))  ;;; starting next line

5