无敌大香蕉 发表于 2019-12-1 23:59:14

求助按点或圆心批量插入块插件

ruti
求助按点或圆心批量插入块插件

pastor 发表于 2019-12-2 09:41:36

ssget获取点，再逐个插图块

alf520 发表于 2019-12-15 17:57:37

本帖最后由 alf520 于 2019-12-15 18:19 编辑

(defun c:tt()
   (if (setq ss (ssget '((0 . "circle"))))
   (progn
          (setq i -1)
          (repeat (sslength ss)
            (setq e (ssname ss (setq i (1+ i)))
                      cen (cdr (assoc 10 (entget e))))
            (command "insert" "输入块名称" cen "" "" "")
          )
       )
   )
   (princ))
"输入块名称"，这里改成你有插入的块名称，，列如A$C5C8D338F
"circle"圆心插入"point"点插入
以上的我也是复制的，如有侵权请告知

页: [1]
查看完整版本: 求助按点或圆心批量插入块插件