请教如何修改块定义

gmstcn

比如原来块里面是一个圆，现在想替换成一个矩形。
我这ENTMAKE和ENTGET函数不能用，有其他方法么（VLA-什么的）？

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
目的是通过修改块定义将以下DEMO_A.DWG处理成DEMO_B.DWG

牢固

最简单的方法，用command方法重定义block

caoyin

vla函数处理教方便，但楼主的问题需要描述清楚，最好提供测试实例

gmstcn

楼上请见顶楼更新~

gmstcn

这是我写的代码~~关键地方不知道怎么处理了

1. (defun START();块处理后
   
2. (setq ss (ssget "x"))
   
3. (setq maxidx (sslength ss) idx 1)
   
4.   (while
   
5.     (<= idx maxidx)
   
6.     (setq ename (ssname ss (- idx 1)))
   
7.     (setq obj (vlax-ename->vla-object ename))
   
8.     (if  (= (vlax-get-property obj "ObjectName") "AcDbBlockReference") (搞块 obj))
   
9.     (setq idx (1+ idx))
   
10.   )
    
11. (princ)
    
12. )
    
13. (defun 搞块(insertobj);//对不同的块，需做不同的修改
    
14.   (princ "B---->")(princ insertobj)
    
15.   (setq blockname (vlax-get-property insertobj "Name"))
    
16.   (setq blocks (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))))
    
17.   (setq blockobj (vlax-ename->vla-object (tblobjname "BLOCK" blockname)))
    
18.   ;;;;;;;;;;;;;;;;;;;;;;
    
19.   (vlax-for x (vla-item blocks blockname)
    
20.     (if  (= (vlax-get-property obj "ObjectName") "CIRCLE") (vla-delete obj));删除圆
    
21.     (if  (= (vlax-get-property obj "ObjectName") "HATCH") (vla-delete obj));删除圆的填充
    
22.   )
    
23.   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
24.   ;删完了，这里怎么添加矩形或者直线……？用Vla函数的
    
25.   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
26. )

(defun START();块处理后<br /> (setq ss (ssget "x"))<br /> (setq maxidx (sslength ss) idx 1)<br />   (while <br />     (<= idx maxidx)<br />     (setq ename (ssname ss (- idx 1)))<br />     (setq obj (vlax-ename->vla-object ename))<br />     (if  (= (vlax-get-property obj "ObjectName") "AcDbBlockReference") (搞块 obj))<br />     (setq idx (1+ idx))<br />   )<br /> (princ)<br /> )<br /> (defun 搞块(insertobj);//对不同的块，需做不同的修改<br />   (princ "B---->")(princ insertobj)<br />   (setq blockname (vlax-get-property insertobj "Name"))<br />   (setq blocks (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))))<br />   (setq blockobj (vlax-ename->vla-object (tblobjname "BLOCK" blockname)))<br />   ;;;;;;;;;;;;;;;;;;;;;;<br />   (vlax-for x (vla-item blocks blockname)<br />     (if  (= (vlax-get-property obj "ObjectName") "CIRCLE") (vla-delete obj));删除圆<br />     (if  (= (vlax-get-property obj "ObjectName") "HATCH") (vla-delete obj));删除圆的填充<br />   )<br />   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />   ;删完了，这里怎么添加矩形或者直线……？用Vla函数的<br />   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> )

gmstcn

沉的快啊
求指点
我没理解BLOCKS和BLOCK的说明
不知道怎么得到块定义的OBJ

gmstcn

求指点[em0]

caoyin

BLOCKS----块定义的集合
BLOCK------具体到某个实际的块定义，例如文件DEMO_B.dwg中的块A(不是在屏幕实际显示的INSERT)
INSERT-----块的插入实例（屏幕实际显示的INSERT）

;;;
(setq BLOCKS (vla-get-blocks(vla-get-ActiveDocument (vlax-get-acad-object))))
(setq BLOCK (vla-item BLOCKS "A"))
(vlax-for OBJ BLOCK
;;我这里举例把块A中的直线改为红色，请按照自己要求修改
(if (=(vla-get-objectName OBJ)"AcDbLine")
   (vla-put-color OBJ 1)
)
)
;;REGEN一下看修改结果

gmstcn

版大~块定义里面的修改、删除我能做到，但是不知道怎么用vla添加新图元
(VLA-ADDLINE BLOCK PT1 PT2)??

lijiao

不用编程，直接用图块的在为编辑