多段线增加顶点的函数

Gdlprfcu

功    能：在指定索引位置处增加一个顶点

调用格式：(Ent:Polyline-AddVertexAt  <LWPOLYLINE实体名> <index索引值> <点> [bulge值] [起始宽度][结束宽度])

返 回 值：成功T, 否 NIL

说    明：
1、参数 [bulge值] [起始宽度][结束宽度]都为可选项，默认值都为0 ，后面的可选项若要设置必须前面的可选项也设置，但该可选项后面的若要默认值，可以省略。
          [bulge值]--实数，若加弧段给BULGE值。0退化为直线
          [起始宽度]，[结束宽度]--实数值或者整数值。
2、程序要求对参数值判断类型，只对合法的参数类型执行。
[pcode=lisp,true](defun Ent:Polyline-AddVertexAt(LwpolylineObj index point bulge staW endW / i objname)
        (vl-load-com)
        (if (or(=(type LwpolylineObj)'Ename)(=(type LwpolylineObj)'vla-object))
                (progn
                        (if(=(type LwpolylineObj)'Ename)
                                (setq LwpolylineObj(vlax-ename->vla-object LwpolylineObj))
                                )
                        (setq i(/(length(vlax-get  LwpolylineObj 'Coordinates))2))
                        (setq objname(vla-get-objectname LwpolylineObj))
                        (if(not bulge)(setq bulge 0.0))
                        (if(not staW)(setq staW 0.0))
                        (if(not endW)(setq endW 0.0))
                        (if(and(= objname "AcDbPolyline")
                                        (= (type index)'INT)
                                        (= (type point)'list)
                                        (=(type(car point))'REAL)
                                        (=(type(cadr point))'REAL)
                                        (or(=(type bulge)'REAL)(=(type bulge)'INT))
                                        (or(=(type staW)'REAL)(=(type staW)'INT))
                                        (or(=(type endW)'REAL)(=(type endW)'INT))
                                        (>= index 0)(<= index i))
                                (progn
                                        (vla-AddVertex LwpolylineObj index (vlax-safearray-fill (vlax-make-safearray vlax-vbDouble '(0 . 1)) (list (car point)(cadr point))))
                                        (vla-SetBulge LwpolylineObj index bulge)
                                        (vla-SetWidth LwpolylineObj index staW endW)
                                        t
                                        )
                                )
                        )
                )
        )[/pcode]

ScmTools

支持!希望后续看到LZ的更多精彩贴

sicky111

谢谢楼主分享。

GTJ116600

多段线增加顶点，这个竟然也可以搞称函数。试试。

杜流浪人

和你这个函数相反的函数 有没有啊   就是删点的