yrgui 发表于 2013-9-23 17:36:03

求用ActiveX方式往图里添加块

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

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

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

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

yrgui 发表于 2013-9-23 17:44:03

阿霸jun 发表于 2013-9-23 17:39 static/image/common/back.gif


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

yrgui 发表于 2013-9-23 20:06:13

阿霸jun 发表于 2013-9-23 17:39 static/image/common/back.gif


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

Gu_xl 发表于 2013-9-23 20:45:10

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

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

zhuquanmao 发表于 2014-3-3 08:27:29

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

将attdia参数设置为0
页: [1]
查看完整版本: 求用ActiveX方式往图里添加块