dcl1214 发表于 2020-9-5 09:13:32

已有 11 人购买  本主题需向作者支付 3 个明经币 才能浏览 购买主题

13648893846 发表于 2020-9-5 09:27:47

老大牛叉！学习了

依然小小鸟 发表于 2020-9-5 10:10:33

命令是啥？？？

刘炎华 发表于 2020-9-5 18:36:08

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

yoyoho 发表于 2020-9-5 19:39:38

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

wosiguwozai0830 发表于 2022-5-5 18:56:53

厉害！实测很好用

wosiguwozai0830 发表于 2022-6-30 09:16:15

本帖最后由 wosiguwozai0830 于 2022-6-30 09:18 编辑

实测很好用，个人感觉加图后的重新生成图纸有点慢，改了下;|(vla-regen (vla-get-ActiveDocument (vlax-get-acad-object))
         ;acAllViewports
      ) |;
(setq tktyss(ssget "x" (list (cons 0 "INSERT")(cons 2 (cl:blkname-ssname block)))))
                        (foreach x (sstolistf tktyss)(entupd x))
                        (setq tktyss nil)
(defun sstolistf(ss) ;这个函数来源于本论坛
      (vl-remove-if 'listp (mapcar 'cadr (ssnamexss)))
)
(defun cl:blkname-ssname(ssname1 )
         (vla-get-EffectiveName(vlax-ename->vla-object ssname1))
)


vista228 发表于 2023-10-26 09:01:19

不知道命令是啥，不会用
页: [1]
查看完整版本: 向块添加新图元，添加图元到块