【越飞越高讲堂1】ActiveX 和脚本技术在CAD的运用

jack093

好文，学习

街角的幸福

太有深度了

朽木大师

highflybir 发表于 2011-1-10 19:59
其他的还有，WIA对象（用来图像处理）WMPlayer(媒体播放）,WinSock（网络通信）,ZIP（文件压缩及其解压缩） ...

试了一下，没显示出内网或公网网址

jack093

记号

kkppp123

太有深度了

q530496591

顶！真心不错……用ALISP来读取CPU等等电脑的资料

kkppp123

楼主，用ALISP如何读取CPU的序列号？如何给软件加密呢？

kkppp123

highflybir 发表于 2011-1-10 19:59
其他的还有，WIA对象（用来图像处理）WMPlayer(媒体播放）,WinSock（网络通信）,ZIP（文件压缩及其解压缩） ...

;;获取本机的公网IP*****

  (setq path (strcat (getSpecialPath 1) "\\msxml6.dll"))
  (if (not xc-NODE_TEXT)
    (vlax-import-type-library
      :tlb-filename  path
      :methods-prefix "xm-"
      :properties-prefix "xp-"
      :constants-prefix "xc-"
    )
  )
  (setq http (vlax-create-object "Msxml2.XMLHTTP")) ;调用XMLHTTP对象
  (setq url " http://www.ip138.com/ip2city.asp")  ;赋予变量URL值
  (xm-open http "GET" url :vlax-false)   ;定义打开URL方式
  (xm-send http)
  (setq str (xp-get-responseText http))   ;获得网页文本
  (setq s1  (vl-string-position (ascii "[") str))
  (setq s2  (vl-string-position (ascii "]") str))
  (princ "\n你的IP地址是：")
  (princ (substr str (+ s1 2) (- s2 s1 1)))
  (vlax-release-object http)

以上哪个语句获取不到公网IP

kkppp123

highflybir 发表于 2011-1-10 19:42
接下来是其他的ActiveX 的用法

通用文件对话框对象

;;获取某个目录下所有的文件夹
  (defun GetSubFolder (fso path / l)
    (defun GetSubFolder1 (folder / p)
      (vlax-for        subfolder (fp-get-SubFolders folder)
        (setq p (fp-get-Path subfolder))
        (setq l (cons p (GetSubFolder subFolder)))
      )
      l
    )
    (if        (fm-folderExists fso path)
      (reverse (getSunFolder1 (fm-getFolder fso path)))
    )
  )
(getSubFolder (fm-GetFolder fso "D:\\TYS2012"))

楼主，(getSubFolder (fm-GetFolder fso "D:\\TYS2012")) 这个语句是不是缺少一个参数呢

highflybir

kkppp123 发表于 2013-5-13 23:33
;;获取某个目录下所有的文件夹
  (defun GetSubFolder (fso path / l)
    (defun GetSubFolder1 (fol ...

在我的机器上测试没问题。