衣柜立面绘制工具源码共享（福州缔维装饰）

xyp1964

代码因版本不同可能需要修改完善

1993063

ld80721 发表于 2016-10-29 03:08
;————————————————————————————————
;│                  ■绘制平面柜 ...

2. ;坛子里找个简单代码,类似达到效果
   
3. (defun c:tt ( / _line )
   
4.   (defun _line (lst)
   
5.     (mapcar '(lambda (a b)(entmakex (list '(0 . "LINE") (cons 10 a) (cons 11 b)))) lst (cdr lst))
   
6.   )
   
7.   (while (and (setq n (Cond ((getint(strcat "\n等分数["(itoa(setq n(Cond ( n )( 5 ))))"] ")))( n )))
   
8.               (setq p1 (getpoint "\n第一角点 :"))
   
9.               (setq p2 (getcorner p1 "\n另一角点 :"))
   
10.          )
    
11.     (setq dx (abs (- (car p2) (car p1)))
    
12.           dy (abs (- (cadr p2) (cadr p1)))
    
13.     )
    
14.     (setq ptm (list (min (car p1) (car p2)) (min (cadr p1) (cadr p2)))
    
15.           p2  (list (max (car p1) (car p2)) (max (cadr p1) (cadr p2)))
    
16.           p1  ptm
    
17.     )
    
18.     (if        (> dx dy)
    
19.       (progn
    
20.         (setq dd (/ dx n))
    
21.         (repeat        n
    
22.           (setq        p3 (polar p1 0 dd)
    
23.                 p4 (polar p1 (/ pi 2) dy)
    
24.                 p5 (polar p4 0 dd)
    
25.           )
    
26.           (_LINE (list p1 p3 p4 p5 p1 p4))
    
27.           (setq p1 p3)
    
28.         )
    
29.       )
    
30.       (progn
    
31.         (setq dd (/ dy n))
    
32.         (repeat        n
    
33.           (setq        p3 (polar p1 (/ pi 2) dd)
    
34.                 p4 (polar p1 0 dx)
    
35.                 p5 (polar p3 0 dx)
    
36.           )
    
37.           (_LINE (list p1 p3 p4 p5 p1 p4))
    
38.           (setq p1 p3)
    
39.         )
    
40.       )
    
41.     )
    
42.     (_LINE (list p3 p5))
    
43.   )
    
44.   (princ)
    
45. )

;坛子里找个简单代码,类似达到效果<br /> (defun c:tt ( / _line )<br />   (defun _line (lst)<br />     (mapcar '(lambda (a b)(entmakex (list '(0 . "LINE") (cons 10 a) (cons 11 b)))) lst (cdr lst))<br />   )<br />   (while (and (setq n (Cond ((getint(strcat "\n等分数["(itoa(setq n(Cond ( n )( 5 ))))"] ")))( n )))<br />               (setq p1 (getpoint "\n第一角点 :"))<br />               (setq p2 (getcorner p1 "\n另一角点 :"))<br />          )<br />     (setq dx (abs (- (car p2) (car p1)))<br />           dy (abs (- (cadr p2) (cadr p1)))<br />     )<br />     (setq ptm (list (min (car p1) (car p2)) (min (cadr p1) (cadr p2)))<br />           p2  (list (max (car p1) (car p2)) (max (cadr p1) (cadr p2)))<br />           p1  ptm<br />     )<br />     (if        (> dx dy)<br />       (progn<br />         (setq dd (/ dx n))<br />         (repeat        n<br />           (setq        p3 (polar p1 0 dd)<br />                 p4 (polar p1 (/ pi 2) dy)<br />                 p5 (polar p4 0 dd)<br />           )<br />           (_LINE (list p1 p3 p4 p5 p1 p4))<br />           (setq p1 p3)<br />         )<br />       )<br />       (progn<br />         (setq dd (/ dy n))<br />         (repeat        n<br />           (setq        p3 (polar p1 (/ pi 2) dd)<br />                 p4 (polar p1 0 dx)<br />                 p5 (polar p3 0 dx)<br />           )<br />           (_LINE (list p1 p3 p4 p5 p1 p4))<br />           (setq p1 p3)<br />         )<br />       )<br />     )<br />     (_LINE (list p3 p5))<br />   )<br />   (princ)<br /> )

15948258510

感谢分享

Lewis

虽然用不上 感谢楼主分享

Yea

每次运行捕捉会关闭了。是要加个什么命令来着？

骑着蜗牛旅行666

谢谢楼主热情分享了

qhdycm2017

谢谢楼主顶一下

zhangcan0515

谢谢楼主的热心分享

Yea

简单的板式衣柜画起来方便多了

尒樣僮

这个是好东西  我正能用上