如何把VB函数写成LISP格式，求详解，以VLA-insertblock为例吧就

mrhvslisp · 发表于 2011-4-19 18:43

如题，越详细越好，数据格式可以略过。

求高手多举几个例子，

可能对您只是几分钟，对我却是莫大的帮助，

感谢达人。

另外鄙人用CASS如何用ENTMAKE创建高程点，求源码。

mrhvslisp · 发表于 2011-4-19 18:46

(defun C:tk (/)
  (vl-load-com)
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (setq tk(vla-insertblock doc (vlax-3d-point '(10 20 150)) "GC200" "" "" "" ""))
)
我这段是根据自己理解写的，不对。。。。。。。
应该如何呢？

Gu_xl · 发表于 2011-4-19 22:32

本帖最后由 Gu_xl 于 2011-4-19 22:33 编辑

回复 mrhvslisp 的帖子

(vla-insertblock (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))...)
第二个参数应为modelspace 或 block object,具体参数请查看cad帮助文件

zark · 发表于 2011-4-20 21:01

回复 Gu_xl 的帖子

用了 vla-insertblock 运行速度跟COMMAND "_.INSERT" 一样吗？有没有本质的差别？比如用COMMAND创建一个文字跟用ENTMAKE创建一个文字就不同

账号		自动登录	找回密码
密码			注册

[函数] 如何把VB函数写成LISP格式，求详解，以VLA-insertblock为例吧就

浏览过的版块