[求助]：多线段怎么增加节点

chmj

多线段画完之后想增加几个节点怎么办,请各位楼主指点一下

eachy

Pedit 命令或者搜索本论坛的增删顶点程序

ewenhui

用打断命令

mengxiangjushi

采用 PEDIT ,里面有增加节点的参数

chmj

我想在一条多线段上增加节点编辑线段,打断也可以,但是太麻烦了.

shuaier

用PE命令----选择参数E-----再选择参数I

chmj

有点不懂,还请楼主详情说明,多谢!

有点小烦

用PE命令----选择参数E-----再选择参数I  
你操作一下就知道了，光看是不明白的！

dhcad

这有个晓东帮助中提供的。
   命令：poly_add_vertex

   功能：给选择的POLYLINE段加入一个顶点



   说明：程序配合XDRX_API使用，朋友们可以把这个LISP拷贝到“晓东工具箱”的安装的

          LISP目录，自己加入到菜单里面就可以非常方便的使用了。

          关于程序的建议请到“晓东CAD空间-编程申请”论坛

          http://www.xdcad.com/forum留言



|;

(defun $get_vertex_index (e pt / v_num i tf)

    (xdrx_setenttodb e)
将实体的(entget)数据存入XDRX内部数据库的ARX变量，若该变量指针有值，则覆盖。并将(ssname) 的序号 i 置 0

    (if (= "POLYLINE" (xdrx_getentdxf 0))


提取XDRX内部数据库保存的(entget)实体数据的ARX变量中的指定的DXF组码的值     (xdrx_polyline_ConvertFrom e)
从2DPOLYLINE(R13老多义线)转换得到LWPOLYLINE   )

    (setq v_num (xdrx_polyline_numVerts e)
获得LWPOLYLINE的顶点数
        i -1

  )
  (setq tf t)
  (while (and
           tf
           (< i v_num)
         )
    (setq i (1+ i))

    (if (xdrx_polyline_onSegAt e i (trans pt 1 0))
   
    (setq tf nil)

    )

  )
  i
)

(defun c:poly_add_vertex (/ e pt pj)

  (if (and

        (setq e (xdrx_entsel "\n请点取POLY上加入顶点的线段<退出>" '

                             ((0 . "*polyline"))

                )

        )

        (setq pt (getpoint "\n请点取要加入的顶点位置<退出>:"))



      )

    (progn

      (setq pj (trans (cadr e) 1 0)

            pj (osnap pj "nea")

      )

      (setq i ($get_vertex_index (car e) pj))

      (xdrx_polyline_addVertexAt (car e) (1+ i) pt)

    )

  )

  (princ)

)

;|

   命令：poly_remove_vertex

   功能：删除选择的POLYLINE的一个顶点

   说明：程序配合XDRX_API build 20428＋版本使用，朋友们可以把这个LISP拷贝到“晓东工具箱”的安装的

          LISP目录，自己加入到菜单里面就可以非常方便的使用了。

          关于程序的建议请到“晓东CAD空间-编程申请”论坛

          http://www.xdcad.com/forum留言  

|;

(defun c:poly_remove_vertex ()

  (xdrx_begin '(("pickbox" 5 "aperture" 5))

  (if (setq e (xdrx_entsel "\n请点取要去掉的多义线上的顶点<退出>" '

                           ((0 . "*polyline"))

              )

      )

    (progn

      (setq pj (trans (cadr e) 1 0)

            pj (osnap pj "int,end")

      )

      (setq i ($get_vertex_index (car e) pj))

      (xdrx_polyline_removeVertexAt
   
                (car e) (1+ i))

    )

  )

  (xdrx_end)

  (princ)

)

晋睿

还是大断好了！！！

雨中漫步0423

PE---E---I
就可以了啊

chmj

小弟是一个地地道道的菜鸟,对于程序一点也有懂,不过这个的东西我的弄懂