[求助]：高手们帮帮我吧

laoxie_1983

我做地籍图地时候需要从图形的西北角编界址号，可是用_boundary构造多义线的时候它是逆时针的．请那位高手帮帮我！

Underway

info:
http://www.menziengineering.ch/Downloads/Download.htm#44

VxRevPline - Reverse vertex order of Polylines


;
; -- Function VxRevPline
; Reverse vertex order of Polylines.
; Copyright:
;   ?004 MENZI ENGINEERING GmbH, Switzerland
; Arguments [Type]:
;   Obj = Pline object [VLA-OBJECT]
; Return [Type]:
;   > Pline object reversed [VLA-OBJECT]
; Notes:
;   - Credits to Angeliki Anastasopoulou
;
(defun VxRevPline (Obj / BlgLst ObjName PntLst SegCnt TmpLst Ubound)
(setq ObjName (strcase (vlax-get Obj 'ObjectName))
       TmpLst (vlax-get Obj 'Coordinates)
)
(if (eq ObjNme "AcDbPolyline")
  (repeat (/ (length TmpLst) 2)
   (setq PntLst (cons (list (car TmpLst) (cadr TmpLst)) PntLst)
         TmpLst (cddr TmpLst)
   )
  )
  (repeat (/ (length TmpLst) 3)
   (setq PntLst (cons (list (car TmpLst) (cadr TmpLst) (caddr TmpLst)) PntLst)
         TmpLst (cdddr TmpLst)
   )
  )
)
(vlax-put Obj 'Coordinates (apply 'append PntLst))
(if (not (eq ObjNme "AcDb3dPolyline"))
  (progn
   (setq Ubound (1- (length PntLst))
         BlgLst (list (* (vla-GetBulge Obj Ubound) -1))
         SegCnt 0
   )
   (repeat Ubound
    (setq BlgLst (cons (* (vla-GetBulge Obj SegCnt) -1) BlgLst)
          SegCnt (1+ SegCnt)
    )
   )
   (setq SegCnt 0)
   (foreach memb BlgLst
    (vla-SetBulge Obj SegCnt memb)
    (setq SegCnt (1+ SegCnt))
   )
  )
)
(vla-Update Obj)
Obj
)

laoxie_1983

谢谢你！我是lisp的初学者还不怎么会．这个程序好象不能运行的．

Underway

相关的函式都得下载,且加载