下载首页 | 资讯中心 | 文章分类 | 最近更新 | 排 行 榜 |
文章搜索: 分类 关键字
您的位置:首页软件教程AutoCADAutoCAD资料教程 → CAD中自动画管线图的LISP程序
CAD中自动画管线图的LISP程序
日期:2007-12-3 20:30:19 人气:113     [ ]
  画一些管路原理图时,当代表不同管路的直线在图中相交时,需将在交点处的某一直线断开,再用一半圆连接两断点,使用下面这个LISP编写程序,只用键入"brel"的命令,其它的就由电脑去完成了。

  程序中使用"break"命令截断需要被断开的管线,再用"arc"命令画一半圆连接两断点。变量p读取管线交点;p1、p2为点p的左右或上下两点;p3为连接p1、p2半圆的中点。由于使用"break"命令时若AUTOCAD环境处于对象捕捉方式OSMODE≠0),则"break"命令截断的p1、p2两点可能为变为p1、p2附近的捕捉点。所以程序开始时用变量myosmode记录系统变量OSMODE,而后设置OSMODE为0,程序结束后再设置还原OSMODE。变量horn判断用户需要断开的是水平线还是垂直线。

(defun c:brel(/myosmode horv p p1 p2 p3)
 (setq myosmode (getvar "OSMODE"))
 (setvar "OSMODE" 0)
 (setq p (getpoint "\nselect point to break:"))
 (initget 1 "H V")
 (setq horv (getkword " Direction[H/V]?"))
 (if (= horv "H")
  (progn
   (setq p1 (list (- (car p) 1.5) (cadr p)))
   (setq p2 (list (+ (car p) 1.5) (cadr p)))
   (setq p3 (list (car p) (+ (cadr p) 1.5)))
  )
  (progn
   (setq p1 (list (car p) (- (cadr p) 1.5)))
   (setq p2 (list (car p) (+ (cadr p) 1.5)))
   (setq p3 (list (+ (car p) 1.5) (cadr p)))
  )
 )
 (command "break" p1 p2)
 (command "arc" p1 p3 p2)
 (setvar "OSMODE" myosmode)
 (princ)
)
(princ "\nStart command with brel which will break a line and join it with an arc.")
我有问题,我要进入论坛
出处:本站原创 作者:佚名
 热点文章
·如何定制自己的个性化..
·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工具..
·关系式的世界
·关系式教程