批量多段线Taper（平滑起始到终止宽度）

Lispboy

1. (defun c:XDTB_PLTaper (/ dis segs #last #swid lens i e ss var)
   
2.   (defun _process (e)
   
3.     (setq dis        (xdrx_getpropertyvalue e "length")
   
4.           segs        (xdrx_getpropertyvalue e "allsegs")
   
5.           #last        0.0
   
6.           #swid        0.0
   
7.           lens        (mapcar        '(lambda (x)
   
8.                            (xdge::getpropertyvalue x "length")
   
9.                            (setq #last (+ #last #length)
   
10.                                  wids  (list #swid
    
11.                                              (* #xd_var_global_endwid (/ #last dis))
    
12.                                        )
    
13.                            )
    
14.                            (setq #swid (last wids))
    
15.                            wids
    
16.                          )
    
17.                         segs
    
18.                 )
    
19.           i        0
    
20.           lens        (mapcar        '(lambda (x)
    
21.                            (setq i (1+ i))
    
22.                            (list (+ (car x) #xd_var_global_startwid)
    
23.                                  (if (/= i (length segs))
    
24.                                    (+ #xd_var_global_startwid (cadr x))
    
25.                                    (cadr x)
    
26.                                  )
    
27.                            )
    
28.                          )
    
29.                         lens
    
30.                 )
    
31.           i        0
    
32.     )
    
33.     (repeat (xdrx_polyline_numverts e)
    
34.       (xdrx_polyline_setwidthsat
    
35.         e
    
36.         i
    
37.         (car (nth i lens))
    
38.         (cadr (nth i lens))
    
39.       )
    
40.       (setq i (1+ i))
    
41.     )
    
42.   )
    
43.   (if (and (xdrx_initssget "\n选择要处理的多段线<退出>:")
    
44.            (setq ss (xdrx_ssget '((0 . "*polyline"))))
    
45.       )
    
46.     (progn (xdrx_begin)
    
47.            (if (not #xd_var_global_startwid)
    
48.              (setq #xd_var_global_startwid 1.0)
    
49.            )
    
50.            (if (setq var (getreal (xdrx_prompt
    
51.                                     "\n起始宽度<"
    
52.                                     #xd_var_global_startwid
    
53.                                     ">:"
    
54.                                     t
    
55.                                   )
    
56.                          )
    
57.                )
    
58.              (setq #xd_var_global_startwid var)
    
59.            )
    
60.            (if (not #xd_var_global_endwid)
    
61.              (setq #xd_var_global_endwid 2.0)
    
62.            )
    
63.            (if (setq var
    
64.                       (getreal
    
65.                         (xdrx_prompt "\n起始宽度<" #xd_var_global_endwid ">:" t)
    
66.                       )
    
67.                )
    
68.              (setq #xd_var_global_endwid var)
    
69.            )
    
70.            (setq #swid #xd_var_global_startwid)
    
71.            (mapcar '(lambda (x) (_process x)) (xdrx_pickset->ents ss))
    
72.            (xdrx_end)
    
73.     )
    
74.   )
    
75.   (princ)
    
76. )
    

(defun c:XDTB_PLTaper (/ dis segs #last #swid lens i e ss var)<br />   (defun _process (e)<br />     (setq dis        (xdrx_getpropertyvalue e "length")<br />           segs        (xdrx_getpropertyvalue e "allsegs")<br />           #last        0.0<br />           #swid        0.0<br />           lens        (mapcar        '(lambda (x)<br />                            (xdge::getpropertyvalue x "length")<br />                            (setq #last (+ #last #length)<br />                                  wids  (list #swid<br />                                              (* #xd_var_global_endwid (/ #last dis))<br />                                        )<br />                            )<br />                            (setq #swid (last wids))<br />                            wids<br />                          )<br />                         segs<br />                 )<br />           i        0<br />           lens        (mapcar        '(lambda (x)<br />                            (setq i (1+ i))<br />                            (list (+ (car x) #xd_var_global_startwid)<br />                                  (if (/= i (length segs))<br />                                    (+ #xd_var_global_startwid (cadr x))<br />                                    (cadr x)<br />                                  )<br />                            )<br />                          )<br />                         lens<br />                 )<br />           i        0<br />     )<br />     (repeat (xdrx_polyline_numverts e)<br />       (xdrx_polyline_setwidthsat<br />         e<br />         i<br />         (car (nth i lens))<br />         (cadr (nth i lens))<br />       )<br />       (setq i (1+ i))<br />     )<br />   )<br />   (if (and (xdrx_initssget "\n选择要处理的多段线<退出>:")<br />            (setq ss (xdrx_ssget '((0 . "*polyline"))))<br />       )<br />     (progn (xdrx_begin)<br />            (if (not #xd_var_global_startwid)<br />              (setq #xd_var_global_startwid 1.0)<br />            )<br />            (if (setq var (getreal (xdrx_prompt<br />                                     "\n起始宽度<"<br />                                     #xd_var_global_startwid<br />                                     ">:"<br />                                     t<br />                                   )<br />                          )<br />                )<br />              (setq #xd_var_global_startwid var)<br />            )<br />            (if (not #xd_var_global_endwid)<br />              (setq #xd_var_global_endwid 2.0)<br />            )<br />            (if (setq var<br />                       (getreal<br />                         (xdrx_prompt "\n起始宽度<" #xd_var_global_endwid ">:" t)<br />                       )<br />                )<br />              (setq #xd_var_global_endwid var)<br />            )<br />            (setq #swid #xd_var_global_startwid)<br />            (mapcar '(lambda (x) (_process x)) (xdrx_pickset->ents ss))<br />            (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br />

lixiaolin

下载学习，谢谢

evayleung

谢谢分享。。。。。。。。。。

kqqt6236

谢谢分享。

yuren008

谢谢楼主上传，不错的。

coverne

taper这下方便了