DIST命令量出的结果输出到TXT，或者EXCEL都可以。

54525596

DIST命令量出的结果输出到TXT，或者EXCEL都可以，量出各段距离用逗号分开。。。。

革天明

一下午都没有人回答，我来答一下吧
(defun c:test8()
   (setq i 0)
   (while t
     (command "DIMLINEAR" pause pause pause)
     (setq en(entlast))
     (setq ff(open "c:/point.txt" "A"))
     (princ (strcat "\n" (itoa i) "," (rtos (cdr(assoc 42 (entget en))))) ff)
     (close ff)
     (setq i(1+ i))
   )
)

革天明

想转成EXCEL，使用EXCEL中的导入文本数据来实现，以逗号做为分割符

革天明

0,9.14461
1,7.31569
2,18.21303
3,11.04974
4,10.28768
5,11.888
6,8.61117
7,2.20764
8,10.51631
9,14.40277
10,13.86933
11,10.97353
12,11.81179

004

1. (defun c:tt (/ f i a b dist)
   
2.   (setq f (open "c://111.txt" "a"))
   
3.   (setq i 0)
   
4.   (while (and (setq a (getpoint "\n拾取第一个点->"))
   
5.               (setq b (getpoint a "\n拾取第二个点->"))
   
6.          )
   
7.     (setq dist (distance (list (car a) (cadr a)) b))
   
8.     (princ (strcat (itoa (setq i (1+ i))) "," (rtos dist 2 3) "\n") f)
   
9.   )
   
10.   (close f)
    
11.   (princ)
    
12. )
    

(defun c:tt (/ f i a b dist)<br />   (setq f (open "c://111.txt" "a"))<br />   (setq i 0)<br />   (while (and (setq a (getpoint "\n拾取第一个点->"))<br />               (setq b (getpoint a "\n拾取第二个点->"))<br />          )<br />     (setq dist (distance (list (car a) (cadr a)) b))<br />     (princ (strcat (itoa (setq i (1+ i))) "," (rtos dist 2 3) "\n") f)<br />   )<br />   (close f)<br />   (princ)<br /> )<br />