[LISP函数]：AUTOCAD中自动生成45°视图的LISP程序

gaozh

画管路图时，常画俯视图和相应的45°角视图。其实45°角视图中包含的信息只比俯视图中多了每根管路的水平高度。下面这个用LISP编写的程序可以自动将俯视图转化为同一水平高度的45°角视图，使用者只需在转化后的图上将每组管路在竖直方向上移动相应的高度，一幅45°角视图就轻松完成了。
　由于每根管路用一直线表示，所以只需改变直线的起点和终点坐标为相应的45°角视图中的坐标。程序中变量p0记录45°角视图的坐标原点，由用户输入。p1记录直线的起点坐标，p2记录直线的终点坐标。

2. 
   
3. (defun c:V45 (/ cmdmode sset ssl ent p0,p1,p2,x1,x2,y0,y1,y2,z1,z2)
   
4.   (setq cmdmode (getvar "cmdecho"))
   
5.   (setvar "cmdecho" 0)                       ; select lines by user
   
6.   (prompt "\nSelect lines:")
   
7.   (setq sset (ssget))
   
8.   (if (not (null sset))
   
9.     (progn
   
10.       (setq ssl (sslength sset))       ; input base point by user
    
11.       (setq p0 (getpoint "\nThe base point: "))
    
12.       (setq y0 (cadr p0))
    
13.       (while (> ssl 0)
    
14.         (setq ent (entget (ssname sset (setq ssl (1- ssl))))) ; filter the lines
    
15.         (if (= (cdr (assoc 0 ent)) "LINE") ; change the start point and end
    
16.                                        ; point of the line
    
17.           (progn
    
18.             (setq x1 (cadr (assoc 10 ent)))
    
19.             (setq y1 (caddr (assoc 10 ent)))
    
20.             (setq z1 (cadddr (assoc 10 ent)))
    
21.             (setq x2 (cadr (assoc 11 ent)))
    
22.             (setq y2 (caddr (assoc 11 ent)))
    
23.             (setq z2 (cadddr (assoc 11 ent)))
    
24.             (setq p1 (list (+ x1 (/ (* (sqrt 2) (- y1 y0)) 4))
    
25.                                (+ y0(/(*(sqrt 2)(- y1 y0)) 4)) z1
    
26.                      )
    
27.             )
    
28.             (setq p2 (list (+ x2 (/ (* (sqrt 2) (- y2 y0)) 4))
    
29.                                (+ y0(/(*(sqrt 2)(- y2 y0) ) 4)) z2
    
30.                      )
    
31.             )
    
32.             (setq ent (entmod (subst
    
33.                                 (cons 10 p1)
    
34.                                 (assoc 10 ent)
    
35.                                 ent
    
36.                               )
    
37.                       )
    
38.             )
    
39.             (entmod (subst
    
40.                       (cons 11 p2)
    
41.                       (assoc 11 ent)
    
42.                       ent
    
43.                     )
    
44.             )
    
45.             (redraw (cdr (assoc -1 ent)) 1)
    
46.           )
    
47.         )
    
48.       )
    
49.     )
    
50.   )
    
51.   (setvar "CMDECHO" cmdmode)
    
52. )
    
53. 
    
54. (princ "\n\tc:V45 loaded. Start command with V45.")
    

<br /> (defun c:V45 (/ cmdmode sset ssl ent p0,p1,p2,x1,x2,y0,y1,y2,z1,z2)<br />   (setq cmdmode (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)                       ; select lines by user<br />   (prompt "\nSelect lines:")<br />   (setq sset (ssget))<br />   (if (not (null sset))<br />     (progn<br />       (setq ssl (sslength sset))       ; input base point by user<br />       (setq p0 (getpoint "\nThe base point: "))<br />       (setq y0 (cadr p0))<br />       (while (> ssl 0)<br />         (setq ent (entget (ssname sset (setq ssl (1- ssl))))) ; filter the lines<br />         (if (= (cdr (assoc 0 ent)) "LINE") ; change the start point and end<br />                                        ; point of the line<br />           (progn<br />             (setq x1 (cadr (assoc 10 ent)))<br />             (setq y1 (caddr (assoc 10 ent)))<br />             (setq z1 (cadddr (assoc 10 ent)))<br />             (setq x2 (cadr (assoc 11 ent)))<br />             (setq y2 (caddr (assoc 11 ent)))<br />             (setq z2 (cadddr (assoc 11 ent)))<br />             (setq p1 (list (+ x1 (/ (* (sqrt 2) (- y1 y0)) 4))<br />                                (+ y0(/(*(sqrt 2)(- y1 y0)) 4)) z1<br />                      )<br />             )<br />             (setq p2 (list (+ x2 (/ (* (sqrt 2) (- y2 y0)) 4))<br />                                (+ y0(/(*(sqrt 2)(- y2 y0) ) 4)) z2<br />                      )<br />             )<br />             (setq ent (entmod (subst<br />                                 (cons 10 p1)<br />                                 (assoc 10 ent)<br />                                 ent<br />                               )<br />                       )<br />             )<br />             (entmod (subst<br />                       (cons 11 p2)<br />                       (assoc 11 ent)<br />                       ent<br />                     )<br />             )<br />             (redraw (cdr (assoc -1 ent)) 1)<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (setvar "CMDECHO" cmdmode)<br /> )<br /> <br /> (princ "\n\tc:V45 loaded. Start command with V45.") <br />

丹佛

还不错，不过只能处理直线。

aeo

欢迎深入下去

zhiyongfan

好帖,现在很多管道和建造设计都喜欢学习用45度,谢谢提供

hi71400

最好还能适用复合线！