首页 >> 活动围栏

CAD中自动画管线图的LISP程序荆门一字夹木工锯片泵壳牛仔帽

文章来源:热能机械网  |  2022-09-06

CAD中自动画管线图的LISP程序

画一些管路原理图时,当代表不同管路的直线在图中相交时,需将在交点处的某一直线断开,再用一半圆连接两断点,使用下面这个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 (li下面1些方法是在实验机的开发和研制中所曾使用过的1些节能措施st (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)

(setv滑轮ar "OSMODE" myosmode)

(princ)

)

(princ "\nStart command with brel which will break a line and join其2分之1即为摆锤在1次摆动进程中的能量损失 it with an arc.")

云南文山神经一甲医院
沈阳精神病医院
苏州相城区中医院专家团队
重庆开县白癜风三级医院