基于ACAD平台的给排水制图程序


\| 网站首页 \| 资讯 \| 供求 \| 建筑 \| 景观 \| 结构 \| 给排 \| 暖通 \| 电气 \| 交通 \| 水利 \| 图库 \| 读书 \| 视频 \| 规范 \| 下载 \| 地图 \| 考试 \| 搜索 \| 网址 \| 工具 \| 论坛 \|
		投稿获分积分指南导航搜索

您现在的位置：中国建筑文摘 >> 给排 >> 软件 >> 正文

用户登录

新用户注册

发表文章

基于ACAD平台的给排水制图程序

★★★★

【字体：小大】

基于ACAD平台的给排水制图程序

作者：张显如1，… 文章来源：中国供水网点击数：更新时间：2006-12-29

文章摘要： 　　中图分类号：TU998.1　　文献标识码：B　　文章编号：1009-2455（2000）06-0056-03 　　目前，几乎所有的设计院都配备了给排水设计软件包，但是设计人员在使用软件过程中，常常会遇到诸多不便之处。如建筑外框不认，初始化数据输入不直观，数据输入不当时出错，修改不便等等。设计人员或是用鼠标代笔，或是用AutoCAD“硬画”。这种方式出图效率很低，而且图面......

；Y用户选择的旋转基准线
　　（setq e(ssnamess 0)n0)
　　（setq k1(list″a″)k2(list″b″)k3(list″c″))
　　；初始化k1k2k3放置实
　　；体名的列表，并设“a”“b”“c”为结束标记
　　（while e
　　；while 语句开始，对所选项实体进行旋分类处理
　　（setq st(cdr(assoc 0(entget e))))
　　 (if (=st″LWPOL YLINE″)(setq k2 (cons e k2))
　　；if 语句开始
　　　　　　（if (or(=st″CILCLE″)(=ST″insert\")(=st\"TEXT)；if 语句开始
（setq k1(cons e k1))
　 (entdele)
　　　　 ); if 语句结束
　　）　　；if 语句结束
（setq n( =1n))
(setqe (ssname ss n ))
　　　) ；while 语句结果
　　（setq n0)
　　　　 (if(/=(ntnk2)″b″)(setq 1(entget(nth n k2))(setq 1 nil))
　　(while 1; while 语句开始
　　；对所选项的PLINE线实体进行旋转处理，角度45度
　　　　　（if(/=(cdr(assoc 0 (entget(nth nk2))))\"ABC\")
　　；if语句开始对复合弧线不处理
　　（progn(setq z(cdr(assoc381)))
　　　　 p1(assoc 10 1)la (cdr(assoc 8 1))
　　　　 m(-(length 1)(length(member p11)))
　　　　 p2(cdr(nth(+m4)1))p1(cdrp1)
　　　　；p1 起点坐标，p2终点坐标
　　　　（setqx1(carp1)x2(car p2)y1(cadrp1)
　　　　 y2(cadr p2)dy1(-y1y)dy2(-y2y))
　　　　 (setq p3 (list(+x1(*(cos ang )dy1))(+y1z(*(-(sin ang)1)dy1)))
　　　　 p4(list(+x2(*(cos ang)dy2))(=y2z(*(-(sin ang)1)dy2))))
　　 (setq 1(subst(cons 380.0)(assoc 381)1)
　　；修改高度信息
　　　　　　 1（subst(cons 10p3)(nth m 1)1)
　　；修改起点坐标信息
　　　　　　 1（subst(cons 10p4)(mth m4)1)1))
　　；修改终点坐标信息
　　　　（entmod 1)
　　））；if语句结束
　　（setqn( =1n))
　　 (if(/=(nthnk2)″b″)(setq1 (entget(nth n k2)))
　　(setq 1 nil))
　　)；while语句结束
　　　　（setq n0)
　　　　 (if(/=(nt n k1)″a″)(setq 1(entget(nthn k1)))
　　(setq 1 nil))
　　　　 while 1 ；while语句开始，对所选的
　　　　　　　　　　　　；TEXT、BLOCK、ATTRIBUTE等实
　　　　　　　　　　　　；体进行旋转及平移处理，角度
　　　　　　　　　　　　；45度
　　 if(=nil(assoc 111))(setq p1(cdr(assoc 101 )))
　　；if 语句开始
　　（if(=0.0(nth 1(assoc 1 1 1)))(setq p1(cdr
　　　(assoc 101)))；if 语句开始
　　（setq p1(cdr(assoc111)))
　　 )；if 语句结束，本语句对文字对齐方式的判断，并提取高度和插入点信息
　　）；if 语句结束，本语句对是否为文字的判断，并提取高度和插入点信息
　　　　（setq x1(carp1)y1(cadrp1)z(nth 2p1))
　　　　 (setq dy 1(-y1y)
　　　　 (setq p3(list(=x1(*( cos ang)dy1))(=y1z(*(-(sin ang)1))))
　　　　 (if (=nil(assoc 111))；if 语句开始
　　　　（progn(setq 1(subst(cons 10 p3)(assoc 101)1))
　　　　 (entmod 1))
(if(=0.0(nth1(assoc 111)))；if 语句开始
（progn(setq 1(subst(cons 10p3)(assoc 101)1))
(entmod 1)
　　　　　　 )；end of PROGN
(progn(setq1(subst(cons11p3)(assoc111)1))
(entmod 1)
　　　　　　 )；end of PROGN
　　

上一页 [1] [2] [3] 下一页

收藏文章：

文章录入：工程师责任编辑：工程师

上一篇文章：天正市政道路及管线CAD软件(T-SZ v6.0)简介…

下一篇文章： AutoCAD实用技巧

【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

最新热点

最新推荐

最新视频

广告合作

\| 设为首页 \| 加入收藏 \| 联系站长 \| 友情链接 \| 版权申明 \|
	特别声明：本站所有专业资料仅供技术人员、高校师生学习交流之用，目的旨在促进与提高中国建筑工程技术水平，本站不凭借所收集资料获取任何商业利益。如果本站所转载的文章存在版权问题请联系管理人员，我们尽快予以更正。