能不能一次性计算出若干条互不相连的线条的长度之和!  内容加载中,请稍后...
CAD家园 
CAD家园
生活因感动而精彩,理想在创造中放飞!
能不能一次性计算出若干条互不相连的线条的长度之和!
作者:cad 提交日期:2009-7-6| 分类: | 访问量:




能不能一次性计算出若干条互不相连的线条的长度之和!

图片:
在工程制图中!经常会遇到要计算若干条互不相连的线条长度之和,这是件很头痛的事情!请问各位大侠有没有方法用LSP解决!一性点选所有线条,然后计算出它们的长度之和! *

哎!等了一天!都没有高手出现,兄弟只好找来别人的程序贴上来!

(defun c:LII(/ curve tlen ss n sumlen)
(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 tlen (vlax-curve-getdistatparam curve
(vlax-curve-getendparam curve)
)
)
(setq sumlen (+ sumlen tlen))
(setq n (1+ n))
)
(alert (strcat "\n总长度: " (rtos sumlen 2 3) (princ "m")))
(princ)
) *

真的谢谢你!
正所谓踏破铁鞋无觅处! 嘿嘿!
很好用阿! *

图片:
lend.rar (1 K) 下载次数:11 *

图片:
我现重编了一个程序,可在任意版的cad都可使用的qcd.fas你将程序考到你的cad下解压为qcd.fas在命令下加载(load"qcd.fas")回车就可使用,在命令下输入qcd回车,用鼠标选择要求和的图素回车就求出和,和的变量名为lena你可用!lena回车就给你显示.它求的图素有线 弧 园 椭园 多义线 样条曲线 云线等.
程序:
(defun c:qcd (/  ss i ll en2 len )
  (setq ss (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))) i 0 lena 0 )
  (if (/= ss nil)
    (progn
      (setq ll (sslength ss))  ;求出要长度的个数
      (repeat ll
    (setq en2 (ssname ss i) i (+ i 1))
        (command "list" en2 "")  ;列表en2
        (setq len (getvar "perimeter")) ;求出en2的长度
    (setq lena (+ lena len) )  ;求出和
    )  ;-ll
  ))  ;-ss
  (if (/= ss nil)(alert (strcat "\n总长度: " (rtos lena 2 3) (princ "mm"))))  ;显示总长度
  )


[ 此贴被老顾在2008-01-13 07:14重新编辑 ] *

在cad2007中按老顾的,怎么没法使用啊。解压后是lend,没有qcd.fas *

本文摘自:http://www.jxcad.com.cn/read.php?tid=497922&fpage=2



阅读全文 | 回复(0) | 引用通告 | 编辑


作者:游客
输入您的评论:(不支持HTML标签)

段首缩进两个汉字:


  
个人档案
文章分类
企业管理与质量体系(4019)

建筑标准区(2817)

已应助标准区(17707)

标准资料攻关区(30)

资料教程区(168)

精品教程区(95)

UG习题区(95)

Solidworks插件学习区(96)

Solidworks习题及画法区(95)

模型及标准件库区(24)

Pro/E教程区(94)

加分习题区(95)

Pro/E二次开发(96)

习题区(62)

练习提高区(94)

资料教程区(96)

作品展示及模型专区(96)

焦点专区(96)

AutoCAD 二次开发专区(96)

画法几何及习题专区(96)

图纸专区(95)

资料区(95)

资料区(96)

起重机交流区(96)

冶金设备资料图纸共享专区(95)

钢铁新闻(90)

资料区(53)

资料区(96)

资料区(96)

习题区(35)

资料区(97)

资料区(96)

液压气动仿真(91)

轴承专版(92)

资料区(97)

涉世之初(95)

已答复区(95)

技术求助, 应助 技术心得, 探讨(91)

Technical English(or other languages) Forum(103)

基础理论(95)

手册区(93)

机械零部件、机构、装置、设备设计、制造及应用专区(93)

工程材料(95)

金属热处理(96)

机械冷加工(95)

资料区(95)

液压气动、液力传动与控制、仿真设计等资料(95)

五金模具设计(96)

金属板料成形专版(95)

塑胶模具设计(95)

特种加工(96)

橡胶与工程塑料(96)

化工机械、管道与压力容器专版(4209)

汽车技术专版(12590)

齿轮类零件及减(增)速机设计、制造及应用专区(5305)

电子(电气)、电力系统专业基础知识、应用技术、技术经验、资料交流(14173)

钢铁、冶金技术(12883)

重型机械装备(2798)

数控技术(2688)

清洁能源(93)

AutoDesk技术、教程、资料交流区(17459)

Inventor设计应用专区(4595)

Catia技术、教程、资料交流区(2329)

CAXA技术、教程、资料交流专区(3870)

KM开目技术、教程、资料交流专区(403)

Pro/E技术、教程、资料交流区(11947)

SolidWorks 技术、教程、资料交流区(9523)

TH天河技术、教程、资料交流专区(1635)

UGS技术、教程、资料交流区(7596)

建筑设计CAD专区(1629)

逆向工程技术、教程、资料交流专区(902)

其它CAX软件交流区(533)

ANSYS系列软件技术资料交流区(6590)

ABAQUS软件技术资料交流区(650)

CFD软件技术资料交流区(851)

MSC 系列软件技术资料交流区(2509)

疲劳, 断裂力学, 可靠性及钢结构软件技术资料交流专区(831)

科学, 工程计算专版(533)

其它 CAE软件技术资料交流区(1334)

Cimatron技术、教程、资料交流区(726)

MasterCAM技术、教程、资料交流区(1932)

PowerMill技术、教程、资料交流区(402)

其它 CAM软件技术资料交流区(436)

标准资料求助板块(1215)

国内标准共享版块(19074)

国外标准共享版块(10434)

标准手册区(1766)

标准库(112)

标准件、非标准件图形图库专区(951)

Copyright © 2008.01.06 design| CAD家园   生活因感动而精彩,理想在创造中放飞