wzg356 发表于 2023-12-1 13:59:53

获取对象的特性和方法+查看器 补特性中文释义表

本帖最后由 wzg356 于 2023-12-10 13:19 编辑

参考http://bbs.mjtd.com/forum.php?mo ... B%B2%E9%BF%B4%C6%F7写的
本帖本意是这个函数Property&Methods
也顺便写“对象特性方法查看器.lsp”功能与上面连接的一样， 代码短一点
把objPropertys.lsp特性清单-加载，查看器可见特性中文释义

objPropertys.lsp特性清单是根据《ActiveX 和 VBA 参考》（明经08版）来的

学习资料《ActiveX 和 VBA 参考》http://bbs.mjtd.com/forum.php?mo ... iveX%2B%BA%CD%2BVBA
http://bbs.mjtd.com/forum.php?mo ... BVBA%2B%B2%CE%BF%BC


获取对象的特性和方法
;返回(list(list 特性1 特性2....)(list 方法1 方法2....))
;(Property&Methods(vlax-ename->vla-object(car(entsel))))
(setq *Preferences (vla-get-Preferences (vlax-get-acad-object)))
(defun Property&Methods(ob / Display clipdata result n lst lst1 lst2 flag)   
    (setq Display (vla-get-Display *Preferences))
    (setq html (vlax-create-object "htmlfile"))
    (setq clipdata(vlax-get(vlax-get html 'parentwindow) 'clipboarddata))   
    (vla-put-HistoryLines DISPLAY 25)
    (REPEAT 25 (PRINC "\n") (PRINC))
    (vla-put-HistoryLines DISPLAY 500)
    (vlax-dump-Object ob t)   
    (command "_.COPYHIST")
    (vla-put-HistoryLines DISPLAY 25)   
    (setq result (vlax-invoke clipdata 'getdata "text"));系统剪贴板
    (vlax-invoke clipdata 'setdata "text""");系统剪贴板清空
    (vlax-release-object html)
    (while(setq n(vl-string-search "\r\n;" result))                              
                (setq lst(cons(substr result 1 n) lst))
                (setq result(substr result(+ n 4)))
      )
      (foreach x(cons result lst)
                (if      (wcmatch x "*支持的方法:*,*Methods supported:*")
                        (setq flag t)
                        (if flag(setq lst1(cons (read x)lst1))(setq lst2(cons (read x)lst2)))
                )               
      )      
      (list (cdddr lst1);特性
                lst2 ;方法
      )
)





magicheno 发表于 2023-12-1 14:18:20

感谢大佬分享

yoyoho 发表于 2023-12-2 08:18:04

感谢 wzg356 分享程序!!!!!

kozmosovia 发表于 2023-12-2 08:50:41

直接整个所有的属性和方法列表，然后-available-p和-applicable-p判断一下就行了

guosheyang 发表于 2023-12-2 10:57:58

谢谢分享！

lxl217114 发表于 2023-12-4 09:43:47

感谢 wzg356 分享程序!!!!!

1506822004 发表于 2023-12-4 10:28:10

差一个clipboardset函数

wzg356 发表于 2023-12-4 11:46:45

1506822004 发表于 2023-12-4 10:28
差一个clipboardset函数

已补充-------------

wzg356 发表于 2023-12-10 12:26:50

补充 特性中文释义表 方便学习

muai2010 发表于 2024-8-17 23:33:54

wzg356 发表于 2023-12-10 12:26
补充 特性中文释义表 方便学习

怎么可以不生成这个
页: [1]
查看完整版本: 获取对象的特性和方法+查看器 补特性中文释义表