向块添加新图元，添加图元到块

13648893846

老大牛叉！学习了

依然小小鸟

命令是啥？？？

刘炎华

您好！
可以帮忙另做个功能吗？
选择块，把X,Y,Z的比例设置为0，旋转角度改为0

yoyoho

谢谢! dcl1214 分享学习!!!!

wosiguwozai0830

厉害！实测很好用

wosiguwozai0830

实测很好用，个人感觉加图后的重新生成图纸有点慢，改了下

2. ;|(vla-regen (vla-get-ActiveDocument (vlax-get-acad-object))
   
3.            ;acAllViewports
   
4.       ) |;
   
5. (setq tktyss(ssget "x" (list (cons 0 "INSERT")(cons 2 (cl:blkname-ssname block)))))
   
6.                         (foreach x (sstolistf tktyss)(entupd x))
   
7.                         (setq tktyss nil)
   
8. (defun sstolistf(ss) ;这个函数来源于本论坛
   
9.         (vl-remove-if 'listp (mapcar 'cadr (ssnamex  ss)))
   
10. )
    
11. (defun cl:blkname-ssname(ssname1 )
    
12.          (vla-get-EffectiveName(vlax-ename->vla-object ssname1))
    
13. )
    
14. 
    

;|(vla-regen (vla-get-ActiveDocument (vlax-get-acad-object))<br />            ;acAllViewports<br />       ) |;<br /> (setq tktyss(ssget "x" (list (cons 0 "INSERT")(cons 2 (cl:blkname-ssname block)))))<br />                         (foreach x (sstolistf tktyss)(entupd x))<br />                         (setq tktyss nil)<br /> (defun sstolistf(ss) ;这个函数来源于本论坛<br />         (vl-remove-if 'listp (mapcar 'cadr (ssnamex  ss)))<br /> ) <br /> (defun cl:blkname-ssname(ssname1 )<br />          (vla-get-EffectiveName(vlax-ename->vla-object ssname1))<br /> )<br /> <br />

vista228

不知道命令是啥，不会用