[讨论]：问一个弱弱的问题

lyc3029

;;;修改自EACHY版主的程序.
;;;XP以下操作系统须下载安装WMI补丁.
(defun ProcessorID (/ ids wmiobj serv lox sn flie ss)
(setvar "cmdecho" 0)
  (if (setq wmiobj (vlax-create-object "wbemScripting.SwbemLocator"))
    (progn
      (or
        (not(vl-catch-all-error-p(setq serv(vl-catch-all-apply 'vlax-invoke (list wmiobj 'ConnectServer "." "" "" "" "" "" 128 nil)))));;FOR XP系统.
        (setq serv(vlax-invoke wmiobj 'ConnectServer "." "" "" "" "" "")) ;;;XP以下操作系统.
        )
      (setq lox    (vlax-invoke
          serv
          'ExecQuery
          "Select * from Win32_Processor"
        )
      )
      (setq ids nil)
      (vlax-for    item lox
    (if (not
          (member (setq sn (vlax-get item 'ProcessorID )) ids)
        )
      (setq ids (cons sn ids))
    )
      )
      (mapcar 'vlax-release-object (list lox serv wmiobj))
    )
  )
(reverse ids)
)

这个程序返回的ids，是什么参数类型（好像不是字符串），我怎么才能把它写到一个文件里去．．．．．

zml84

看上面代码，ids 的类型是表。
要写到文件中的话，与其它类型是一样的。
例如：    (print  ids  file1)

雨箭风刀

[php]
(defun ProcessorID0 ()
  (setq        str
         "Set objSWbemObject = GetObject(\"winmgmts:Win32_Processor.DeviceID='cpu0'\")
         ret = objSWbemObject.ProcessorId
         msgbox \"首枚CPU序列号：\" & ret" )
  (setq *wsc (vlax-create-object "ScriptControl"))
  (vlax-put *wsc 'language "vbs")
  (vlax-invoke *wsc 'ExecuteStatement str)
  (vlax-invoke *wsc 'eval "ret")
)
[/php]

lyc3029

谢了，我说怎么用write-line 写不进去的．．．．晕
再问下子，我把那个表　转成字符串怎么转．．．麻烦了