批量交点插入块（支持选块样板，多段线、曲线、直线）

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
(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

启动的快捷键是什么？

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

批量交点插入块（支持选块样板，多段线、曲线、直线）

点评