多段线增加顶点的函数

Gdlprfcu · 发表于 2013-5-5 17:57:41

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

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

×

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

调用格式：(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 · 发表于 2013-5-6 21:16:55

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

sicky111 · 发表于 2013-5-8 09:14:35

谢谢楼主分享。

GTJ116600 · 发表于 2013-5-30 05:57:17

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

杜流浪人 · 发表于 2014-5-25 11:42:14

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

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

多段线增加顶点的函数

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

评分

本帖被以下淘专辑推荐:

相关帖子