社区 › AutoCAD工具插件 › 批量交点插入块（支持选块样板，多段线、曲线、直线）

1993063 发表于 2012-6-16 14:09:10

本帖最后由 1993063 于 2012-6-15 20:12 编辑

(defun c:TT ( / ent name pt pts ss)
(if (setq ent (car (entsel "\n选择块: ")))
    (if      (eq "INSERT" (cdr (assoc 0 (setq ent (entget ent)))))
      (progn
      (setq name (cdr (assoc 2 ent)))
      (setq ss (ssget "_:L" '((0 . "ARC,CIRCLE,LWPOLYLINE,SPLINE,LINE,ELLIPSE"))));此处可自行添加捕捉类型
      (if ss (progn (setq pts (ssinters ss))
      (if pts (foreach pt pts (command "Insert" name pt 1 1 0)))))
      )
    )
)
(princ)
)    ;; defun c:tt

smartstar 发表于 2012-6-16 15:57:19

谢谢楼主分享。

yshhui 发表于 2012-7-7 21:25:04

很好用 谢谢 就是不知能支持多少点 想用于地下室布桩

longer1000 发表于 2012-7-8 11:32:26

很好的......

fanqinwei 发表于 2012-7-16 19:54:13

1993063 发表于 2012-6-16 14:09 static/image/common/back.gif
(defun c:TT ( / ent name pt pts ss)
(if (setq ent (car (entsel "\n选择块: ")))
    (if      (e ...

这个在04下更好用。

freehand8008 发表于 2012-7-17 16:45:21

下了试了，1无法控制方向性2，无法控制方向性3无法控制方向性个人觉得似乎不是很实用，CAD自身功能比这个强大

AbnerXk 发表于 2012-7-18 13:21:20

谢谢楼主分享啊！

tianyi1230 发表于 2012-7-26 11:28:26

不是源码啊
开心老大

77023570 发表于 2012-7-30 23:04:20

好厉害的程序

赵炳理 发表于 2012-8-30 10:07:46

启动的快捷键是什么？

查看完整版本: 批量交点插入块（支持选块样板，多段线、曲线、直线）