请教高手，如何自己定制ActiveX命令

passions

;**********以下部分是对新文档进行操作，必须使用ActiveX方法**********************
(vla-addCircle (vla-get-ModelSpace newdoc) (vlax-3d-point '(3.0 3.0 0.0)) 200.0)
;**********操作部分结束，这里的例子是在打开的图中画了一个圆*********************
  请问如何把这段画图程序改成  在命令栏里输“abc”命令，其中“abc”命令是用lisp编程的

cnks

(defun c:abc()
(vla-addCircle (vla-get-ModelSpace newdoc) (vlax-3d-point '(3.0 3.0 0.0)) 200.0)
)

passions

高手，我不是这个意思，我是说将这段程序(vla-addCircle (vla-get-ModelSpace newdoc) (vlax-3d-point '(3.0 3.0 0.0)) 200.0)，写成我自己的程序 ，怎么实现用ActiveX方法

passions

(defun c:test( / fjm0 fjm1 newdoc )
(setq fjm0 "d:/CAD与数据开发/00BLOCK/电信井.dwg")
(setq newdoc (vla-open (vla-get-documents (vlax-get-acad-object)) fjm0));打开并获得新文档

;**********以下部分是对新文档进行操作，必须使用ActiveX方法**********************
(vla-addCircle (vla-get-ModelSpace newdoc) (vlax-3d-point '(3.0 3.0 0.0)) 200.0)
;**********操作部分结束，这里的例子是在打开的图中画了一个圆*********************

(setq fjm1 "d:/CAD与数据开发/00BLOCK/电信井33.dwg")
(vla-saveas newdoc fjm1 acr15_DWG);另存打开的文档
;或将acr15_dwg改为ac2004_dwg存为2004格式，要在2004及以上版本才可以
(vla-close newdoc);关闭另存的文档
(princ)
)

passions

这个程序中，我要把对新文档操作的程序   改成我自己的程序，怎么实现  

passions

回复 cnks 的帖子

(defun c:test( / fjm0 fjm1 newdoc )
(setq fjm0 "d:/CAD与数据开发/00BLOCK/电信井.dwg")
(setq newdoc (vla-open (vla-get-documents (vlax-get-acad-object)) fjm0));打开并获得新文档

;**********以下部分是对新文档进行操作，必须使用ActiveX方法**********************
(vla-addCircle (vla-get-ModelSpace newdoc) (vlax-3d-point '(3.0 3.0 0.0)) 200.0)
;**********操作部分结束，这里的例子是在打开的图中画了一个圆*********************

(setq fjm1 "d:/CAD与数据开发/00BLOCK/电信井33.dwg")
(vla-saveas newdoc fjm1 acr15_DWG);另存打开的文档
;或将acr15_dwg改为ac2004_dwg存为2004格式，要在2004及以上版本才可以
(vla-close newdoc);关闭另存的文档
(princ)
)

这个程序中，我要把对新文档操作的程序   改成我自己的程序，怎么实现  ，最好是改成在命令栏输自定义命令的程序

cnks

passions 发表于 2011-3-1 22:40
回复 cnks 的帖子

(defun c:test( / fjm0 fjm1 newdoc )

你的概念太模糊了，不知道怎么回答你，你还是仔细想好要问什么再来这里提问