求用ActiveX方式往图里添加块

yrgui

;; [功能] 插指定块
;; [参数] p：插入点，a：旋转角度，s：属性值
;; [返回] nil
(defun CZH (p a s /)
  (command "_insert" "yr_ZH" p "1" "1" a s)
)

以上代码在2014之前的版本运行没问题，可2014版CAD在插入带属性块的时候弹出个“填写属性的对话框”，代码就不能执行下去了，求高手将代码改为用ActiveX方式往图里添加块，多谢

阿霸jun

2. ;;;;;**********插入块,scalelst为（X比例 Y比例 Z比例 旋转角度）
   
3. (defun zj-entmake-insert (insertpoint name scalelst / a b c r)  
   
4.   (if (listp scalelst)
   
5.       (setq a (car scalelst) b (cadr scalelst) c (caddr scalelst) r (last scalelst))
   
6.       (setq a scalelst b scalelst c scalelst r 0)
   
7.   )
   
8.   (vla-insertblock *space*
   
9.                    (vlax-3d-point insertpoint)
   
10.                    name
    
11.                    a
    
12.                    b
    
13.                    c
    
14.                    r
    
15.    )
    
16.    (entlast)
    
17. )
    

;;;;;**********插入块,scalelst为（X比例 Y比例 Z比例 旋转角度）<br /> (defun zj-entmake-insert (insertpoint name scalelst / a b c r)  <br />   (if (listp scalelst)<br />       (setq a (car scalelst) b (cadr scalelst) c (caddr scalelst) r (last scalelst))<br />       (setq a scalelst b scalelst c scalelst r 0)<br />   )<br />   (vla-insertblock *space*<br />                    (vlax-3d-point insertpoint) <br />                    name <br />                    a <br />                    b <br />                    c <br />                    r<br />    )<br />    (entlast)<br /> )<br />

yrgui

阿霸jun 发表于 2013-9-23 17:39

多谢，一两年没研究这个了，从新去翻书难度太大，所以向大家求助

yrgui

阿霸jun 发表于 2013-9-23 17:39

s字符串为这个块的属性，怎么加进去

Gu_xl

yrgui 发表于 2013-9-23 20:06
s字符串为这个块的属性，怎么加进去

论坛里搜索一下，都可以很轻松找到答案！

zhuquanmao

yrgui 发表于 2013-9-23 20:06
s字符串为这个块的属性，怎么加进去

将attdia参数设置为0