自动绘制保安亭

hhh454

一直坚持学习，首先感谢gu_xl版主的帮助，谢谢
下面开始讨论怎么绘制保安亭，我不会复杂的代码，只能简单的来实现，下面的图片里面说明
希望有兴趣的高手，给点帮助，

hhh454

我是通过点的方式来实现绘图，很基础的，献丑了
废话不说了，下面是代码

2. (defun ok_qq()
   
3.   (setq unht    (getreal "层高")
   
4. sty     (getreal "层数")
   
5. elevspc (getreal "间距")
   
6. downwin (getreal "窗台高度")
   
7. winht   (getreal "窗高")
   
8. winjj   (getreal "窗径宽度")
   
9. nvht    (getreal "女儿墙高度")
   
10. ))
    
11. 
    
12. (defun draw_qq()
    
13.    (setq p1      (getpoint "\n 取一个点:  "))
    
14.    (setq w1 (getdist "\n 墙面的宽度: "))
    
15.    (while w1
    
16.    (setq x1 (car p1)
    
17.          y1 (cadr p1)
    
18.          p4 (polar p1 (/ pi 2) unht)
    
19.          )
    
20.     (setvar "OSMODE" 0)
    
21.     (command "-layer" "s" "1" "")
    
22.     (command "_.rectang" p1 (strcat "@" (rtos w1 2) "," (rtos (+ (* unht sty) nvht) 2)))
    
23.    (repeat (fix sty)
    
24.          (command "-layer" "s" "2" "")
    
25.      (command "line" p4 (strcat "@" (rtos w1 2) "<" "0" ) "")
    
26.         (setq p4 (polar p4 (/ pi 2) unht))
    
27. )
    
28.     (setvar "OSMODE" oldos)
    
29.   ;绘制窗户
    
30.    (setq c1 (getdist "\n 窗户的宽度: "))
    
31. (while c1
    
32.    (setq wp1 (getdist "\n 窗户到左边的距离: "))
    
33.    (setq p2 (list (+ x1 wp1) (+ y1 downwin)))
    
34.       (setvar "OSMODE" 0)
    
35.   (repeat (fix sty)
    
36.         (command "-layer" "s" "7" "")
    
37.    (command "_.rectang" p2 (strcat "@" (rtos c1 2) "," (rtos winht 2)))
    
38.     (setq x2 (car p2)
    
39.           y2 (cadr p2)
    
40.           x3 (+ x2 winjj)
    
41.           y3 (+ y2 winjj)
    
42.           nn (- winht (* winjj 2))
    
43.           n  (/ (- c1 (* winjj 2)) 2)
    
44.           x5 (+ x3 n)
    
45.           p3 (list x3 y3)
    
46.           p5 (list x5 y3)
    
47.           )
    
48.       (command "-layer" "s" "6" "")  
    
49.    (command "_.rectang" p3 (strcat "@" (rtos (- c1 (* winjj 2)) 2) "," (rtos nn 2)))
    
50.    (command "line" p5 (strcat "@" (rtos nn 2) "<" "90" ) "")   
    
51.    (setq p2 (polar p2 (/ pi 2) unht))
    
52.    (setq p3 (polar p3 (/ pi 2) unht))
    
53.    (setq p5 (polar p5 (/ pi 2) unht))            
    
54.    )
    
55.       (setvar "OSMODE" oldos)
    
56.    (setq c1 (getdist "\n 窗户的宽度: "))
    
57. )
    
58. ;新的墙面起点      
    
59.       (setq p1 (list (+ x1 w1 elevspc) y1))         
    
60.       (setq w1 (getdist "\n 墙面的宽度: "))
    
61.    (Setvar "CMDECHO" 1)
    
62.    (princ)))
    
63. 
    
64. (defun c:qq()
    
65.   (setvar "CMDECHO" 0)
    
66.   (Setq oldos (getvar "osmode"))
    
67.   (ok_qq)
    
68.   (draw_qq)
    
69.   (Setvar "osmode" oldos)
    
70.   (Setvar "CMDECHO" 1)
    
71.   (princ)
    
72. )
    

(defun ok_qq()<br />   (setq unht    (getreal "层高")<br /> sty     (getreal "层数")<br /> elevspc (getreal "间距")<br /> downwin (getreal "窗台高度")<br /> winht   (getreal "窗高")<br /> winjj   (getreal "窗径宽度")<br /> nvht    (getreal "女儿墙高度")<br /> ))<br /> <br /> (defun draw_qq()<br />    (setq p1      (getpoint "\n 取一个点:  "))<br />    (setq w1 (getdist "\n 墙面的宽度: "))<br />    (while w1<br />    (setq x1 (car p1)<br />          y1 (cadr p1)<br />          p4 (polar p1 (/ pi 2) unht)<br />          )<br />     (setvar "OSMODE" 0)<br />     (command "-layer" "s" "1" "")<br />     (command "_.rectang" p1 (strcat "@" (rtos w1 2) "," (rtos (+ (* unht sty) nvht) 2)))<br />    (repeat (fix sty)<br />          (command "-layer" "s" "2" "")<br />      (command "line" p4 (strcat "@" (rtos w1 2) "<" "0" ) "")<br />         (setq p4 (polar p4 (/ pi 2) unht))<br /> )<br />     (setvar "OSMODE" oldos)<br />   ;绘制窗户<br />    (setq c1 (getdist "\n 窗户的宽度: "))<br /> (while c1 <br />    (setq wp1 (getdist "\n 窗户到左边的距离: "))<br />    (setq p2 (list (+ x1 wp1) (+ y1 downwin)))<br />       (setvar "OSMODE" 0)<br />   (repeat (fix sty)<br />         (command "-layer" "s" "7" "")<br />    (command "_.rectang" p2 (strcat "@" (rtos c1 2) "," (rtos winht 2)))<br />     (setq x2 (car p2)<br />           y2 (cadr p2)<br />           x3 (+ x2 winjj)<br />           y3 (+ y2 winjj)<br />           nn (- winht (* winjj 2))<br />           n  (/ (- c1 (* winjj 2)) 2)<br />           x5 (+ x3 n)<br />           p3 (list x3 y3)<br />           p5 (list x5 y3)<br />           )<br />       (command "-layer" "s" "6" "")  <br />    (command "_.rectang" p3 (strcat "@" (rtos (- c1 (* winjj 2)) 2) "," (rtos nn 2)))<br />    (command "line" p5 (strcat "@" (rtos nn 2) "<" "90" ) "")   <br />    (setq p2 (polar p2 (/ pi 2) unht))<br />    (setq p3 (polar p3 (/ pi 2) unht))<br />    (setq p5 (polar p5 (/ pi 2) unht))            <br />    )<br />       (setvar "OSMODE" oldos)<br />    (setq c1 (getdist "\n 窗户的宽度: "))<br /> )<br /> ;新的墙面起点      <br />       (setq p1 (list (+ x1 w1 elevspc) y1))          <br />       (setq w1 (getdist "\n 墙面的宽度: "))<br />    (Setvar "CMDECHO" 1)<br />    (princ)))<br /> <br /> (defun c:qq()<br />   (setvar "CMDECHO" 0)<br />   (Setq oldos (getvar "osmode"))<br />   (ok_qq)<br />   (draw_qq)<br />   (Setvar "osmode" oldos)<br />   (Setvar "CMDECHO" 1)<br />   (princ)<br /> )<br />

hhh454

下面是代码实现的截屏



这个是cad文件

hhh454

我弄的很基础，希望高手支招，能够实现我的思路就好了，先谢谢了

cnks

保安亭是小区门口的小房子么？

hhh454

cnks 发表于 2011-12-24 02:41
保安亭是小区门口的小房子么？

是的，能否帮忙优化，谢谢我这个全是手动的，应该可以根据多义线交点的关系得出窗户和门的点

谢谢

赞一个，新手能这样，不错了，我也是新手，学习中。

hhh454

开心帮忙看看吧！command 建议用 entmake ，这个我不会弄，因为常用的都是command，初学的，帮忙得出那两个交点，谢谢

hhh454

谢谢，kaixin，我去看看

hhh454

1. (entmake         '(  (0 . "CIRCLE")        图元形态   
   
2. 
   
3.                        (62 . 1)                     颜色
   
4. 
   
5.                        (10 4.0 4.0 0.0)             圆心
   
6. 
   
7.                        (40 . 1.0)                   半径
   
8. 
   
9.                        )
   
10. 
    
11.       )
    

复制代码