求支持直线，多段线，多线，圆，椭圆，的批量交点插入块的LSP源码程序，谢谢

hehoubin

请大侠帮忙写个支持直线，多段线，多线，圆，椭圆，的批量交点插入块的LSP源码程序，谢谢！

xyp1964

;; 供参考

2. 
   
3. ;; 伪源码需要e派工具箱(XCAD)的支持
   
4. (defun c:tt ()
   
5.   (xyp-add-block "zb-mark")
   
6.   (setq        ss  (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE")))
   
7.         ptn (xyp-Get-CurveInters ss)
   
8.   )
   
9.   (foreach pt ptn
   
10.     (xyp-InsertBlock pt "zb-mark" 1 1 1 0)
    
11.   )
    
12.   (princ)
    
13. )
    

<br /> ;; 伪源码需要e派工具箱(XCAD)的支持<br /> (defun c:tt ()<br />   (xyp-add-block "zb-mark")<br />   (setq        ss  (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE")))<br />         ptn (xyp-Get-CurveInters ss)<br />   )<br />   (foreach pt ptn<br />     (xyp-InsertBlock pt "zb-mark" 1 1 1 0)<br />   )<br />   (princ)<br /> )<br />

hehoubin

谢谢，这个要 安装E派工具箱的支持呀

hehoubin

能放xyp-Get-CurveInters 和 xyp-InsertBlock 和xyp-add-block子程序的源码吗

smartstar

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=94238&mobile=yes

chpmould

这里有你需要的答案: http://bbs.mjtd.com/thread-87639-1-1.html