cad等高线加高程命令

1、首先开启AutoCAD等高线图纸，点击左上角视图，将俯视调整为前视。

2、其次前视视图中，等高线变为高度不同的直线，左侧工具栏点击标高标注。

3、最后开启动态标注功能，依次点击等高线进行标注。

(defun C:JDHQ()

(setvar "cmdecho" 0)

(princ "\n选择要切割的直线：")

(setq lll(entsel))选择直线

取得直线起点零高程坐标列表

(setq lllxyz1(cdr (assoc 10 (entget (car lll)))))

(setq lllx1(nth 1 lllxyz1))

(setq llly1(nth 0 lllxyz1))

(setq lllxyz10 (list llly1 lllx1 0.0))

取得直线终点零高程坐标列表

(setq lllxyz2(cdr(assoc 11 (entget (car lll)))))

(setq lllx2(nth 1 lllxyz2))

(setq llly2(nth 0 lllxyz2))

(setq lllxyz20 (list llly2 lllx2 0.0))

(princ "\n选择被相交的直线图元集：")

(setq ss(ssget))被交线图元集

(setq n(sslength ss))计算图元集图元个数

(setq ff(open(getfiled "交点保存为" "" "txt" 1)"w"))

(setq i 0)

(repeat n

(setq spt (ssname ss i))

(setq ept (entget spt))

(if (=(cdr(assoc 0 ept)) "LINE")

(progn

(setq lxyz1(cdr (assoc 10 ept)))

(setq sx1(nth 1 lxyz1))

(setq sy1(nth 0 lxyz1))

(setq sz1(nth 2 lxyz1))

(setq lxyz10 (list sy1 sx1 0.0))

(setq lxyz2(cdr (assoc 11 ept)))

(setq sx2(nth 1 lxyz2))

(setq sy2(nth 0 lxyz2))

(setq sz2(nth 2 lxyz2))

(setq lxyz20 (list sy2 sx2 0.0))

计算交点坐标

(setq jdxy0(inters lllxyz10 lllxyz20 lxyz10 lxyz20))

(if (/= jdxy0 nil)

(progn

(setq jdx(nth 1 jdxy0))

(setq jdy(nth 0 jdxy0))

求交点高程z

(setq l1(sqrt(+(* (- sx2 sx1) (- sx2 sx1)) (* (- sy2 sy1) (- sy2 sy1)))))

(setq l2(sqrt(+(* (- jdx sx1) (- jdx sx1)) (* (- jdy sy1) (- jdy sy1)))))

(setq jdz(+ sz1 (* (- sz2 sz1) (/ l2 l1))))

(setq jdz1(rtos jdz 2 3))

(setq jdx1(rtos jdx 2 3))

(setq jdy1(rtos jdy 2 3))

(setq jdxyz(strcat jdy1"," jdx1 ","jdz1))

(write-line jdxyz ff)

)

)

)

)

(setq i (+ i 1))

)

(close ff)

(prin1)

)

(prompt "********<<C:JDHQ>>********")

(prin1)

C语言的话画直线用MoveTo()和LineTo()很简单啊。

帮你复制一份我学习时老师给的画线两例：

#include<graphics.h>

#include<math.h>

/*

###############################################################################

功 能：本函数的作用是用逐点比较法来画一条直线

格 式：void myline1(int x1,int y1,int x2,int y2,int color)

参数说明：x1,y1是起始点坐标,x2,y2是终止点,color是画线的颜色

调用示例：myline1(10,20,500,440,4)

###############################################################################

*/

void myline1(int x1,int y1,int x2,int y2,int color)

{

/*变量定义开始（2007/10/16增加）*/

int iTx/*x轴终点的相对坐标xa或临时变量*/

int iTy/*y轴终点的相对坐标ya或临时变量*/

int iDx/*x轴方向的步长dx*/

int iDy/*y轴方向的步长dy*/

int iFt/*偏差Fm*/

int iSt/*记数循环数(dx+dy)S*/

int iXt/*x方向循环变量xm*/

int iYt/*y方向循环变量ym*/

/*变量定义结束*/

/*变量初始化开始*/

/*如果是第三象限或第四象限则换成第一或第二象限*/

if(y2<y1)

{

iTx=x1

x1=x2

x2=iTx

iTy=y1

y1=y2

y2=iTy

}

iTx=x2-x1/*取x轴的相对坐标*/

iTy=y2-y1/*取y轴的相对坐标*/

iDx=1

iDy=1

iFt=0

iSt=iTx+iTy

if(iTx<0)iSt=-1*iTx+iTy/*如果在第二象限，则x轴方向步长取负值*/

iXt=0

iYt=0

/*变量初始化结束*/

/*数据处理开始*/

while(iSt>0)

{

putpixel(x1+iXt,y1+iYt,color)

if(iTx>=0) /*如果在第一象限*/

{

if(iFt<0) /*如果偏差小于0*/

{

iYt+=iDy/*y方向走一步*/

iFt+=iTx

}

else /*如果偏差大于或等于0*/

{

iXt+=iDx/*x方向走一步*/

iFt-=iTy

}

}

else

{

if(iFt<0) /*如果偏差小于0*/

{

iXt-=iDx/*负x方向走一步*/

iFt+=iTy

}

else /*如果偏差大于或等于0*/

{

iYt+=iDy/*y方向走一步*/

iFt+=iTx

}

}

iSt--

}

}

/*

###############################################################################

功 能：本函数的作用是用来画一条直线

格 式：void myline2(int x1,int y1,int x2,int y2,int color)

参数说明：x1,y1是起始点坐标,x2,y2是终止点,color是画线的颜色

调用示例：myline2(10,20,500,440,4)

###############################################################################

*/

int myline2(int x1,int y1,int x2,int y2,int color)

{

int iX/*x方向的坐标变量*/

int iY/*y方向的坐标变量*/

int iTx/*x方向的步长变量*/

int iTy/*y方向的步长变量*/

float fDx/*x方向的差分变量*/

float fDy/*y方向的差分变量*/

float fMinf/*算法中的f*/

float fMaxF/*算法中的F*/

float fS/*终点判断变量*/

fMinf=0.5/*f=0.5*/

iX=x1

iY=y1

putpixel(x1,y1,color)

if(x1==x2&&y1==y2) /*如果终点和起始点相同*/

{

return(1)

}

iTx=1

iTy=1

fDx=(float)(x2-x1)

fDy=(float)(y2-y1)

fMaxF=fDy/fDx>0?fDy/fDx:(-fDy/fDx)/*F=|dy/dx|*/

if(fDx<0)iTx=-1

if(fDy<0)iTy=-1

fS=fDx>0?fDx:(-fDx)

if(fMaxF==1) /*如果F=1*/

{

iX=x1

iY=y1

while(fS>0)

{

iX+=iTx/*x方向走一步*/

iY+=iTy/*y方向走一步*/

putpixel(iX,iY,color)

fS--

}

}

else if(fMaxF>1) /*如果F>1*/

{

fS+=fDy>0?fDy:(-fDy)

while(fS>0)

{

iY+=iTy/*y方向走一步*/

putpixel(iX,iY,color)

fMinf+=1/fMaxF/*f=f+1/F*/

fS--

if(fMinf>=1) /*如果f>=1*/

{

iX+=iTx/*x方向走一步*/

fMinf--/*f=f-1*/

putpixel(iX,iY,color)

fS--

}

}

}

else /*如果F<1*/

{

fS+=fDy>0?fDy:(-fDy)

while(fS>0)

{

iX+=iTx/*x方向走一步*/

putpixel(iX,iY,color)

fMinf+=fMaxF/*f=f+F*/

fS--

if(fMinf>=1) /*如果f>=1*/

{

iY+=iTy/*y方向走一步*/

fMinf--/*f=f-1*/

putpixel(iX,iY,color)

fS--

}

}

}

}

---