社区 › AutoLISP/Visual LISP 编程技术 › 批量将选中圆替换为块~

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

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

flyws77 发表于 2015-8-8 12:24 static/image/common/back.gif
真的有用啊我修改了下
http://bbs.mjtd.com/thread-169038-1-1.html

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

asd19400 发表于 2014-9-1 14:19 static/image/common/back.gif
(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)
)

查看完整版本: 批量将选中圆替换为块~