如何绘制带弧段的多段线？

dyxcad

求教大佬们，弧形多段线该如何绘制？

d1742647821

vitalgg 发表于 2022-12-19 09:32
安装 @lisp 自动加载上面的函数定义

总能看到这种2B

vitalgg

1. Sub makeArcLwpl()
   
2.    
   
3.     Dim plineObj As AcadLWPolyline
   
4.     Dim points(0 To 3) As Double
   
5.    
   
6.     points(0) = 1: points(1) = 1
   
7.     points(2) = 1: points(3) = 2
   
8.          
   
9.     Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
   
10.    
    
11.     plineObj.SetBulge 0, -0.5
    
12.     plineObj.Update
    
13.    
    
14. End Sub

Sub makeArcLwpl()<br />     <br />     Dim plineObj As AcadLWPolyline<br />     Dim points(0 To 3) As Double<br />     <br />     points(0) = 1: points(1) = 1<br />     points(2) = 1: points(3) = 2<br />          <br />     Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)<br />     <br />     plineObj.SetBulge 0, -0.5<br />     plineObj.Update<br />     <br /> End Sub

1. (defun entity:make-lwpline-bold (plist convexity elevation closed bold / lst-dxf i)
   
2.   "生成固定宽度的二维多段线.LWPOLYLINE
   
3. 参数:
   
4.    plist:端点坐标点表，如：((x1 y1 z1)(x2 y2 z2)(x2 y2 z2))或((x1 y1)(x2 y2)(x2 y2))
   
5.    convexity:各点与下一点的凸度(个数同坐标点表)，可为nil
   
6.   elevation:标高
   
7.   closed:是否闭合，1:闭合，0：不闭合"
   
8.   "返回值: 生成的多段线的图元名"
   
9.   (setq lst-dxf
   
10.         (list (quote (0 . "LWPOLYLINE"))
    
11.               (quote (100 . "AcDbEntity"))
    
12.               (quote (62 . 1))
    
13.               (quote (370 . 30))
    
14.               (quote (100 . "AcDbPolyline"))
    
15.               (cons 90 (length plist))
    
16.               (if (= closed 1)
    
17.                   (quote (70 . 1))
    
18.                 (quote (70 . 0)))
    
19.               (cons 43 bold)
    
20.               (quote (38 . 0.0))
    
21.               (quote (39 . 0.0))))
    
22.   (setq i 0)
    
23.   (foreach
    
24.    x plist
    
25.    (setq lst-dxf
    
26.          (append lst-dxf
    
27.                  (list (cons 10 x)
    
28.                        (cons 40 bold)
    
29.                        (cons 41 bold)
    
30.                        (cons 42 (if (null convexity)
    
31.                                     0 (nth i convexity)))
    
32.                        (cons 91 0))))
    
33.    (setq i (1+ i)))
    
34.   (entmake lst-dxf)
    
35.   (entlast))

(defun entity:make-lwpline-bold (plist convexity elevation closed bold / lst-dxf i)<br />   "生成固定宽度的二维多段线.LWPOLYLINE<br /> 参数:<br />    plist:端点坐标点表，如：((x1 y1 z1)(x2 y2 z2)(x2 y2 z2))或((x1 y1)(x2 y2)(x2 y2))<br />    convexity:各点与下一点的凸度(个数同坐标点表)，可为nil<br />   elevation:标高<br />   closed:是否闭合，1:闭合，0：不闭合"<br />   "返回值: 生成的多段线的图元名"<br />   (setq lst-dxf<br />         (list (quote (0 . "LWPOLYLINE"))<br />               (quote (100 . "AcDbEntity"))<br />               (quote (62 . 1))<br />               (quote (370 . 30))<br />               (quote (100 . "AcDbPolyline"))<br />               (cons 90 (length plist))<br />               (if (= closed 1)<br />                   (quote (70 . 1))<br />                 (quote (70 . 0)))<br />               (cons 43 bold)<br />               (quote (38 . 0.0))<br />               (quote (39 . 0.0))))<br />   (setq i 0)<br />   (foreach<br />    x plist<br />    (setq lst-dxf<br />          (append lst-dxf<br />                  (list (cons 10 x)<br />                        (cons 40 bold)<br />                        (cons 41 bold)<br />                        (cons 42 (if (null convexity)<br />                                     0 (nth i convexity)))<br />                        (cons 91 0))))<br />    (setq i (1+ i)))<br />   (entmake lst-dxf)<br />   (entlast))

安装 @lisp 自动加载上面的函数定义



在坐标 0,0 到 1,1 处 绘制一段弧形多段线。

1. (entity:make-lwpline-bold  '((0 0 0)(1 1 0)) '(0.5 0 ) nil 0 0)

(entity:make-lwpline-bold  '((0 0 0)(1 1 0)) '(0.5 0 ) nil 0 0)

czb203

vitalgg 发表于 2022-12-19 09:32
在坐标 0,0 到 1,1 处 绘制一段弧形多段线。

感谢大佬分享，学习下载～

vitalgg

1. (entity:make-lwpolyline '((0 0) (2 2)) '(0.3 0) '((0.5 1.0)(0 0)) 0 nil)

(entity:make-lwpolyline '((0 0) (2 2)) '(0.3 0) '((0.5 1.0)(0 0)) 0 nil)

重新写了一个函数，可以定义不同段的凸度和起止宽度

https://atlisp.cn/function/entity:make-lwpolyline

vitalgg

czb203 发表于 2022-12-19 09:36
感谢大佬分享，学习下载～

重新写了一个函数，可以定义不同段的凸度和起止宽度

https://atlisp.cn/function/entity:make-lwpolyline

见样式见上楼

轮回

Polyline pl = new Polyline();
pl.AddVertexAt(0, new Point2d(1, 0), 1, 0, 0);
pl.AddVertexAt(1, new Point2d(-1, 0), 1, 0, 0);

c#是这样的，

这个代码就会生成一个圆形 的多段线

QWQWQWQ

轮回 发表于 2022-12-20 09:02
Polyline pl = new Polyline();
pl.AddVertexAt(0, new Point2d(1, 0), 1, 0, 0);
pl.AddVertexAt(1, new ...

请问VBA格式怎么写