天圆液压产品中心
CAD中自动珩磨管画管线图的LISP措施
时间:2016-10-31 11:00来源:天圆网站 作者:天圆液压 点击:
次
画一些管路道理图时，今世表差异管路的直线在图中相交时，需将在交点处的某一向线断开，再用一半圆毗连两断点，行使下面这个LISP编写的措施，只用键入"brel"的呼吁，其余的就由电脑去完成了。 措施中行使"break"呼吁截断必要被断开的管线，再用"arc"呼吁画
| (command "break" p1 p2) (initget 1 "H V") ) (setq p3 (list (+ (car p) 1.5) (cadr p))) (progn ) (setq p1 (list (- (car p) 1.5) (cadr p))) (setq p (getpoint "\nSelect point to break:")) ) (defun c:brel(/myosmode horv p p1 p2 p3) 措施中行使"break"呼吁截断必要被断开的管线，再用"arc"呼吁画一半圆毗连两断点。变量p读取管线交点；p1、p2为点p的阁下或上下两点；p3为毗连p1、p2半圆的中点。因为行使"break"呼吁时若AUTOCAD情形处于工具捕获方法（OSMODE≠0），则"break"呼吁截断的p1、p2两点也许为变为p1、p2四面的捕获点。以是措施开始时用变量myosmode记录体系变量OSMODE，尔后配置OSMODE为0，液压缸，活塞杆，措施竣事后再配置还原OSMODE。变量horn判定用户必要断开的是程度线照旧垂直线。 (setq p2 (list (+ (car p) 1.5) (cadr p)))(setq p3 (list (car p) (+ (cadr p) 1.5))) 画一些管路道理图时，今世表差异管路的直线在图中相交时，需将在交点处的某一向线断开，再用一半圆毗连两断点，行使下面这个LISP编写的措施，只用键入"brel"的呼吁，其余的就由电脑去完成了。 )(princ "\nStart command with brel which will break a line and join it with an arc.") (setq horv (getkword " Direction[H/V]?")) (setvar "OSMODE" myosmode) (setvar "OSMODE" 0) (if (= horv "H") (setq p2 (list (car p) (+ (cadr p) 1.5))) (setq p1 (list (car p) (- (cadr p) 1.5))) (progn (princ) (责任编辑：admin) |
------分隔线----------------------------
- 上一篇：AutoCAD菜不锈钢油缸管单文件使用五问
- 下一篇：自界说液压缸CAD里的图案
- [ 18-11-06 ]换向阀中位性液压站能特点及应用留意
- [ 18-10-09 ]公制螺纹、BS液压油缸PP螺纹ED密封油
- [ 18-09-11 ]很是具体的液液压站压阀块计划履历总
- [ 18-09-11 ]液压节液压站制技能的革命
- [ 16-09-14 ]联轴珩磨管器选择方法
- [ 16-07-17 ]怎样避免缸筒液压站冲击危害？
- [ 16-07-17 ]液压动力单元液不锈钢缸筒压齿轮泵的