发几个简化代码的函数
近日无事,写了点代码,供大家测试一下.程序提供了3个文件,setup.lsp vlapi.fasvlapi.dvb,3个文件需要放在cad的搜索路径中.Setup.lsp是源码,主要是检索和加载文件,一看就明白.Vlapi.dvb是vba工程文件,提供数据返回功能,大家不用关心.Vlapi.fas是编译后的文件,提供一下几个核心函数:(Runvba strpro )(with )(wget pro)(wput pro value)(wmeth method )(select var)(case var)(Runvba strpro )函数的用法:(runvba"thisdrawing.ModelSpace(0)")>>> #<VLA-OBJECT IAcadLine000001a2be9a93b8>(runvba"thisdrawing.ModelSpace(0).layer")>>>"AM_0"(runvba"thisdrawing.ModelSpace(0).layer" "AM_5")>>>nil(runvba"thisdrawing.ModelSpace(0).layer")>>>"AM_5"还可以这样用:(runvba "userform1.showvbmodeless")(runvba"userform1.left" 100)
(with ) (wget pro) (wputpro value) (wmeth method ) 函数的用法:这是一组函数,调用后三个函数前,需先用with函数,比如:(with 'cadapp)或 (with“cadapp”)均返回#<VLA-OBJECT IAcadApplication00007ff61c25b910>(with 'thisdrawing)返回#<VLA-OBJECT IAcadDocument 000001a2b0f97298>(with (VLAX-GET-ACAD-OBJECT))返回#<VLA-OBJECT IAcadApplication 00007ff61c25b910>(with "thisdrawing")返回"thisdrawing."用法示例:(with "thisdrawing") (wget 'Name)或(wget “Name”)返回"Drawing1.dwg" (wget 'ModelSpace)或(wget“ModelSpace”)返回#<VLA-OBJECT IAcadModelSpace000001a2b0b841a8> (wget 'Width)或(wget”width”)返回1382(with"thisdrawing.ModelSpace(0)") (wget 'layer)返回"AM_5" (wput 'layer "am_0")返回nil (wget 'layer)返回"AM_0"(wmeth method )函数的用法想必大家都明白了,只是其前面with函数的变量必须为vla-object类型
(select var)和(case var)的用法就很简单了,举例:假如obj_line为vla-object类型的直线(select (vla-get-color obj_line))(Cond ((case 1) (princ “\n红色”)) ((case 2) (princ “\n蓝色”)))
由于论坛限制,10k的附件都无法上传,只好把附件放在晓东上了,地址:http://bbs.xdcad.net/forum.php?mod=viewthread&tid=727295&page=1&extra=#pid3750693
谢谢楼主的分享 这个好，谢谢分享！能出个打包安装更好了
页:
[1]