批量将选中圆替换为块~

ucuc2003 · 发表于 2015-8-8 18:39:17

本帖最后由 ucuc2003 于 2015-8-8 23:38 编辑

flyws77 发表于 2015-8-8 12:24
真的有用啊

我修改了下
http://bbs.mjtd.com/thread-169038-1-1.html

chenbh2 · 发表于 2015-11-19 19:53:36

asd19400 发表于 2014-9-1 14:19
(defun C:T2 (/ BLOCK E ELIST N PT SS)
(princ "\n圆替换成块作者: 蔡建伟 QQ:9518608 2013年12月11日 ...

留个记号，方便下次查找。

shw19900501 · 发表于 2016-4-16 18:03:09

快捷键是什么啊

shw19900501 · 发表于 2016-4-16 18:32:49

asd19400 发表于 2014-9-1 14:19
(defun C:T2 (/ BLOCK E ELIST N PT SS)
(princ "\n圆替换成块作者: 蔡建伟 QQ:9518608 2013年12月11日 ...

命令建是什么啊

skg123 · 发表于 2016-5-1 20:34:21

修改

(defun c:tt (/ ss i s1 pt)
(setq e1 (entsel "\n点选作为源块的图块:"))
(setq BlkName1 (cdr (assoc 2 (entget (car e1)))));源块
  (princ "\n请选择被替换的圆：" )
  (if (setq ss (ssget '((0 . "CIRCLE"))))
(progn
   (setq i -1)
(while (setq s1 (ssname ss (setq i (1+ i))))
      (setq pt (cdr (assoc 10 (entget s1))))
      (command "insert" BlkName1 (trans pt 0 1) 1 1 0)
      (entdel s1)
   )
)
  )
  (princ)
)

账号		自动登录	找回密码
密码			注册