自动示坡_示坡线_自动创建_示坡_

;;人工确定闭合线的现个画坡向线位置和相邻等高线即可完成，坡向线长是50，可根据需要调整长短。 (defun c:pxx () (setvar "osmode" 512) ;捕捉最近点 (setq p1 (getpoint "\n选择示坡线第一点:")) ;闭合线上曲率最大点 (setq p2 (getpoint "\n选择示坡线第二点:")) ;闭合线上曲率最大另一点 (setq z1 (caddr p1)) ;取得闭合线高程值 (setq z2 (caddr (getpoint "\n选择相邻线:"))) ;取得相邻线高程值 (setvar "osmode" 0) ;关闭捕捉 (setq ptx (car p1) pty (cadr p1)) ;第一点XY坐标 (command ".XLINE" "PER" P1 P1 "") ;画第一点的垂直构造线 (setq p0 (cdr (assoc 11 (entget (entlast))))) ;构造线相对P1点的增量坐标 (entdel (entlast)) ;删除构造线 (setq p0 (list (- ptx (car p0)) (- pty (cadr p0)))) ;取得增量的XY (setq at1 (angle p0 p1)) ;计算第一点坡向线的方位弧度角 (setq ptx (car p2) pty (cadr p2)) ;第二点XY坐标 (command ".XLINE" "PER" P2 P2 "") ;画第二点的垂直构造线 (setq p0 (cdr (assoc 11 (entget (entlast))))) ;构造线相对P2点的增量坐标 (entdel (entlast)) ;删除构造线 (setq p0 (list (- ptx (car p0)) (- pty (cadr p0)))) ;取得增量的XY (setq at2 (angle p0 p2)) ;计算第二点坡向线的方位弧度角 (if (> z1 z2) (progn ;画坡顶坡向线 (command "_pline" p1 (polar p1 at1 50) "") ;画长50的坡向线 (command "_pline" p2 (polar p2 at2 50) "") ;画长50的坡向线 )) (if (< z1 z2) (progn ;画洼地坡向线 (command "_pline" p1 (polar p1 (+ at1 pi) 50) "") ;画长50的坡向线 (command "_pline" p2 (polar p2 (+ at2 pi ) 50) "") ;画长50的坡向线 )) (setvar "osmode" 35) )