插入图块，三种方法，那个最好

尘缘一生

如题

2. ;;插入图块----(一级)-----
   
3. ;;(vla-ins-b "\\ XYZ\\kuai.dwg" '(0 0 0) 1 1 1 0)
   
4. (defun vla-ins-b (bname pt xscale yscale zscale rot / mspace)
   
5.   (if (= (getvar "CTAB") "Model") (setq mspace *Model-Space*) (setq mspace *Paper-Space*))
   
6.   ;(command "-INSERT" bname pt 1 1 0) 插入方法1
   
7.   ;(vla-InsertBlock mspace (vlax-3d-point pt) bname xscale yscale zscale rot)插入方法2
   
8.   (vlax-invoke mspace 'insertblock pt bname xscale yscale zscale rot) ;插入方法3
   
9.   (princ)
   
10. )

;;插入图块----(一级)-----<br /> ;;(vla-ins-b "\\ XYZ\\kuai.dwg" '(0 0 0) 1 1 1 0)<br /> (defun vla-ins-b (bname pt xscale yscale zscale rot / mspace)<br />   (if (= (getvar "CTAB") "Model") (setq mspace *Model-Space*) (setq mspace *Paper-Space*))<br />   ;(command "-INSERT" bname pt 1 1 0) 插入方法1 <br />   ;(vla-InsertBlock mspace (vlax-3d-point pt) bname xscale yscale zscale rot)插入方法2<br />   (vlax-invoke mspace 'insertblock pt bname xscale yscale zscale rot) ;插入方法3 <br />   (princ)<br /> )

你有种再说一遍

第一种是原生arx方式,虽然是command方式.
第二种似乎只是映射arx或者com.
第三种是com接口.
用第二个就好了.

但是这个克隆+插入有一个文字偏移的bug,
文字偏移

解决这个bug需要设置文字样式,再克隆,再切换图纸,粘贴之后再恢复文字样式.

i小小白i

一直用第二种

hubeiwdlue

用command就挺好。

20060510412

方法2与方法3，没啥区别吧，都是vla函数，只是写法的不同而已。

muai2010

可以选的话第1和3，第一个常用，第三个短

`中微子

还有一种用entmake也可以.

e2002

2和3是相同的。

另外代码中还需要：
   a. 判断布局中的视口对象是否是激活状态;
   b. 对于非平行与WCS的平面，还需要设置 对象的 Normal。