[求助]请教！CAD2006中计算线条的方法
<P>我是个新手中的新手</P><P>只是对电脑应用还比较在行</P>
<P>最近有点小工作，要用到CAD</P>
<P>要我计算工程图纸中的电线长度</P>
<P>我一个一个的点，一个一个的记，再一个一个的加</P>
<P>实在是太吃力了。</P>
<P>我想CAD应该有这样的功能吧，</P>
<P>把全部要累加的电线选出来后自动的计算出长度来</P>
<P>我全选后，在特性框中，看到几何图形里有个多种</P>
<P>边上是个小计算器，我想从中找方法，可是没找到</P>
<P>哪个热心的大哥，能帮忙告诉我怎么搞吗？？</P>
<P>谢谢了。。。。。。。。。。。。。。。。。。。。</P> list和dist命令可以显示线段的长度但是没有自动累加的功能 <P>谢谢,不过还是不甘心啊.</P>
<P>是不是还有其他的办法呢??</P> <P></P>
<P> </P>
<P>我就常用这程序来统计所选线段长度总和！(命令是 LL ,您可以改成您想用的字符)</P>
<P>(defun C:LL(/ sumlen ss n curve ObjectName len) <BR> (princ"\n统计<直线、圆弧、多义线、样条线、圆、椭圆>等图元的长度") <BR> (princ"\n For 中华钢结构论坛 \n 版本2004.03.03") <BR> (vl-load-com) <BR> (setq sumlen 0) <BR> (setq ss (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC")))) <BR> (setq n 0) <BR> (repeat (sslength ss) <BR> (setq curve (vlax-ename->vla-object (ssname ss n))) <BR> (setq ObjectName (vlax-get-property curve 'ObjectName)) <BR> (setq ObjectName (substr ObjectName 5)) <BR> (setq len (vlax-curve-getdistatparam curve (vlax-curve-getendparam curve) )) <BR> (setq sumlen (+ sumlen len)) <BR> (setq n (1+ n)) </P>
<P> (princ (strcat "\n第" (rtos n) "条是 " ObjectName )) <BR> (princ (strcat " 长度: " (rtos len 2 5))) <BR> ) <BR> (princ (strcat "\n共" (rtos n) "条 " )) <BR> (princ (strcat "总长度: " (rtos sumlen 2 5))) <BR> (textscr) <BR> (princ) <BR>) <BR></P> <P>大哥哥，我是新手</P>
<P>以前没有接触过CAD</P>
<P>能请问怎么把你所说的东西用到CAD中呢？？</P>
<P>需要在那里输入？能一步一步的告诉我吗？？</P>
<P>万分的感谢。</P> <P>你下载上面那个程序后 保存 打开CAD选择"工具"-->autoLISP-->加载应用程序,会打开"加载应用程序"对话框,选择在此下载后保存的lsp文件,单击"加载"按钮,将方针加载到应用程序中,然后单击"关闭"按钮,关闭对话框.执行LL命令,按提示操作</P> <P>谢谢老大的帮忙</P>
<P>现在我做起来快多了。。</P>
<P>hahahahahahahaha</P> <P>这个lsp，能改成线条长度的显示精度，跟随units里面的精度吗？</P>
<P>我看这个文件里面的显示精度都是5位的，有时候不太方便。</P> 哇~~谢谢你,我找这个方法找很久了,试了几次终於成功了 你把他们全部合并成一根线在list就可以了
页:
[1]
2