求助!!!!

yu-gn

在一个图层上有很多PLINE(这些线不平行,是在一条河流上截取的断面),怎样通过编程可以将这些线的端点坐标摘出来,输出到TXT文件中??????

龙龙仔

;;;pline的端点坐标摘出来
(defun C:PTPT (/ N EN1 AA)
  (vl-load-com)
  (setq EN1 (ssget '((0 . "*polyline"))))
  (setq AA (open "C:\A.TXT" "w"))
  (setq N 0)
  (repeat (sslength EN1)
    ;;起点
    (write-line
      (vl-princ-to-string
        (vlax-curve-getstartpoint
          (vlax-ename->vla-object (ssname EN1 N))
        )
      )
      AA
    )
    ;;终点
    (write-line
      (vl-princ-to-string
        (vlax-curve-getendpoint
          (vlax-ename->vla-object (ssname EN1 N))
        )
      )
      AA
    )
    (setq N (1+ N))
  )
  (close AA)
  (princ)
)

yu-gn

怎样能实现自动从河的上游断面摘到下游（因为断面太多），TXT文件的输出格式为：
断面号（001，002。。。。。），LX，LY，RX，RY，可以实现吗？？？？

龙龙仔

檔A.TXT是空的,应是你选的物件没有PLINE。
这种输出格式:断面号(001，002.....)，LX，LY，RX，RY。
我看不出它的好处，也看不懂它的意义何在???

yu-gn