【原创】提供简化编程的一个思路-完美提高lisp开发效率-VBA语句的lisp解释函数

nonsmall

vlisp开始学习这3个多月来

每天都和

vlax-invoke-method

vlax-get-property

之类的函数打交道比如获得当前图层的方法

(vla-get-name (vla-get-ActiveLayer (vla-get-ActiveDocument (vlax-get-acad-object))))

看看vba的方法

ThisDrawing.ActiveLayer.Name

或者
Application.ActiveDocument.ActiveLayer.Name

Lisp为什么不能这么简化呢?

下面是我实现vba函数的部分结果:

当前图层

命令: (vba "ActiveDocument.ActiveLayer.name")
"0"

图块集合

命令: (vba "ActiveDocument.Blocks")
#<VLA-OBJECT IAcadBlocks 05e686a4>

当前cad路径
命令: (vba "FullName")
"C:\\Program Files\\AutoCAD 2006\\acad.exe"

当前字体样式

命令: (vba "ActiveDocument.ActiveTextStyle.name")
"MR_ROMANS"

对于集合的处理和带参数的vlax-invoke方法处理比较麻烦

如果能够完善这个函数开发效率相信大大增加

返回值是Lisp可以识别的对象和vla-eval调用VBA绝对不同

我打算以后直接copy VBA代码就行了

或者说是写一个真正的VBA语句的lisp解释函数还差不多吧

因为VBA语句里面还有多种嵌套模式 我目前没有完全解决 就不拿代码献丑了

只把思路放下,大家来实现完善吧

--------------------------------------------

命令: (setq layers (vba "activedocument.layers"))
#<VLA-OBJECT IAcadLayers2 0266a7a4>
命令: (setq newlay (vba "layers.add(\"234\")"))
#<VLA-OBJECT IAcadLayer2 026b3844>
命令: (vba "newlay.color=6")
nil

命令: (setq lay(vba "activedocument.layers.add(\"111\")"))
#<VLA-OBJECT IAcadLayer2 026b4954>
命令: (vba "lay.color=3")
nil

命令: (vba "activedocument.layers.item(\"111\").color=1")
nil

mccad

非常支持。严重关注一下。

祥子

支持一下

nonsmall

谢谢楼上的关注

这是一共奋斗两个半小时的结果:

命令: (setq pt1 (vlax-3d-point '(0 0)) pt2 (vlax-3d-point '(1 1)))
#<variant 8197 ...>
命令: (vba "Documents(0).ModelSpace.addline(pt1,pt2)")
#<VLA-OBJECT IAcadLine 021861d4>
命令: (entget(entlast))
((-1 . <图元名: 7ef631a8>) (0 . "LINE") (330 . <图元名: 7ef61d18>) (5 . "46D")
(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbLine") (10
0.0 0.0 0.0) (11 1.0 1.0 0.0) (210 0.0 0.0 1.0))

看来还是有希望实现的 不过还需要多多测试和完善

以后写vlisp就可以轻松多了 有兴趣的朋友也尝试下吧

lzj511

各有个的长处而已，萝卜白菜各有所爱！！

飞诗(fsxm)

程序写的短少，与程序运行效率，首选效率

所以~还是老实点多写点代码！

本来这写这点代码纯属体力活~！

不死猫

根据现在硬件的发展 运行部分的效率不用考虑太多

主要影响效率的部分可以多写代码

也要看自己对算法的理解运用

但对于开发人员来说

一天的工作半天完成 剩下半天用来学习和改进工作效率

这样永远比别人跑的要快对不？

nonsmall

(defun c:test()
 (setq runtime_be (read (substr (rtos (getvar "date") 2 16) 9 5)))
 (setq pt1 (vlax-3d-point '(0 0)) pt2 (vlax-3d-point '(1 1)))
 (setq mps (vla-get-modelspace (vla-get-activedocument(vlax-get-acad-object))))
 (repeat 10000
  (vla-addline mps pt1 pt2)
 )
 (setq runtime_e (read (substr (rtos (getvar "date") 2 16) 9 5)))
 (print (strcat "运行时间" (itoa (- runtime_be runtime_e)) " secs."))
)

命令: test
"运行时间-3 secs." "运行时间-3 secs."

(defun c:test()
 (setq runtime_be (read (substr (rtos (getvar "date") 2 16) 9 5)))
 (setq pt1 (vlax-3d-point '(0 0)) pt2 (vlax-3d-point '(1 1)))
 (setq mps (vba "activedocument.ModelSpace"))
 (repeat 10000
  (vba "mps.addline(pt1,pt2)")
 )
 (setq runtime_e (read (substr (rtos (getvar "date") 2 16) 9 5)))
 (print (strcat "运行时间" (itoa (- runtime_be runtime_e)) " secs."))
)

命令: test
"运行时间-8 secs." "运行时间-8 secs."

绘制10000条线这种情况当然选择第一种方式了

但只是一个程序内用几十次这样的方法 运行时间应该不差多少

mccad

我的建议，做一个VBA代码--&gt;LISP转换器，则不受效率影响。