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

tongji007 发表于 2012-3-3 20:16:24

好牛啊，我试用一下，嘿嘿

blackcow1985 发表于 2012-4-1 16:52:10

被骗了

tianyi1230 发表于 2012-4-4 21:28:25

花钱下载的东西竟然不是源码，不知道开心怎么把不是源码的也拿来搜费啊，

tianyi1230 发表于 2012-4-5 11:43:37

tianyi1230 发表于 2012-4-4 21:28 static/image/common/back.gif
花钱下载的东西竟然不是源码，不知道开心怎么把不是源码的也拿来搜费啊，

拿出来是指导人的，让人学习的，这样才都下载走了，谁还会拿来卖钱啊，信把工具箱的源码都拿出来了，也没见他害怕什么，

fansmore 发表于 2012-4-8 15:21:09

最近想做个程序有类似需求，想看看如何做的。

【KAIXIN】 发表于 2012-4-11 19:31:00

常用使用的程序，顶上去....

xyp1964 发表于 2012-4-15 11:37:45

;; 凑个热闹
;; 曲线选择集批量交点插入块
;; 需要e派工具箱的支持
(defun c:tt (/ s0 p0 ss pt)
(CMDLA0)
(if (and (setq s0 (car (entsel "\n选择图块: ")))
    (xyp-etype s0 "insert")
      )
    (progn
      (redraw s0 3)
      (setq p0 (xyp-get-dxf 10 s0))
      (princ "\n选择曲线: ")
      (xyp-Group0)
      (if (setq ss (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))
(foreach pt (xyp-Get-CurveInters ss)
   (xyp-copymove s0 p0 pt)
)
      )
      (xyp-Group1)
      (redraw s0 4)
    )
)
(CMDLA1)
)

【KAIXIN】 发表于 2012-4-15 11:43:46

xyp1964 发表于 2012-4-15 11:37 static/image/common/back.gif
;; 凑个热闹

欢迎院长凑热闹！够简洁

czb203 发表于 2012-4-17 13:56:56

看起来很不错的样子支持楼主

火鳳凰 发表于 2012-5-18 14:15:00

命令是什么啊，没看到啊

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