Pline局部加宽

st788796

liuyj 发表于 2013-10-7 19:24
出个题目：封闭的含有圆弧的多段线，点选后仅对圆弧段一次全部加粗，直线段不变，如何实现？

遍历顶点，bulge不为0的加粗

newer

liuyj 发表于 2013-10-7 19:24
出个题目：封闭的含有圆弧的多段线，点选后仅对圆弧段一次全部加粗，直线段不变，如何实现？

玩玩，应该没什么具体用途吧。借用了ST的大部分代码，改弧线的就几行够了。

1. (defun c:XDTB_PlineArcSegWidth (/ e sw ew p i pts area v)
   
2.   (xd::begin)
   
3.   (if (and
   
4.         (setq e (xdrx_entsel "\n选择pline: " '((0 . "LWPOLYLINE"))))
   
5.         (progn
   
6.           (sssetfirst nil (xd::entity->pickset (list (car e))))
   
7.           t
   
8.         )
   
9.         (setq sw (getdist (cadr e) "\n起始宽度:　"))
   
10.         (if (setq ew (getdist (cadr e) (strcat "\n终止宽度<" (rtos sw 2 2) ">: ")))
    
11.           ew
    
12.           (setq ew sw)
    
13.         )
    
14.       )
    
15.     (progn
    
16.       (setq vnum (xdrx_polyline_numverts (setq e (car e))))
    
17.       (setq i 0)
    
18.       (repeat vnum
    
19.         (if (= "kArc" (xdrx_polyline_segtype e i))
    
20.            (xdrx_setpropertyvalue e "WidthAt" (list i sw ew))
    
21.         )
    
22.         (setq i (1+ i))
    
23.       )
    
24.     )
    
25.   )
    
26.   (xd::end)
    
27.   (princ)
    
28. )

(defun c:XDTB_PlineArcSegWidth (/ e sw ew p i pts area v)<br />   (xd::begin)<br />   (if (and<br />         (setq e (xdrx_entsel "\n选择pline: " '((0 . "LWPOLYLINE"))))<br />         (progn<br />           (sssetfirst nil (xd::entity->pickset (list (car e))))<br />           t<br />         )<br />         (setq sw (getdist (cadr e) "\n起始宽度:　"))<br />         (if (setq ew (getdist (cadr e) (strcat "\n终止宽度<" (rtos sw 2 2) ">: ")))<br />           ew<br />           (setq ew sw)<br />         )<br />       )<br />     (progn<br />       (setq vnum (xdrx_polyline_numverts (setq e (car e))))<br />       (setq i 0)<br />       (repeat vnum<br />         (if (= "kArc" (xdrx_polyline_segtype e i))<br />            (xdrx_setpropertyvalue e "WidthAt" (list i sw ew))<br />         )<br />         (setq i (1+ i))<br />       )<br />     )<br />   )<br />   (xd::end)<br />   (princ)<br /> )

721118231

谢谢~~~~~~~~~~~~~~~~~~~~~~~~~~~·
- 本文出自晓东CAD家园-论坛，原文地址：http://bbs.xdcad.net/thread-670093-1-1.html

sixegg

感谢楼主的分享精神

写诗天涯

多段线局部加宽，谢谢楼主，挺好的

purple01

多谢楼主分享

cxaoy

挺有意思，学习了。

renyong119

进来看看了

wuqingye

好东西
好东西
好东西
好东西

chxl5878

看看看看看看看看看看看看看看看看看看看看看看看看看看看看看看看看看看看看

daniao5825

这个确实挺有意思！

fdh

好程序，顶一个~

egoroom

对选择Pline在点选段设置宽度

mainss1

真的很实用

jimmyxixi

强大的CAd，向你学习