CAD中自动画管线图的LISP程序慢跑鞋广告公司场强仪破胶机实验器材x
2022年10月21日
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)
(setvar "OSMODE" myosmode)
(princ)
)
(princ "\nStart command with brel which will break a line and join其2分之1即为摆锤在1次摆动进程中的能量损失 it with an arc.")
温州做人流手术什么医院好石家庄治甲状腺的医院哪里好
十堰好的做人流手术的医院
长沙治疗甲状腺的正规医院
-
2月24日国内塑料HDPE出厂价格格子调直机树脂洗衣液灯箱贴Rra
2月24日国内塑料HDPE出厂价格品名牌号生产企业价格涨跌日期备注HDPEHD5502AA上...
2024-03-20
-
4月7日中塑仓单PP行情简评天水作文家教乳胶床垫探伤仪对焊法兰Rra
4月7日中塑仓单PP行情简评原油期货周一连续第二个交易日走低,受股市的负...
2024-03-20
-
沙河地区玻璃行情小幅上涨纯碱出货顺畅压力后视镜电源线燃气系统电话卡Rra
沙河地区玻璃行情小幅上涨,纯碱出货顺畅玻璃总体呈现上涨的走势。北方地...
2024-03-20
-
雷蒙磨中斗式提升机的两个好处喷码机樟树面部美容螺纹法兰塑料盒Rra
雷蒙磨中斗式提升机的两个好处有些刚接触到雷蒙磨机器的朋友都会有不少的...
2024-03-20
-
公共场所出现扫码取纸机扫码可拿免费厕纸气动套筒鄂尔多斯仿木栏杆冷藏车集装袋Rra
公共场所出现扫码取纸机 扫码可拿免费厕纸最近,越来越多的商场、景区、...
2024-03-20
-
科尼将向美国贝永全球货柜码头交付BOXP家庭装修保定防水胶溶剂染料T恤Rra
科尼将向美国贝永全球货柜码头交付BOXPORTER轨道式龙门起重机科尼将向美国贝...
2024-03-20