文章摘要：
中图分类号：TU998.1 文献标识码：B 文章编号：1009-2455（2000）06-0056-03
目前，几乎所有的设计院都配备了给排水设计软件包，但是设计人员在使用软件过程中，常常会遇到诸多不便之处。如建筑外框不认，初始化数据输入不直观，数据输入不当时出错，修改不便等等。设计人员或是用鼠标代笔，或是用AutoCAD“硬画”。这种方式出图效率很低，而且图面......
)；if语名结束，本语句对文字对齐方式的判断，并修改高度和插入点信息
）；if
语名结束，本语句对是否为文字的判断，并修改高度和插入点信息
（setq name(cdr(assoc
01)))
(if(=(cdr(assoc661))1) ；if 语句开始，是否为带属性的块
（progn(setq11(entget(entnext(cdr(assoc-11))))
(setq
p1(cdr(assoc1111)))
(setqx1(car p1)y1(cadr p1)
(setq
p3(list(+x1(*(cos ang)dy1))(+y1z(*(-(sin ang)1)dy1))))
(setq
11(subst(cons11p3)(assoc11 11)11))
(entmod11)
))
；if语句结束，修改中属性的插入点信息
（setq ang(/(cdr(assoc 501))2))
(setq1(subst(cons 50 ang)(assoc 501)1))
(entmod1)；
通过修改块的插入角度信息进行旋转
（setq n(+1n)
(if(/=(nth
nk1)″a″)(setq1(entget(nth n k 1)))(setq 1 nil))
)
；while语句结束
（setq n 0)
(while(＜n (sslengthss)); while
语句开始，对名为“ZXR-2035”的块
；进行高度平移处理
（setq stl(entget(ssname
ss n )))
(setq pt1(cdr(assoc 10 stl)))
(if(/=″ZXR-2035″(cdr(assoc 2(entget(ssname ss n)))))； if 语句开始
(progn
(setq pt1(list(carpt1)(cadrpot1)0))
(setq
stl(subst(cons 10pt1)(assoc 10 st1(st1))
(entmod st1)))；if
语句结束
（setqn(+1n))
) ；while语句结束
（redraw)
)
；defun 结束
5 实际运用
本程序通过笔者所在单位这几年来工程设计人员的运用，得到了逐步完善与推广，实践证明，该程序易学好用。故提炼出来与同仁商榷。
作者简介：
张显如，男（1965-），35，工程师，0551-4654529
毋建军（1964-），男，36，工程师
杨 莼（1964-），女，34，工程师
上一页 [1] [2] [3]
 相关文章：
收藏文章：
|
用户登录 
新用户注册
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）