博客网 >

使用vlisp在Ms Access中添加新的记录
作者:分类:默认分类标签:
代码: 2003年05月20日

http://www.xdcad.net/forum/showthread.php?s=&postid=283966#post283966


(defun c:CreateLT ()
(vl-load-com)
(setq pDoc (vla-get-ActiveDocument (vlax-get-acad-object)))
;;get the DBConnect
(setq pDBObj (vla-GetInterfaceObject
(vlax-get-acad-object)
"CAO.dbConnect"
)
)
(if (null pDBObj)
(progn
(alert "Cannot create CAO Automation server.")
(exit)
)
)
;;get the linktemplates
(setq pLTs (vlax-invoke-method pDBObj "GetLinkTemplates" pDoc))
;;prepare the keydescriptions
(setq pKeyDescs (vla-GetInterfaceObject
(vlax-get-acad-object)
"CAO.KeyDescriptions"
)
)
(vlax-invoke-method pKeyDescs "ADD" "TAG_NUMBER" 3 nil nil)
(vlax-invoke-method
pKeyDescs "ADD" "Manufacturer" 1 nil nil)
;;create two link templates
(vlax-invoke-method
pLTs "ADD" "jet_dbsamples" nil
nil "COMPUTER" "LTCreatedByVLispCAO"
pKeyDescs
)
(vlax-invoke-method
pLTs "ADD" "jet_dbsamples"
nil nil "COMPUTER" "LTtobeDeleted"
pKeyDescs
)
;;sample code to show how to delete the link template
(vlax-invoke-method pLTs "delete" "LTtobeDeleted")
)
<< 给甲方图之前简单处理下图纸 / 屏幕菜单切换 >>

专题推荐

不平凡的水果世界

不平凡的水果世界

平凡的水果世界,平凡中的不平凡。 今朝看水果是水果 ,看水果还是水果 ,看水果已不是水果。这境界,谁人可比?在不平凡的水果世界里,仁者见仁,智者见智。

中国春节的那些习俗

中国春节的那些习俗

正月是农历新年的开始,人们往往将它看作是新的一年年运好坏的兆示期。所以,过年的时候“禁忌”特别多。当然,各个地方的风俗习惯不一样,过年的禁忌也是不一样的。

评论
0/200
表情 验证码:

eachy

  • 文章总数0
  • 画报总数0
  • 画报点击数0
  • 文章点击数0
个人排行
        博文分类
        日期归档