[原创]封闭多段线顶点排序

yshf

;;;测试程序
;;;将下载的文件“dbxddpx.fas”
;;;存到“L”盘中，如存入其它地方，
;;;请更改程序中第二行中的相应路径名。
(defun c:cc()
   (if (null dbxddpx)(load "L:dbxddpx.fas"));请注意文件“dbxddpx.fas”存盘路径名
   (setq xtblm '("cmdecho" "osmode")
  xtblz (mapcar 'getvar xtblm)
   )
   (mapcar 'setvar xtblm '(0 0))
   (command "_undo" "be")
   (while (setq en
                (sel "\n请选择封闭多段线(LWPOLYLINE/POLYLINE)(按Esc键退出程序)"
                     "LWPOLYLINE,POLYLINE"
                )
          )
      (initget 1 "1 2 3 4")
      (setq pjd (getkword "\n西北角(1)/西南角(2)/东南角/(3)东北角(4):"))
      (initget 1 "1 2")
      (setq snj (getkword "\n顺时针(1)/逆时针(2):"))
      ;返回按要求排好序的顶点列表，并赋值给fhb
      (setq fhb (dbxddpx (car en) (read pjd) (read snj))
     i 1
      )
      (foreach pt0 fhb
        (command "_circle" pt0 1 "_chprop" (entlast) "" "c" 1 ""
        "_text" (mapcar '+ pt0 '(0.7 0.7)) 2.5 0 (itoa i)
        "_chprop" (entlast) "" "c" 3 ""
        )
        (setq i (1+ i))
     )
   )
   (command "_undo" "e")
   (mapcar 'setvar xtblm xtblz)(princ)       
)

wb0815

楼主只要判断一下顺逆时针就好了然后就标注这样搞太麻烦了吧

xiaxiang

回复 yshf 的帖子

顶出这个贴来，不知道楼主还能看到吗？
1.就想问问能不能框选多个多段线进行顶点排序，这样在某些场合可能有用。
2.dbxddpx.fas这个排序的核心代码能共享吗？
路过的高手有没有其它招呢?

vlisp2012

我也想要这样功能的程序，批量处理一些多段线。哪位大侠能提供一下，多谢了！