将图中所选线段标x坐标和长度保存

123d

将图中所选线段标x坐标和长度保存

123d

(defun c:tess
    ( / dml1 dml2 dml3 ss c dm dml ff fntx fftx tx i n pp key)
    (setq ss (ssget '((0 . "line")))
              i   0
    )
        (setq tx "")
    (while (< i (sslength ss))
        (setq dml (entget (ssname ss i))
       
        dml1(cdr (assoc 10 dml))
        dml2(cdr (assoc 11 dml))
        dml3(car dml1)
        c (distance dml1 dml2))
    (setq ff (open "C://Users/74139/Desktop/Line.csv" "w"))
        (progn
          (setq        tx
                 (strcat (rtos dml3) "," (rtos c) "\n" tx)
          )
          (write-line tx ff)
        )
    (write-line "" ff)
(princ "\n选择要获取端点的直线:")
(princ "线段端点x坐标为：")
(princ dml3)

(princ "\n")
(princ "线段的长度为：")
(princ c)
(princ "\n")
(princ)
(setq i (1+ i))
  )
(close ff)
)

yoyoho

谢谢! 分享程序!!!!