怎么修改块内线段、文字

qyming

怎么修改块内线段、文字？

自贡黄明儒

右键，在位编辑

鱼与熊掌

2. (setq en(car(entsel)))
   
3. ;
   
4. (setq en_obj(vlax-ename->vla-object en))
   
5. ;
   
6. (setq blk_name(vla-get-Name en_obj))
   
7. ;
   
8. (set blk(vla-Item *BLKS* blk_name))
   
9. ;进去改

(setq en(car(entsel)))<br /> ;<br /> (setq en_obj(vlax-ename->vla-object en))<br /> ;<br /> (setq blk_name(vla-get-Name en_obj))<br /> ;<br /> (set blk(vla-Item *BLKS* blk_name))<br /> ;进去改