cad lisp 示坡线_AutoCAD命令

;=================示坡线绘制函数======================

(defun

nys_spx (/ changbian1 changbian2 changdu1 changdu2

changdu3

ang1 ang2 changbian2_x

changbian2_y d1 d2 d3

d5 d6 d7 d8

)

(setq osnapp (getvar

"osmode"))

(command "osmode" "137")

(setq changbian1 (getpoint

"在坡底侧选取长边第一点:"))

(setq changbian2 (getpoint changbian1

"在坡顶线上选取垂足点:"))

(setq changdu1 (distance changbian1

changbian2))

(command "osmode" "0")

(setq ang1 (angle changbian2

changbian1))

(setq changbian2_x (car changbian2))

(setq changbian2_y

(cadr changbian2))

(setq ang2 (- ang1 1.5707963))

(setq ang3 (+ ang1

1.5707963))

(setq changdu2 (/ changdu1 4))

(setq changdu3 (/ changdu1

2))

(setq d1 (polar changbian2 ang3 (* changdu2 1)))

(setq d3 (polar

changbian2 ang3 (* changdu2 2)))

(setq d5 (polar changbian2 ang2 (*

changdu2 1)))

(setq d7 (polar changbian2 ang2 (* changdu2 2)))

(setq

d2 (polar d1 ang1 changdu3))

(setq d4 (polar d3 ang1 changdu1))

(setq

d6 (polar d5 ang1 changdu3))

(setq d8 (polar d7 ang1

changdu1))

(command "line" changbian1 changbian2 "")

(command "line"

d1 d2 "")

(command "line" d3 d4 "")

(command "line" d5 d6

"")

(command "line" d7 d8 "")

(command "osmode"

osnapp)

(princ)

)’

cad lisp 示坡线_AutoCAD命令－画示坡线相关推荐

lisp画示坡线_示坡线画法图文教程
介绍两种画法,两者分别基于块的阵列和线性定义. 一. 定距等分法以一个对象按一条spline曲线等距排列来进行说明定距等分命令的使用: (1) 首先将将要排列的对象先转换成一个图块(打开菜单&quo ...
cad lisp 示坡线_示坡线画法图文教程
介绍两种画法,两者分别基于块的阵列和线性定义. 一. 定距等分法以一个对象按一条spline曲线等距排列来进行说明定距等分命令的使用: (1) 首先将将要排列的对象先转换成一个图块(打开菜单&quo ...
cad lisp 示坡线_示坡线画法详解
我先来解决一下示坡线的问题,有两种方法: 1.方法一:采用定距等分命令来绘制示坡线,如下图所示: 我将以一个对象按一条spline曲线等距排列来进行说明定距等分命令的使用: (1)首先将你要排列的对象 ...
cad指示箭头快捷键命令_Auto CAD2014画箭头快捷键是什么啊？？
CAD快捷键命令大全: CAD绘圆弧快捷键命令→『A』 CAD测量区域和周长快捷键命令→『AA』 CAD对齐快捷键命令→『AL』 CAD提取轮廓快捷键命令→『ALT+MUP』 CAD线性标注ALT+V ...
cad lisp 管道截面_CAD中直接画管线图的LISP程序
画一些管路原理图时,当代表不同管路的直线在图中相交时,需将在交点处的某一直线断开,再用一半圆连接两断点,使用下面这个LISP编写的程序,只用键入"brel"的命令,其它的就由电脑去 ...
CAD轴测图怎么画？快来试试浩辰CAD超级轴测命令！
很多新手设计师小伙伴,不知道CAD轴测图怎么画?其实很简单,浩辰CAD中的超级轴测功能,可以方便地将CAD平面图转化为轴侧图,是绘制管线系统图的好帮手.今天就和小编一起来看看在浩辰CAD软件中通过调用 ...
CAD高阶综合练习题、CAD圆形和阵列命令的高阶综合练习题
如下图所示根据标注的尺寸,用CAD画图软件绘制出一样的图形: 目标对象操作工具操作系统:Windows10 CAD制图软件:AutoCAD2019 步骤 1.先用CAD直线命令画两条垂直相交的辅助 ...
cad lisp 管道截面_Auto CAD自动画管线图的LISP程序_1
Auto CAD 自动画管线图的 LISP 程序 - CAD 基础教程来源 : 不详作者 : 佚名更新时间 :2010-6-5 点击 : document.write('2'); 在画管路原理图 ...
cad lisp程序大集,超经典CAD lisp程序集锦、CAD快捷键大全
1.超经典CAD lisp程序集锦.CAD快捷键大全l pb.lsp - 通过给出长度将字符串分成两个串 cht.lsp - 直接修改文字内容或块属性 ct.lsp - 对数字串进行加减 chh.ls ...
cad多段线画圆弧方向_(cad多段线画圆弧方向)在cad中如何使用excel画样条曲线
在cad中如何使用excel画样条曲线 AutoCAD本身没有提供函数曲线的绘制功能,不能直接利AutoCAD绘制函数曲线,但借助其他工具也能绘制,常用的方法有3种,第一种,借助其他能绘制函数曲线的C ...

cad lisp 示坡线_AutoCAD命令－画示坡线

cad lisp 示坡线_AutoCAD命令－画示坡线相关推荐

最新文章

热门文章