cad高程测绘图lisp_CAD中自动画管线图的LISP程序

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 (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.")

cad高程测绘图lisp_CAD中自动画管线图的LISP程序相关推荐

CAD自控lisp_CAD里面自动画管线图地LISP程序
画一些管路原理图时,当代表不同管路的直线在图中相交时,需将在交点处的某一直线断开,再用一半圆连接两断点,使用下面这个LISP编写的程序,只用键入"brel"的命令,其它的就由电脑去 ...
cad lisp 管道截面_Auto CAD自动画管线图的LISP程序_1
Auto CAD 自动画管线图的 LISP 程序 - CAD 基础教程来源 : 不详作者 : 佚名更新时间 :2010-6-5 点击 : document.write('2'); 在画管路原理图 ...
cad lisp 管道截面_CAD中直接画管线图的LISP程序
画一些管路原理图时,当代表不同管路的直线在图中相交时,需将在交点处的某一直线断开,再用一半圆连接两断点,使用下面这个LISP编写的程序,只用键入"brel"的命令,其它的就由电脑去 ...
cad高程测绘图lisp_已知CAD中的高程测绘图，很多点，如何求出所有高程的平均值呢？难道只能用计算器一个一个的相加来算吗？...
回答: 1,地貌显示就简略,又叫计曲线,表示其细部,如丘陵地区的地图上使用较多,是一种比较科学的方法,从底到顶. 等高线表示地貌的原理等高线表示地貌的原理是,因为等高线是按一定的等高距测绘的,地貌显 ...
cad高程测绘图lisp_AUTOLISP程序生成CAD断面图
利用 AutoLisp . Microsoft VBA 程序语言实现批量生成断面图及断面电子表格数据蒋济飞赵新萍 (广西第二测绘院广西柳州 545006 ) [摘要] 本文主要讨论如何利用 ...
lisp中怎样调取图形_CAD的lisp程序已加载，怎样绘图？
回答: 1.计算所有线段总长度(加载后只需框选所有线段便可得出这些线段的总长度) (defun c:LL () (setvar "cmdecho" 1) (setq en (ssg ...
cad lisp 管道截面_CAD中LISP程序自动画管线图
画一些管路原理图时,当代表不同管路的直线在图中相交时,需将在交点处的某一直线断开,再用一半圆连接两断点,使用下面这个LISP编写的程序,只用键入"brel"的命令,其它的就由电脑去 ...
cad老是弹出命令中发生异常_CAD打开出现向程序发送命令时出现错误该怎么办？...
回答: 方法/步骤 1 方法一: 这是由于模板出现问题引起的,恢复Normal模板就可以了:1.关闭所有打开的Word文档:2.复制这条命令:%appdata%\microsoft\templates ...
CAD绘图软件中如何查询图纸的版本是多少
在CAD中,我们不光自己要绘制图纸,还需要查收你的同事发来的CAD图纸文件.那么,在查看图纸的时候怎么知道图纸的版本是多少呢?具体要怎么来进行操作呢?那下面小编就来教教大家在CAD绘图软件中如何查询图 ...

cad高程测绘图lisp_CAD中自动画管线图的LISP程序

cad高程测绘图lisp_CAD中自动画管线图的LISP程序相关推荐

最新文章

热门文章