常用函数

/db_自贡黄明儒_ · 发表于 2013-6-15 16:35:09

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

[常用函数] 收集：自贡黄明儒

;;; 1 [功能] 检查加载vlisp扩展
(vl-load-com)
;;; 2 常数(lisp编辑器在输出局部变量时,带*的会排在前面.caoyin这样写很有道理)
(setq *en2obj* vlax-ename->vla-object
*obj2en* vlax-vla-object->ename
*2pi* (* pi 2)
*0.5pi* (/ pi 2)
*0.25pi* (/ pi 4) ; 常用vla对象、集合
*acad* (vlax-get-acad-object)
*doc* (vla-get-activedocument *acad*)
*docs* (vla-get-documents *acad*)
*ms* (vla-get-modelspace *doc*)
*ps* (vla-get-paperspace *doc*)
*blks* (vla-get-blocks *doc*)
*lays* (vla-get-layers *doc*)
*lts* (vla-get-linetypes *doc*)
*sts* (vla-get-textstyles *doc*)
*grps* (vla-get-groups *doc*)
*dims* (vla-get-dimstyles *doc*)
*louts* (vla-get-layouts *doc*)
*vps* (vla-get-viewports *doc*)
*vs* (vla-get-views *doc*)
*dics* (vla-get-dictionaries *doc*) ; 常用的几个外部接口对象
*fso* (vlax-get-or-create-object "Scripting.FileSystemObject")
*wsh* (vlax-get-or-create-object "wscript.shell")
*shell* (vlax-get-or-create-object "Shell.Application")
*scr* (vlax-get-or-create-object "ScriptControl")
*wbem* (vlax-get-or-create-object "WbemScripting.SWbemLocator")
)
;;; 3 [功能] 返回活动空间vla对象
(defun mj:activespace ()
(if (= 1 (vlax-get-property doc* 'activespace)) ; 模型1,布局0
*ms*
*ps*
)
)
;;; 4.1 [功能] 返回当前活动空间名称("model" or "paper")
(defun mj:activespace-name ()
(if (= 1 (vla-get-activespace *doc*))
"Model"
"Paper"
)
)
;;; 4.2 [功能] 返回空间名称,如"model"或者"layout1"...
(defun mj:activespace1 ()
(vla-get-name (vla-get-activelayout *doc*))
)
;;; 5 [功能] 返回preferences vla对象
(defun mj:acadprefs ()
(vlax-get-property *acad* 'preferences)
)
;;; 6 [功能] 返回指定引用的属性
;;; tabname:application,display,drafting,files,opensave,output,profiles,selection
;;; ,system,user
;;; 示例 (mj:getprefkey 'files 'supportpath) 获取支持文件路径
(defun mj:getprefkey (tabname keyname)
(vlax-get-property (vlax-get-property (mj:acadprefs) tabname) keyname)
)
;;; 7 [功能] 更改引用设置
;;; 示例 (mj:setprefkey "opensave" "incrementalsavepercent" 0)
(defun mj:setprefkey (tabname keyname newval)
(vlax-put-property (vlax-get-property (mj:acadprefs) tabname) keyname newval)
)
;;; 8 [功能] 返回 acad对象的属性
;;; propname:activedocument,application,caption,documents,fullname,height,hwnd,lo
;;; caleid,menubar,
;;; menugroups,name,path,preferences,statusid,vbe,version,visible,width,windowlef
;;; t,windowstate,windowtop
;;; 示例 (mj:acadprop 'fullname)
(defun mj:acadprop (propname)
(vlax-get-property *acad* propname)
)
;;; 9 [功能] 对象名称
;;; 示例 (mj:name *acad*) returns "autocad"
;;; 示例 (mj:name *ms*)返回"*model_space"
(defun mj:name (obj)
(if (vlax-property-available-p obj 'name)
(vlax-get-property obj 'name)
"<NONE_NAME>"
)
)

;;; 1 [功能] 检查加载vlisp扩展 
(vl-load-com) 
;;; 2  常数(lisp编辑器在输出局部变量时,带*的会排在前面.caoyin这样写很有道理) 
(setq *en2obj* vlax-ename->vla-object 
      *obj2en* vlax-vla-object->ename 
      *2pi* (* pi 2) 
      *0.5pi* (/ pi 2) 
      *0.25pi* (/ pi 4)                       ; 常用vla对象、集合 
      *acad* (vlax-get-acad-object) 
      *doc* (vla-get-activedocument *acad*) 
      *docs* (vla-get-documents *acad*) 
      *ms* (vla-get-modelspace *doc*) 
      *ps* (vla-get-paperspace *doc*) 
      *blks* (vla-get-blocks *doc*) 
      *lays* (vla-get-layers *doc*) 
      *lts* (vla-get-linetypes *doc*) 
      *sts* (vla-get-textstyles *doc*) 
      *grps* (vla-get-groups *doc*) 
      *dims* (vla-get-dimstyles *doc*) 
      *louts* (vla-get-layouts *doc*) 
      *vps* (vla-get-viewports *doc*) 
      *vs* (vla-get-views *doc*) 
      *dics* (vla-get-dictionaries *doc*) ; 常用的几个外部接口对象 
      *fso* (vlax-get-or-create-object "Scripting.FileSystemObject") 
      *wsh* (vlax-get-or-create-object "wscript.shell") 
      *shell* (vlax-get-or-create-object "Shell.Application") 
      *scr* (vlax-get-or-create-object "ScriptControl") 
      *wbem* (vlax-get-or-create-object "WbemScripting.SWbemLocator") 
) 
;;; 3 [功能] 返回活动空间vla对象 
(defun mj:activespace () 
  (if (= 1 (vlax-get-property doc* 'activespace)) ; 模型1,布局0 
    *ms* 
    *ps* 
  ) 
) 
;;; 4.1 [功能] 返回当前活动空间名称("model" or "paper") 
(defun mj:activespace-name () 
  (if (= 1 (vla-get-activespace *doc*)) 
    "Model" 
    "Paper" 
  ) 
) 
;;; 4.2 [功能] 返回空间名称,如"model"或者"layout1"... 
(defun mj:activespace1 () 
  (vla-get-name (vla-get-activelayout *doc*)) 
) 
;;; 5 [功能] 返回preferences vla对象 
(defun mj:acadprefs () 
  (vlax-get-property *acad* 'preferences) 
) 
;;; 6 [功能] 返回指定引用的属性 
;;; tabname:application,display,drafting,files,opensave,output,profiles,selection 
;;; ,system,user 
;;; 示例   (mj:getprefkey 'files 'supportpath)  获取支持文件路径 
(defun mj:getprefkey (tabname keyname) 
  (vlax-get-property (vlax-get-property (mj:acadprefs) tabname) keyname) 
) 
;;; 7 [功能] 更改引用设置 
;;; 示例 (mj:setprefkey "opensave" "incrementalsavepercent" 0) 
(defun mj:setprefkey (tabname keyname newval) 
  (vlax-put-property (vlax-get-property (mj:acadprefs) tabname) keyname newval) 
) 
;;; 8 [功能] 返回 acad对象的属性 
;;; propname:activedocument,application,caption,documents,fullname,height,hwnd,lo 
;;; caleid,menubar, 
;;; menugroups,name,path,preferences,statusid,vbe,version,visible,width,windowlef 
;;; t,windowstate,windowtop 
;;; 示例 (mj:acadprop 'fullname) 
(defun mj:acadprop (propname) 
  (vlax-get-property *acad* propname) 
) 
;;; 9 [功能] 对象名称 
;;; 示例 (mj:name *acad*) returns "autocad" 
;;; 示例 (mj:name *ms*)返回"*model_space" 
(defun mj:name (obj) 
  (if (vlax-property-available-p obj 'name) 
    (vlax-get-property obj 'name) 
    "<NONE_NAME>" 
  ) 
)

更多见附件。

Free-Lancer · 发表于 2013-6-15 17:21:19

本帖最后由 Free-Lancer 于 2013-6-15 17:24 编辑

一下子做出这么多变量来，CAD加载的是不是太多了？

提倡环保，按需加载，事后释放

urdiafra · 发表于 2013-7-10 19:26:34

(vlax-get-or-create-object "ScriptControl")
無法在win7 64bit autocad 2010執行
請問如何解決?

newer · 发表于 2013-7-10 19:38:36

urdiafra 发表于 2013-7-10 19:26
(vlax-get-or-create-object "ScriptControl")
無法在win7 64bit autocad 2010執行
請問如何解決?

这个跟AUTOCAD无关，你找下如果在WIN7 64位下使用 ACTIVEX ScriptControl 的资料。

zhong2013 · 发表于 2013-11-12 10:15:30

收藏了，慢慢学习..

ylileiy · 发表于 2014-1-6 11:32:58

好东西，赞:lol

totorojdm · 发表于 2014-4-27 00:19:31

很好的资源~ 下载收藏~

SunSpring · 发表于 2014-6-6 07:57:40

回复有D豆吗.

spp_wall · 发表于 2014-6-9 09:14:03

这些函数怎么使用啊！！！小白求教！！！

wl1231212 · 发表于 2014-7-13 15:52:16

很好的学习资料，希望楼主放出明经上的收集，那边不能付款失效了！

wangdaobin · 发表于 2014-8-1 02:17:30

非常好，方便！

llxx · 发表于 2014-11-1 17:04:36

谢谢楼主，资料很给力，谢谢！

陪你看山盟 · 发表于 2014-11-18 13:24:41

好东西,收了,谢谢分享...

ylzhao · 发表于 2014-11-24 16:05:20

支持,下载学习一下.

matadorbb99 · 发表于 2014-12-11 15:19:30

收藏了，慢慢学习..

账号		自动登录	找回密码
密码			立即注册

[每日一码] 常用函数

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

相关帖子

评分

点评