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

无敌大香蕉 · 发表于 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"点插入
以上的我也是复制的，如有侵权请告知

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