API应用 多义线开切口

st788796

1. (defun c:tt (/ e d1 d2 index lst p p+ p- p1 p2 p3)
   
2.   (if (and (setq e (xdrx_entsel
   
3.                      "\n拾取多义线: "
   
4.                      '((0 . "lwpolyline") (-4 . "&=") (70 . 1))
   
5.                    )
   
6.            )
   
7.            (setq d1 (getdist (cadr e) "\n宽度: "))
   
8.            (setq d2 (getdist (cadr e) "\n深度: "))
   
9.            (setq p (cadr e))
   
10.       )
    
11.     (progn
    
12.       (if (not (xdrx_curve_direction (car e)))
    
13.         (xdrx_curve_reverse (car e))
    
14.       );_保证逆时针
    
15.       (setq p (apply 'xdrx_curve_getclosestpoint e)
    
16.             e (car e)
    
17.       )
    
18.       (while p
    
19.         (setq index (xd::polyline:nearindex e p);_拾取点最近的顶点
    
20.               lst   (xd::polyline:-Index+ e index);_前后索引点
    
21.               p            (xdrx_polyline_getpointat e index)
    
22.               p-    (xdrx_polyline_getpointat e (car lst))
    
23.               p+    (xdrx_polyline_getpointat e (cadr lst))
    
24.         )
    
25.         (if (minusp (xd::pnts:area (list p- p p+)));_构成内角
    
26.           (progn
    
27.             (setq p1 (polar p (angle p p-) d1)
    
28.                   p2 (polar p1 (angle p+ p) d2)
    
29.                   p3 (polar p (angle p+ p) d2)
    
30.             )
    
31.             (xdrx_polyline_addvertexat e index p1)
    
32.             (xdrx_polyline_addvertexat e (1+ index) p2)
    
33.             (xdrx_polyline_setpointat e (+ 2 index) p3)
    
34.           )
    
35.         )
    
36.         (setq p (getpoint "\nNear Point: "))
    
37.       )
    
38.     )
    
39.   )
    
40.   (princ)
    
41. )

(defun c:tt (/ e d1 d2 index lst p p+ p- p1 p2 p3)<br />   (if (and (setq e (xdrx_entsel<br />                      "\n拾取多义线: "<br />                      '((0 . "lwpolyline") (-4 . "&=") (70 . 1))<br />                    )<br />            )<br />            (setq d1 (getdist (cadr e) "\n宽度: "))<br />            (setq d2 (getdist (cadr e) "\n深度: "))<br />            (setq p (cadr e))<br />       )<br />     (progn<br />       (if (not (xdrx_curve_direction (car e)))<br />         (xdrx_curve_reverse (car e))<br />       );_保证逆时针<br />       (setq p (apply 'xdrx_curve_getclosestpoint e)<br />             e (car e)<br />       )<br />       (while p<br />         (setq index (xd::polyline:nearindex e p);_拾取点最近的顶点<br />               lst   (xd::polyline:-Index+ e index);_前后索引点<br />               p            (xdrx_polyline_getpointat e index)<br />               p-    (xdrx_polyline_getpointat e (car lst))<br />               p+    (xdrx_polyline_getpointat e (cadr lst))<br />         )<br />         (if (minusp (xd::pnts:area (list p- p p+)));_构成内角<br />           (progn<br />             (setq p1 (polar p (angle p p-) d1)<br />                   p2 (polar p1 (angle p+ p) d2)<br />                   p3 (polar p (angle p+ p) d2)<br />             )<br />             (xdrx_polyline_addvertexat e index p1)<br />             (xdrx_polyline_addvertexat e (1+ index) p2)<br />             (xdrx_polyline_setpointat e (+ 2 index) p3)<br />           )<br />         )<br />         (setq p (getpoint "\nNear Point: "))<br />       )<br />     )<br />   )<br />   (princ)<br /> )

46185932

求教：怎样将代码作成cad的插件啊？ 新手请多指教。还有API 这个代码怎么应用啊？谢谢！   :loveliness:

yuxin6618

谢谢谢谢谢谢