求助!!!!

yu-gn · 发表于 2002-8-26 16:02:00

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

龙龙仔 · 发表于 2002-8-26 16:41:00

;;;pline的端点坐标摘出来
(defun CTPT (/ 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 · 发表于 2002-8-26 17:11:00

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

龙龙仔 · 发表于 2002-8-28 08:00:00

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

求助!!!!

发表回复

精选推荐