下载首页 | 资讯中心 | 文章分类 | 最近更新 | 排 行 榜 |
文章搜索: 分类 关键字
您的位置:首页软件教程AutoCADAutoCAD资料教程 → AUTOCAD中自动生成45°视图
AUTOCAD中自动生成45°视图
日期:2007-12-3 20:30:17 人气:203     [ ]
上一页 [1] [2] 下一页
 画管路图时,常画俯视图和相应的45°角视图。其实45°角视图中包含的信息只比俯视图中多了每根管路的水平高度。下面这个用LISP编写的程序可以自动将俯视图转化为同一水平高度的45°角视图,使用者只需在转化后的图上将每组管路在竖直方向上移动相应的高度,一幅45°角视图就轻松完成了。

  由于每根管路用一直线表示,所以只需改变直线的起点和终点坐标为相应的45°角视图中的坐标。程序中变量p0记录45°角视图的坐标原点,由用户输入。p1记录直线的起点坐标,p2记录直线的终点坐标。

(defun c:V45( / cmdmode sset ssl ent p0,p1,p2,x1,x2,y0,y1,y2,z1,z2)

(setq cmdmode (getvar "cmdecho"))

(setvar "cmdecho" 0)

;select lines by user

(prompt "\nselect lines:")

(setq sset (ssget))

(if (not(null sset))

  (progn

   (setq ssl (sslength sset))

   ;input base point by user

   (setq p0 (getpoint "\nThe base point: "))

   (setq y0 (cadr p0))

   (while (> ssl 0)

  (setq ent(entget (ssname sset (setq ssl (1- ssl)))))

  ;filter the lines

  (if (= (cdr (assoc 0 ent)) "LINE")

   ;change the start point and end point of the line

   (progn

     (setq x1 (cadr(assoc 10 ent)))

      (setq y1 (caddr(assoc 10 ent)))

      (setq z1 (cadddr(assoc 10 ent)))

      (setq x2 (cadr(assoc 11 ent)))

      (setq y2 (caddr(assoc 11 ent)))

     (setq z2 (cadddr(assoc 11 ent)))

     (setq p1 (list (+ x1 (/ (* (sqrt 2) (- y1 y0)) 4)) (+ y0 (/ (* (sqrt 2) (- y1 y0))4)) z1))
上一页 [1] [2] 下一页
我有问题,我要进入论坛
出处:本站原创 作者:佚名
 热点文章
·如何定制自己的个性化..
·proe超级技巧
·怎样学好PRO/E软件?
·PRO/E COFNIG文件设置..
·PROE将默认英制转换成..
·PRO/E分模经验总结
·Pro/E 各种曲线方程集..
·Pro/E 各种曲线方程集..
·Pro/E 各种曲线方程集..
·Pro/E 各种曲线方程集..
·Pro/E 各种曲线方程集..
·旧版ProE如何读取野火..
·Pro/E如何做两条c2(曲..
·Pro/E 2001下一个阵列..
·一款钣金产品的结构设..
 推荐文章
·翻砂铸造的特点及其工..
·整编SolidWorks应用技..
·模具选材原则
·如何解决中文Pro/E工程..
·Pro/ENGINEER 中的文本..
·Pro/ENGINEER Wildfir..
·模型从proe->ansys..
·用行为建模优化设计的..
·簡單的Top-Down設計實..
·适合初学者的基础练习..
·ProE不传之秘笈(高级技..
·PRO/E 关于零件精度的..
·Pro/E的scan-tools工具..
·关系式的世界
·关系式教程