[原创] 未知函数的自动生成

nonsmall

函数开头是app 和 thisdrawing 分别表示 acadobject 和 activedocument

使用方法就是VBA那样的 直接写函数就能得到ACAD的对象或者某个属性:

命令: (app)
#<VLA-OBJECT IAcadApplication 00c2db8c>

命令: (app.name)
"AutoCAD"

命令: (app.path)
"C:\\Program Files\\AutoCAD 2006"

命令: (thisdrawing.name)
"Drawing1.dwg"

命令: (thisdrawing.activelayer.name)
"0"

命令: (thisdrawing.layers)
#<VLA-OBJECT IAcadLayers2 022b41f4>

命令: (thisdrawing.blocks)
#<VLA-OBJECT IAcadBlocks 022b7e64>

命令: (thisdrawing)
#<VLA-OBJECT IAcadDocument 05dbbc44>

咋办不成

瞄瞄，顶~~

nonsmall

要学会变通

按照我上面所写程序的思路改改就行了

把函数反应器改为命令反应器

再让程序根据输入的命令判断自动生成新的命令即可

nonsmall

liminnet发表于2009-4-21 8:30:00到底怎么改呀，NONS哥

哥们，你vlisp学的时间比我要长的多啊

我的代码已经把思路写的那么清楚了，还有注释

你稍稍改改不就ok了么

反应器不会就学啊，顶多看1个小时书，照书写两个反应器就都会了

你的这个问题再简单说

思路就是用反应器得到当前的命令，根据命令字符串调用函数即可。