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

tongji007

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

blackcow1985

被骗了

tianyi1230

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

tianyi1230

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

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

fansmore

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

【KAIXIN】

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

xyp1964

;; 凑个热闹

2. ;; 曲线选择集批量交点插入块
   
3. ;; 需要e派工具箱的支持
   
4. (defun c:tt (/ s0 p0 ss pt)
   
5.   (CMDLA0)
   
6.   (if (and (setq s0 (car (entsel "\n选择图块: ")))
   
7.     (xyp-etype s0 "insert")
   
8.       )
   
9.     (progn
   
10.       (redraw s0 3)
    
11.       (setq p0 (xyp-get-dxf 10 s0))
    
12.       (princ "\n选择曲线: ")
    
13.       (xyp-Group0)
    
14.       (if (setq ss (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))
    
15. (foreach pt (xyp-Get-CurveInters ss)
    
16.    (xyp-copymove s0 p0 pt)
    
17. )
    
18.       )
    
19.       (xyp-Group1)
    
20.       (redraw s0 4)
    
21.     )
    
22.   )
    
23.   (CMDLA1)
    
24. )

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

【KAIXIN】

xyp1964 发表于 2012-4-15 11:37
;; 凑个热闹

欢迎院长凑热闹！够简洁

czb203

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

火鳳凰

命令是什么啊，没看到啊