提取局部曲线

Lispboy

1. (defun c:xdtb_curvesub (/ pmid pts p1 e p2 g)
   
2.   (defun _callback (dynpt)
   
3.     (apply 'xdrx_grdraw (append (list 252 0) pts))
   
4.   )
   
5.   (xdrx_begin)
   
6.   (xdrx_pointmonitor "_callback")
   
7.   (setq pts nil)
   
8.   (if (and (setq e (car        (xdrx_entsel
   
9.                           "\n选择曲线实体<退出>:"
   
10.                           '((0 . "*line,arc,circle,ellipse"))
    
11.                         )
    
12.                    )
    
13.            )
    
14.            (setq p1 (getpoint "\n起始点<退出>:"))
    
15.            (if (xdrx_curve_isclosed e)
    
16.              (progn (setq pmid (getpoint p1 "\n中间点<退出>:"))
    
17.                     (setq pts (append (list p1) (list pmid)))
    
18.              )
    
19.              t
    
20.            )
    
21.            (setq p2 (getpoint (if pmid
    
22.                                 pmid
    
23.                                 p1
    
24.                               )
    
25.                               "\n终止点<退出>:"
    
26.                     )
    
27.            )
    
28.            (setq p1 (xdrx_curve_getclosestpoint e (trans p1 1 0)))
    
29.            (setq p2 (xdrx_curve_getclosestpoint e (trans p2 1 0)))
    
30.       )
    
31.     (progn (redraw)
    
32.            (if (not pmid)
    
33.              (setq pmid        (xdrx_midp p1 p2)
    
34.                    pmid        (xdrx_curve_getclosestpoint e pmid)
    
35.              )
    
36.            )
    
37.            (setq g (xd::curve:getsub e p1 p2 pmid))
    
38.            (xdge::entity:make g)
    
39.            (xdrx_entity_matchprop e (entlast))
    
40.            (xdrx_object_release g)
    
41.            (xdrx_prompt "\n局部曲线提取成功.")
    
42.            (xdrx_entity_redraw (entlast) 1)
    
43.     )
    
44.   )
    
45.   (xdrx_pointmonitor)
    
46.   (xdrx_end)
    
47.   (princ)
    
48. )
    

(defun c:xdtb_curvesub (/ pmid pts p1 e p2 g)<br />   (defun _callback (dynpt)<br />     (apply 'xdrx_grdraw (append (list 252 0) pts))<br />   )<br />   (xdrx_begin)<br />   (xdrx_pointmonitor "_callback")<br />   (setq pts nil)<br />   (if (and (setq e (car        (xdrx_entsel<br />                           "\n选择曲线实体<退出>:"<br />                           '((0 . "*line,arc,circle,ellipse"))<br />                         )<br />                    )<br />            )<br />            (setq p1 (getpoint "\n起始点<退出>:"))<br />            (if (xdrx_curve_isclosed e)<br />              (progn (setq pmid (getpoint p1 "\n中间点<退出>:"))<br />                     (setq pts (append (list p1) (list pmid)))<br />              )<br />              t<br />            )<br />            (setq p2 (getpoint (if pmid<br />                                 pmid<br />                                 p1<br />                               )<br />                               "\n终止点<退出>:"<br />                     )<br />            )<br />            (setq p1 (xdrx_curve_getclosestpoint e (trans p1 1 0)))<br />            (setq p2 (xdrx_curve_getclosestpoint e (trans p2 1 0)))<br />       )<br />     (progn (redraw)<br />            (if (not pmid)<br />              (setq pmid        (xdrx_midp p1 p2)<br />                    pmid        (xdrx_curve_getclosestpoint e pmid)<br />              )<br />            )<br />            (setq g (xd::curve:getsub e p1 p2 pmid))<br />            (xdge::entity:make g)<br />            (xdrx_entity_matchprop e (entlast))<br />            (xdrx_object_release g)<br />            (xdrx_prompt "\n局部曲线提取成功.")<br />            (xdrx_entity_redraw (entlast) 1)<br />     )<br />   )<br />   (xdrx_pointmonitor)<br />   (xdrx_end)<br />   (princ)<br /> )<br />

zhystar

谢谢楼主分享知识

hch8682005

谢谢楼主分享知识

2767836360

谢谢分享谢谢分享

coverne

这个可以试试看，谢谢分享

sicky111

这个功能太牛逼了。

Michael527

确实挺适用的功能，谢谢分享