一直以来用别人做的轴侧图转换工具,总感到有些不满意的地方,于是下决心自己做了一个.主要有以下特点:1.支持UCS,一般的转换工具只能支持WCS.2.可完美转换的实体:(LINE,LWPOLYLINE,SOLID,ARC,CIRCLE,INSERT,TEXT,ATTDEF). 对于INSERT(块)的处理是炸开后再转换,支持多重块嵌套. ARC完美转换成椭圆弧,CIRCLE完美转换成椭圆.
一直以来用别人做的轴侧图转换工具,总感到有些不满意的地方,于是下决心自己做了一个.
主要有以下特点:
1.支持UCS,一般的转换工具只能支持WCS.
2.可完美转换的实体:(LINE,LWPOLYLINE,SOLID,ARC,CIRCLE,INSERT,TEXT,ATTDEF).
对于INSERT(块)的处理是炸开后再转换,支持多重块嵌套.
ARC完美转换成椭圆弧,CIRCLE完美转换成椭圆.
3.不能完美转换的实体:(SPLINE,ELLIPSE),用多义线拟合后转换.
4.简单转化处理的实体:(POINT),仅计算插入点的平移.
执行命令是YYZC,欢迎试用.本人在xp+2005上测试通过.
2007.10.27根据网友要求加入文字旋转，参数设置等修改。
22楼
楼主能不能编一个矩形的小程序,用三点画矩形,在地形图中经常用到,我以前有一个,但做系统时丢了,先谢谢啊.wangg1964@163.com qq360855071
回复
23楼
非常非常感谢楼主！！！
回复
24楼
能不能做一个任意角度的轴侧图转换呢
回复
25楼
嘻嘻，有时间参考参考，整合进我的管道系统里面去
回复
26楼
能不能做一个任意角度的轴侧图转换呢
回复
27楼
兄弟，能不能做一个转成30度得 麻烦了，我们画30度得 看着这些东西不能用 郁闷死了。
回复
28楼
生成14楼样子好一些.
回复
29楼
为什么需要画30度的呢?一般给排水专业都是画45度的
回复
30楼
两点就可以确定一个矩形,3点是希望绘制时旋转的矩形吗?
回复
31楼
以下代码,对直线有效,仅供参考
(defun c:YYZC1 (/ ssg py n lst chpt)
(defun chpt (pt y)
(cons (car pt)
(polar (list (cadr pt) y) (* 0.25 PI) (- (caddr pt) y))
)
)
(setq ssg (ssget (list (cons 0 "LINE")))
py (cadr (getpoint "\nBase Point:"))
n -1
)
(while (< (setq n (1+ n)) (sslength ssg))
(setq lst (entget (ssname ssg n)))
(setq lst (subst (chpt (assoc 10 lst) py) (assoc 10 lst) lst))
(setq lst (subst (chpt (assoc 11 lst) py) (assoc 11 lst) lst))
(entmod lst)
)
(princ)
)
(princ "\n\tType YYZC1 to start!!")
(princ)
回复
