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

Lispboy · 发表于 2018-11-24 00:57:51

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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

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

lixiaolin · 发表于 2018-11-24 13:15:49

下载学习，谢谢

evayleung · 发表于 2018-11-24 15:05:58

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

kqqt6236 · 发表于 2018-11-24 17:19:49

谢谢分享。

yuren008 · 发表于 2018-11-24 20:21:27

谢谢楼主上传，不错的。

coverne · 发表于 2018-11-24 21:47:27

taper这下方便了

账号		自动登录	找回密码
密码			立即注册

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。