[求助]：如何用ActiveX方法插入图块、图形?

hewb

(vla-insertblock modelspace pt)
程序返回：实参太少！请赐教

eachy

最初由 hewb 发布
[B](vla-insertblock modelspace pt)
程序返回：实参太少！请赐教 [/B]

参考下例

1. 
   
2. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
   
3.   <tr>
   
4.     <td width="100%" height="489">
   
5.       <iframe name="I1" width="100%" height="100%" src="http://www.afralisp.com/methods/lista/insertblock_method.htm">
   
6. 浏览器不支持嵌入式框架或配置为不显示嵌入式框架
   
7.       </iframe>
   
8.     </td>
   
9.   </tr>
   
10. </table>
    

复制代码

lsjjm

下面是一个例子:
(defun c:al-insertblock ()
(vl-load-com)
(setq thisdrawing (vla-get-activedocument
                      (vlax-get-acad-object)))
(setq mspace (vla-get-modelspace thisdrawing))
(setq util (vla-get-utility thisdrawing))
(setq ip (vla-GetPoint util nil "\nInsertion Point: "))
(setq thename (vla-GetString util 1 "\nBlock Name: "))
(setq xscale (vla-GetReal util "\nX Scale Factor : "))
(setq yscale (vla-GetReal util "\nY Scale Factor : "))
(setq zscale (vla-GetReal util "\nZ Scale Factor : "))
(setq rot (vla-GetReal util "\nRotation Angle : "))
(setq theblock (vla-InsertBlock mspace ip
                      thename xscale yscale zscale rot))
(princ)
);defun

hewb

搞掂了！多谢楼上两位仁兄。
同时还要感谢eachy提供了 afralisp 网站资源。