线段长度输出

zxp

请教各位：在CAD中作出多条线段，如何才能将线段的长度导出来，比如说导入到EXCEl或TXT中？

lengyunfeng

如下:

1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
2. ;written by lengyunfeng in 20130617         ;
   
3. ;problem describe:
   
4. ;在CAD中作出多条线段，如何才能将线段的长度导出来，比如说导入到EXCEl或TXT中？
   
5. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
6. (defun c:getlength( / )
   
7.   (setvar "cmdecho" 0)
   
8.   (setvar "osmode" 0)
   
9.   (setq fname (getfiled "线段长度写入：" "d:/" "txt" 9))
   
10.   (setq fid (open fname "w"))
    
11.   (setq obj (car (entsel "\n请选择要查询的第一条线段:")))
    
12.   (setq i 1)
    
13.   (while obj
    
14.     (command "lengthen" obj "")
    
15.     (setq le (getvar "perimeter"))
    
16.     (setq str (strcat "第" (rtos i 2 1) "条线长度为：" (rtos le 2 4)))
    
17.     (write-line str fid)
    
18.     (setq i (1+ i))
    
19.     (setq obj (car (entsel "\n请选择要查询的下一条线段<停止>")))
    
20.   )
    
21.   (close fid)
    
22.   (prin1)
    
23. )
    
24. (prompt ">>>>>>>>>>>>>>>>>>>获取线段长度，写入文件:命令getlength<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<")
    
25. (prin1)

复制代码

lengyunfeng

假定有下图CAD中的线段，

运行后，D盘根目录下有一个文件（文件名由你来定），里面的内容如下

1. 第1条线长度为：2938.3631
   
2. 第2条线长度为：909.3411
   
3. 第3条线长度为：2849.7728
   
4. 第4条线长度为：4125.6404
   
5. 第5条线长度为：862.9625
   

复制代码

zxp

lengyunfeng 发表于 2013-6-17 23:36
假定有下图CAD中的线段，

运行后，D盘根目录下有一个文件（文件名由你来定），里面的内容如下 ...

非常感谢。

zj5368

lengyunfeng 发表于 2013-6-17 23:32
如下:

弱弱的问一下，这是fortran吗？

lengyunfeng

zj5368 发表于 2013-8-2 16:24
弱弱的问一下，这是fortran吗？

是autolisp，autocad的一个开发平台，和VBA一样的作用。