曲线局部加粗

Lispboy

1. (defun c:xdtb_curvesubjc (/ 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_sysvar_push '("osmode" 545))
   
7.   (xdrx_pointmonitor "_callback")
   
8.   (setq pts nil)
   
9.   (if (not #xd_var_global_width)
   
10.     (setq #xd_var_global_width 1.0)
    
11.   )
    
12.   (if (setq var (getreal
    
13.                   (xdrx_prompt "\n输入加粗宽度<" #xd_var_global_width ">:" t)
    
14.                 )
    
15.       )
    
16.     (setq #xd_var_global_width var)
    
17.   )
    
18.   (while (and (setq e (car (xdrx_entsel
    
19.                              "\n选择曲线实体<退出>:"
    
20.                              '((0 . "*line,arc,circle,ellipse"))
    
21.                            )
    
22.                       )
    
23.               )
    
24.               (setq p1 (getpoint "\n起始点<退出>:"))
    
25.               (if (xdrx_curve_isclosed e)
    
26.                 (progn (setq pmid (getpoint p1 "\n中间点<退出>:"))
    
27.                        (setq pts (append (list p1) (list pmid)))
    
28.                 )
    
29.                 t
    
30.               )
    
31.               (setq p2 (getpoint (if pmid
    
32.                                    pmid
    
33.                                    p1
    
34.                                  )
    
35.                                  "\n终止点<退出>:"
    
36.                        )
    
37.               )
    
38.               (setq p1 (xdrx_curve_getclosestpoint e (trans p1 1 0)))
    
39.               (setq p2 (xdrx_curve_getclosestpoint e (trans p2 1 0)))
    
40.          )
    
41.     (progn (redraw)
    
42.            (if (not pmid)
    
43.              (setq pmid (xdrx_midp p1 p2)
    
44.                    pmid (xdrx_curve_getclosestpoint e pmid)
    
45.              )
    
46.            )
    
47.            (setq g (xd::curve:getsub e p1 p2 pmid))
    
48.            (xdge::entity:make g)
    
49.            (xdrx_entity_matchprop e (entlast))
    
50.            (xdrx_curve->polyline (entlast))
    
51.            (xdrx_setpropertyvalue
    
52.              (entlast)
    
53.              "constantwidth"
    
54.              #xd_var_global_width
    
55.            )
    
56.            (xdrx_object_release g)
    
57.            (xdrx_prompt "\n局部曲线加粗成功.")
    
58.     )
    
59.     (setq pts nil pmid nil)
    
60.   )
    
61.   (xdrx_pointmonitor)
    
62.   (xdrx_end)
    
63.   (princ)
    
64. )
    

(defun c:xdtb_curvesubjc (/ 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_sysvar_push '("osmode" 545))<br />   (xdrx_pointmonitor "_callback")<br />   (setq pts nil)<br />   (if (not #xd_var_global_width)<br />     (setq #xd_var_global_width 1.0)<br />   )<br />   (if (setq var (getreal<br />                   (xdrx_prompt "\n输入加粗宽度<" #xd_var_global_width ">:" t)<br />                 )<br />       )<br />     (setq #xd_var_global_width var)<br />   )<br />   (while (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_curve->polyline (entlast))<br />            (xdrx_setpropertyvalue<br />              (entlast)<br />              "constantwidth"<br />              #xd_var_global_width<br />            )<br />            (xdrx_object_release g)<br />            (xdrx_prompt "\n局部曲线加粗成功.")<br />     )<br />     (setq pts nil pmid nil)<br />   )<br />   (xdrx_pointmonitor)<br />   (xdrx_end)<br />   (princ)<br /> )<br />

jinzhu23

很有意思，感谢哈

2767836360

谢谢分享谢谢分享

coverne

谢谢分享谢谢分享

twtysoi

可以，非常好，GOOD

yujishatan

这个厉害了