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

dinosaurhxe

感谢楼主分享，持续不断学习中……

yxl88168

楼主太历害了，感谢楼主的分享

jicqj

楼主真棒

起子

绝世大贴啊。。。
下半年有学习目标了。

yjc

你太强大了，是我学习的榜样

carrot1983

很强大，看来还得找VBS的帮助文件。不然都不会用。。。
遇到了个小问题，请楼主帮忙解答：

2. 
   
3. (defun GETSPECIALPATH        (N / FSO PATH)
   
4.     (setq FSO (vlax-create-object "Scripting.FileSystemObject"))
   
5.     (setq PATH (vlax-get (vlax-invoke FSO 'GETSPECIALFOLDER N) 'PATH))
   
6.     (vlax-release-object FSO)
   
7.     PATH
   
8.   )
   
9.   (setq PATH (strcat (GETSPECIALPATH 1) "/scrrun.dll"))
   
10.   (if (not fc-alias)
    
11.     (vlax-import-type-library
    
12.       :tlb-filename        PATH                  :methods-prefix
    
13.       "fm-"                :properties-prefix
    
14.       "fp-"                :constants-prefix "fc-"
    
15.      )
    
16.   )
    
17.   ;;=========
    
18.   (setq FSO (vlax-create-object "Scripting.FileSystemObject"))
    
19.   (setq        F (fm-opentextfile
    
20.             "C: \\readme.txt"
    
21.             fc-forwriting
    
22.             fc-tristateusedefault
    
23.           )
    
24.   )
    
25.   (fm-write F "abc")
    
26.   (fm-close F)
    
27.   (and f (vlax-release-object f))
    
28.   (and FSO (vlax-release-object FSO))
    
29. 
    

<br /> (defun GETSPECIALPATH        (N / FSO PATH)<br />     (setq FSO (vlax-create-object "Scripting.FileSystemObject"))<br />     (setq PATH (vlax-get (vlax-invoke FSO 'GETSPECIALFOLDER N) 'PATH))<br />     (vlax-release-object FSO)<br />     PATH<br />   )<br />   (setq PATH (strcat (GETSPECIALPATH 1) "/scrrun.dll"))<br />   (if (not fc-alias)<br />     (vlax-import-type-library<br />       :tlb-filename        PATH                  :methods-prefix<br />       "fm-"                :properties-prefix<br />       "fp-"                :constants-prefix "fc-"<br />      )<br />   )<br />   ;;=========<br />   (setq FSO (vlax-create-object "Scripting.FileSystemObject"))<br />   (setq        F (fm-opentextfile<br />             "C: \\readme.txt"<br />             fc-forwriting<br />             fc-tristateusedefault<br />           )<br />   )<br />   (fm-write F "abc")<br />   (fm-close F)<br />   (and f (vlax-release-object f))<br />   (and FSO (vlax-release-object FSO))<br /> <br />

(setq        F (fm-opentextfile
            "C: \\readme.txt"
            fc-forwriting
            fc-tristateusedefault
          )
  )

_$
参数类型错误: VLA-OBJECT "C: \\readme.txt"

mingzhexi

难怪看不懂，学习！

highflybird

回复 carrot1983 的帖子

  (setq        F (fm-opentextfile
            FSO
            "C:\\readme.txt"
            fc-forwriting
            :vlax-true
            fc-tristateusedefault
          )
  )

yanshengjiang

妤间富鐨勭煡璇嗗拰鑳告

zyhandw

此人，牛人是也！