[求助]：理正能否加个功能？

andyhua5240

理正能否增加个功能，可以增加和删减多段线的顶点。因为CAD的PEDIT命令太难用了，而且这个功能感觉在框面积线时非常的常用。
建议可以增加类似的功能？

而且理正的多文档切换按钮还有个问题就是，如果以只读打开图形的话，那个图形在标题栏是看不出是只读的，要切换一下到其它的图形后，再切换回来，就可以看到刚才打开的图形是只读的。但是CAD不会是这样。
操作：
1，任意打开一个图形
2，任意只读的打开另一个图形
这时你发现打开的2图形在软件的标题栏没有显示为只读的
3，点多文档切换按钮，切换到图形1
4，再切换回图形2，看看软件的标题栏是不是有显示为2图形为只读的。
在使用过程中，本来是只读r打开的，但是没有看到标题栏显示为只读，就只好切换来切换去的。因为我打开参考图是只读打开的，有时需要临时的改下，但是又不希望保存，所以我以只读打开图形的概率还是比较多的。
谢谢！

村长

严重支持理正自己做增加和删减多段线的顶点命令,同意楼主的观点,CAD的PEDIT太难用了,而这个功能又是个常用功能,很早以前就建议过,可惜Qun老人家一直没重视.

dhcad

最初由 村长 发布
[B]严重支持理正自己做增加和删减多段线的顶点命令,同意楼主的观点,CAD的PEDIT太难用了,而这个功能又是个常用功能,很早以前就建议过,可惜Qun老人家一直没重视. [/B]

这有一个，用起来不错，但愿大家喜欢，东西是从“晓东”那儿借来的。
;|

   命令：poly_add_vertex

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



|;

(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的一个顶点


(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)

)

KLDC

论坛有很好用的加减顶点功能，理正不加这个功能，自己找一个就行。

andyhua5240

坛子中是有，找起来也不难，但是都是些小的lisp，加载起来不是很方便。因为小的lisp太多了，而且不好管理。
理正本身也就是工具集软件，其实说白了就是小工具的集合，应该有自己的加减顶点的程序的。这样的话用理正的话就可以用不是更好么，省得一换机子后，就要带一大堆的程序？