DIST命令量出的结果输出到TXT，或者EXCEL都可以。
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
(defun c:tt (/ f i a b dist)
(setq f (open "c://111.txt" "a"))
(setq i 0)
(while (and (setq a (getpoint "\n拾取第一个点->"))
(setq b (getpoint a "\n拾取第二个点->"))
)
(setq dist (distance (list (car a) (cadr a)) b))
(princ (strcat (itoa (setq i (1+ i))) "," (rtos dist 2 3) "\n") f)
)
(close f)
(princ)
)
页:
[1]