(progn

　　　　　(redraw (cdr(assoc -1 ent)) 1))

　　　(setq p0 (getpoint "/nThe base point: "))

　　　　　(setq p2 (list (+ x2 (/ (* (sqrt 2) (- y2 y0)) 4)) (+ y0 (/ (* (sqrt 2) (- y2 y0))4)) z2))

　　　(setq ssl (sslength sset))

(setq cmdmode (getvar "cmdecho"))

　　)

　　　　　(setq ent (entmod (subst (cons 10 p1)

　　(progn

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

画管路图时，液压油缸，常画俯视图和响应的45°角视图。着实45°角视图中包括的信息只比俯视图中多了每根管路的程度高度。下面这个用LISP编写的措施可以自动将俯视图转化为统一程度高度的45°角视图，行使者只需在转化后的图大将每组管路在竖直偏向上移动响应的高度，一幅45°角视图就轻松完成了。

(princ "/n/tc:V45 loaded. Start command with V45.")

　　　　　　(setq x2 (cadr(assoc 11 ent)))

　　　(while (> ssl 0)

　　　　　(setq z2 (cadddr(assoc 11 ent)))

　　　　　(setq p1 (list (+ x1 (/ (* (sqrt 2) (- y1 y0)) 4)) (+ y0 (/ (* (sqrt 2) (- y1 y0))4)) z1))

　　　　　(entmod (subst (cons 11 p2)

　　　　　　(setq y2 (caddr(assoc 11 ent)))

(defun c:V45( / cmdmode sset ssl ent p0,p1,p2,x1,x2,y0,y1,y2,z1,z2)

(setq sset (ssget))

　　　　　　(setq y1 (caddr(assoc 10 ent)))

(if (not(null sset))

　　　;change the start point and end point of the line

　　　)

　　(setvar "CMDECHO" cmdmode)

　　(setq ent(entget (ssname sset (setq ssl (1- ssl)))))

　　　　　　(setq z1 (cadddr(assoc 10 ent)))

　　　　　(setq x1 (cadr(assoc 10 ent)))

　　　;input base point by user

)

(prompt "/nSelect lines:")

(setvar "cmdecho" 0)

　　;filter the lines

　　　　)

;select lines by user

　　　　　　　　　　　　(assoc 10 ent) ent)))

　　　)

　　　　　　　　　　　　(assoc 11 ent) ent))

　　因为每根管路用一向线暗示，以是只需改变直线的出发点和终点坐标为响应的45°角视图中的坐标。措施中变量p0记录45°角视图的坐标原点，液压缸，由用户输入。p1记录直线的出发点坐标，p2记录直线的终点坐标。

　　　(setq y0 (CADr p0))