[求助]请教！CAD2006中计算线条的方法

twynet

我是个新手中的新手

只是对电脑应用还比较在行

最近有点小工作，要用到CAD

要我计算工程图纸中的电线长度

我一个一个的点，一个一个的记，再一个一个的加

实在是太吃力了。

我想CAD应该有这样的功能吧，

把全部要累加的电线选出来后自动的计算出长度来

我全选后，在特性框中，看到几何图形里有个多种

边上是个小计算器，我想从中找方法，可是没找到

哪个热心的大哥，能帮忙告诉我怎么搞吗？？

谢谢了。。。。。。。。。。。。。。。。。。。。

linmue

list和dist命令可以显示线段的长度  但是没有自动累加的功能

twynet

谢谢,不过还是不甘心啊.

是不是还有其他的办法呢??

lzws03

 

我就常用这程序来统计所选线段长度总和！(命令是 LL  ,您可以改成您想用的字符)

(defun CL(/ sumlen ss n curve ObjectName len)
  (princ"\n统计<直线、圆弧、多义线、样条线、圆、椭圆>等图元的长度")
  (princ"\n For 中华钢结构论坛 \n 版本2004.03.03")
  (vl-load-com)
  (setq sumlen 0)
  (setq ss (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))
  (setq n 0)
  (repeat (sslength ss)
    (setq curve (vlax-ename->vla-object (ssname ss n)))
    (setq ObjectName (vlax-get-property curve 'ObjectName))
    (setq ObjectName (substr ObjectName 5))
    (setq len (vlax-curve-getdistatparam curve (vlax-curve-getendparam curve) ))
    (setq sumlen (+ sumlen len))
    (setq n (1+ n))

    (princ (strcat "\n第" (rtos n) "条是 " ObjectName ))
    (princ (strcat " 长度: " (rtos len 2 5)))
  )
  (princ (strcat "\n共" (rtos n) "条 " ))
  (princ (strcat "总长度: " (rtos sumlen 2 5)))
  (textscr)
  (princ)
)

twynet

大哥哥，我是新手

以前没有接触过CAD

能请问怎么把你所说的东西用到CAD中呢？？

需要在那里输入？能一步一步的告诉我吗？？

万分的感谢。

linmue

你下载上面那个程序后 保存  打开CAD选择"工具"-->autoLISP-->加载应用程序,会打开"加载应用程序"对话框,选择在此下载后保存的lsp文件,单击"加载"按钮,将方针加载到应用程序中,然后单击"关闭"按钮,关闭对话框.执行LL命令,按提示操作

twynet

谢谢老大的帮忙

现在我做起来快多了。。

hahahahahahahaha

shh_188

这个lsp，能改成线条长度的显示精度，跟随units里面的精度吗？

我看这个文件里面的显示精度都是5位的，有时候不太方便。

dimly

哇~~谢谢你,我找这个方法找很久了,试了几次终於成功了

towertjq

你把他们全部合并成一根线在list就可以了