XDRX_API典型程序结构

XDSoft

下面的 (xdrx_setsstodb ss2 no)  no=1-8 ,就是可以嵌套8次循环，而选择集不互相打架，9号特殊用途，用后释放。


请Lispboy和其他朋友借鉴。

1. (defun c:tt()
   
2.    (if (and (setq ss1 ($xdlsp_ssget "\n选取曲线<退出>:" '((0 . "*line,arc,circle,ellipse"))))
   
3.             (setq ss2 ($xdlsp_ssget "\n选取另外一组曲线<退出>:" '((0 . "*line,arc,circle,ellipse"))))
   
4.        )
   
5.      (progn
   
6.         (xdrx_begin)
   
7.         (xdrx_sysvar_push '("omsode" "cmdecho"))
   
8.         (setvar "osmode" 0)
   
9.         (setvar "cmdecho" 0)
   
10.         (xdrx_setsstodb ss1 0)
    
11.         (xdrx_setsstodb ss2 1)
    
12.         (while (setq e1 (xdrx_getentdata 0))
    
13.            (setq clyr1 (xdrx_getentdxf 8)
    
14.                     clr1  (xdrx_getentdxf 62)
    
15.                     .......
    
16.            )
    
17.             (while (setq e2 (xdrx_getentdata 1))
    
18.                 (setq clyr2 (xdrx_getentdxf 8)
    
19.                          clr2 (xdrx_getentdxf 62)
    
20.                          ...........
    
21.                 )
    
22.                 (setq int (xdrx_curve_intersect e1 e2)) ;;求曲线交点
    
23.                 (setq ints (cons int itns))
    
24.             )
    
25.         )
    
26.         (xdrx_sysvar_pop)
    
27.         (xdrx_end)
    
28.      )
    
29.    )
    
30.    (princ)
    
31. )
    
32. 
    

(defun c:tt()<br />    (if (and (setq ss1 ($xdlsp_ssget "\n选取曲线<退出>:" '((0 . "*line,arc,circle,ellipse"))))<br />             (setq ss2 ($xdlsp_ssget "\n选取另外一组曲线<退出>:" '((0 . "*line,arc,circle,ellipse"))))<br />        )<br />      (progn<br />         (xdrx_begin)<br />         (xdrx_sysvar_push '("omsode" "cmdecho"))<br />         (setvar "osmode" 0)<br />         (setvar "cmdecho" 0)<br />         (xdrx_setsstodb ss1 0)<br />         (xdrx_setsstodb ss2 1)<br />         (while (setq e1 (xdrx_getentdata 0))<br />            (setq clyr1 (xdrx_getentdxf 8)<br />                     clr1  (xdrx_getentdxf 62)<br />                     .......<br />            )<br />             (while (setq e2 (xdrx_getentdata 1))<br />                 (setq clyr2 (xdrx_getentdxf 8)<br />                          clr2 (xdrx_getentdxf 62)<br />                          ...........<br />                 )<br />                 (setq int (xdrx_curve_intersect e1 e2)) ;;求曲线交点<br />                 (setq ints (cons int itns))<br />             )<br />         )<br />         (xdrx_sysvar_pop)<br />         (xdrx_end)<br />      )<br />    )<br />    (princ)<br /> )<br /> <br />

Lispboy

压力大了{:soso_e127:}

wowan1314

只看到一堆自定义函数！
其他都没看出来！
压力更大。对lisp失去信心了