一个Vla方法创建实体应用

eachy

1. (defun vxadd (space mode lst)
   
2.   (apply 'vlax-invoke (append (list space mode) lst))
   
3. )

(defun vxadd (space mode lst)<br />   (apply 'vlax-invoke (append (list space mode) lst))<br /> )

应用示例：

1. (setq ms (vla-get-modelspace
   
2.     (vla-get-activedocument (vlax-get-acad-object))
   
3.   )
   
4. )

(setq ms (vla-get-modelspace<br />     (vla-get-activedocument (vlax-get-acad-object))<br />   )<br /> )

(vxadd ms 'Addline (list (getpoint) (getpoint)))
(vxadd ms 'Addsolid (list (getpoint) (getpoint) (getpoint) (getpoint)))

GTJ116600

eachy前辈，如果有时间的话，希望给新人普及普及这样创建实体跟entmak创建实体的优缺点。:lol

Free-Lancer

一般 Entmake 如果成功会返回给定的数据表，没有额外信息，也就是给多少返回多少
Entmakex 如果成功返回制造的实体，相当于返回了 (entlast) ，可以用 entget 取出完整信息再进行处理

vla 的 Add 方法如果成功一般返回 Object 实体，而且 Add 方法需要的参数一般仅是几何参数，生成的实体是当前环境，如果需要其他特性，比如层、颜色、线形等等，还需要用这个 Object 再次进行 Put 各种属性，这个和 Entmake 不同，Entmake 可以在给数据表时将各个组码一次给定，不用二次修改

至于孰优孰劣，没有标准，如果程序中不使用 vla 都是 alisp，建议用 entmake entmakex ，如果 vla 多些就选用 add 方法

taner

2. ;;;这样改一下更通用
   
3. (defun invoke (obj method paramLIst)
   
4.   (vl-catch-all-apply 'vlax-invoke (append
   
5.                                  (list obj method)
   
6.                                  paramLIst
   
7.                                )
   
8.   )
   
9. )

;;;这样改一下更通用<br /> (defun invoke (obj method paramLIst)<br />   (vl-catch-all-apply 'vlax-invoke (append<br />                                  (list obj method)<br />                                  paramLIst<br />                                )<br />   )<br /> )