lisp代码 求大侠加一下循环

jly0406

下边的命令能实现点选矩形画窗扇，我是个菜鸟，只会简单拼凑代码，自己加循环老是出错 ，请教大侠如何加循环，能实现一次性选几十个矩形然后都画出窗扇呢，这个对我很重要，感激万分

(defun c:zs () ;左窗扇命令****************************************************************
(setvar "CMDECHO" 0)  (command ".undo" "g")
(setq kxmian 30 mkxmian 35 ztxmian 30 csxmian 41.5 msxmian 67 ktxingshi 2
       dajie 11 dajief2 5.5 blfx 7)
(setq ss (ssget '((0 . "LWPOLYLINE"))) i 0);选择多线段
(setvar "pdmode" 33)
(setvar "osmode" 0)
(setq plst (list))
(repeat (sslength ss)
  (setq ssn (ssname ss i) endata (entget ssn))
  (foreach x endata (if (= (car x) 10) (setq plst (cons (cdr x) plst))))
  (setq i (1+ i))
)
(setq tx (apply 'min (mapcar 'car plst)))
(setq ty (apply 'min (mapcar 'cadr plst)))
(setq tmaxx (apply 'max (mapcar 'car plst)))
(setq tmaxy (apply 'max (mapcar 'cadr plst)))
;LISP矩形坐标提取*********************************
(setq waiweiw (- tmaxx tx) waiweih (- tmaxy ty))
(setq pa (list tx ty))
(setq ww waiweiw hh waiweih)
  
(setq tmp (polar pa pi dajief2)
       wpa (polar tmp (/ pi -2) dajief2)
       wpb (polar wpa 0 (+ ww dajie))
       wpc (polar wpb (/ pi 2) (+ hh dajie))
       wpd (polar wpc pi (+ ww dajie))) ;计算
(command ".pline" wpa wpb wpc wpd "c")
(setq pb (polar pa 0 ww)  pc (polar pb (/ pi 2) hh) pd (polar pc pi ww)) ;计算
(setq tmp (polar pa 0 csxmian)) ;计算
(setq mp1 (polar tmp (/ pi 2) csxmian))
(setq mp2 (polar mp1 0 (- ww (* 2 csxmian))))
(setq mp3 (polar mp2 (/ pi 2) (- hh (* 2 csxmian))))
(setq mp4 (polar mp3 pi (- ww (* 2 csxmian))))
  
(sk_mkpl (list mp1 mp2 mp3 mp4) "细线5" 256 1)  
(command ".line" wpa mp1 "" ".line" wpb mp2 "" ".line" wpc mp3 "" ".line" wpd mp4 "")
   
(setq cblfx (- blfx 0))
(setq tmp2 (polar mp1 0 cblfx)  ;窗扇槽深
        bp1 (polar tmp2 (/ pi 2) cblfx)
        bp2 (polar bp1 0 (- (- ww (* 2 csxmian)) (* 2 cblfx)))
        bp3 (polar bp2 (/ pi 2) (- (- hh (* 2 csxmian)) (* 2 cblfx)))
        bp4 (polar bp3 pi (- (- ww (* 2 csxmian)) (* 2 cblfx))))
(sk_mkpl (list bp1 bp2 bp3 bp4) "细线1" 256 1)

(setq tmp3 (polar mp1 0 22))
(setq yp1 (polar tmp3 (/ pi 2) 22)
       yp2 (polar yp1 0 (- (- ww (* 2 csxmian)) (* 2 22)))
       yp3 (polar yp2 (/ pi 2) (- (- hh (* 2 csxmian)) (* 2 22)))
       yp4 (polar yp3 pi (- (- ww (* 2 csxmian)) (* 2 22))))

(setq lin1 (polar mp1 (/ pi 2) 22)) (setq lin2 (polar mp2 (/ pi 2) 22))
(setq lin3 (polar mp3 (/ pi -2) 22)) (setq lin4 (polar mp4 (/ pi -2) 22))
(if (= ktxingshi 1)
     (command ".line" lin1 lin2 "" ".line" lin4 lin3 "" ".line" yp2 yp3 "" ".line" yp4 yp1 "")
     (progn
      (sk_mkpl (list yp1 yp2 yp3 yp4) "细线5" 256 1)  
      (command ".line" yp1 mp1 "" ".line" yp2 mp2 "" ".line" yp3 mp3 "" ".line" yp4 mp4 "")
     )
)
(setq zd1 (polar yp1 (/ pi 2) (/(- (- hh (* 2 csxmian)) (* 2 22)) 2)))
(sk_mkpl (list yp3 zd1 yp2) "细线5" 256 1)

(setq peijian1 (polar pd (/ pi -2) 149));加入配件合页
(setq peijian2 (polar pa (/ pi 2) 149))
(setq peijian3 (polar pb (/ pi 2) (/ hh 2)))
(setq a1 "heye" a2 "czhishou")
(command "insert" a1 peijian1 1 1 0) (command "insert" a1 peijian2 1 1 0) (command "insert" a2 peijian3 1 1 0)
(command "LAYER" "SET" "细线5" "")
(setvar "OSMODE" 16383) (command ".undo" "e")
(princ)
)

;;;(setvar "clayer" "细线5") ;设置当前图层
;;;简单entmake生成直线&直线型多段线函数
;;;by edata @2014-1-10
;;;p10 起点 p11终点  l_lay "图层名" l_col 0-256
(defun sk_mkline(p10 p11 l_lay l_col)
  (entmake(list '(0 . "line")
                (cons 8 l_lay)
                (cons 62 l_col)
                (cons 10 p10)
                (cons 11 p11)
                ))
  )
;;;pts 多段线点表 l_lay "图层名" l_col 0-256 l_closed 1关闭 0打开
(defun sk_mkpl(pts l_lay l_col l_closed / pt)
   (entmake (append
              (list '(0 . "LWPOLYLINE")
                    '(100 . "AcDbEntity")
                    '(100 . "AcDbPolyline")
                    (cons 8 l_lay)
                    (cons 62 l_col)
                    (cons 90 (length pts))
                    (cons 70 l_closed)
                    )
      (mapcar '(lambda (pt)(cons 10 pt)) pts ))
  )
)

edata

-----------------------还有一个地方，将(setq plst (list))
放置到repeat中。。另外，最后一个图层切换用(setvar "clayer" "细线5") ;设置当前图层
如果使用enmake生成线，不需要切换当前图层，
只有插入块的地方，需要切换，
插入块也可以用entmake生成，所以到最后，图层都不需要更改。

2. (defun c:zs () ;左窗扇命令****************************************************************
   
3. (setvar "CMDECHO" 0)  (command ".undo" "g")
   
4. (setq kxmian 30 mkxmian 35 ztxmian 30 csxmian 41.5 msxmian 67 ktxingshi 2
   
5.        dajie 11 dajief2 5.5 blfx 7)
   
6. (setq ss (ssget '((0 . "LWPOLYLINE"))) i 0);选择多线段
   
7. (setvar "pdmode" 33)
   
8. (setvar "osmode" 0)
   
9. 
   
10. (repeat (sslength ss)
    
11.   (setq plst (list))
    
12.   (setq ssn (ssname ss i) endata (entget ssn))
    
13.   (foreach x endata (if (= (car x) 10) (setq plst (cons (cdr x) plst))))
    
14.   (setq i (1+ i))
    
15. 
    
16. (setq tx (apply 'min (mapcar 'car plst)))
    
17. (setq ty (apply 'min (mapcar 'cadr plst)))
    
18. (setq tmaxx (apply 'max (mapcar 'car plst)))
    
19. (setq tmaxy (apply 'max (mapcar 'cadr plst)))
    
20. ;LISP矩形坐标提取*********************************
    
21. (setq waiweiw (- tmaxx tx) waiweih (- tmaxy ty))
    
22. (setq pa (list tx ty))
    
23. (setq ww waiweiw hh waiweih)
    
24.   
    
25. (setq tmp (polar pa pi dajief2)
    
26.        wpa (polar tmp (/ pi -2) dajief2)
    
27.        wpb (polar wpa 0 (+ ww dajie))
    
28.        wpc (polar wpb (/ pi 2) (+ hh dajie))
    
29.        wpd (polar wpc pi (+ ww dajie))) ;计算
    
30. (command ".pline" wpa wpb wpc wpd "c")
    
31. (setq pb (polar pa 0 ww)  pc (polar pb (/ pi 2) hh) pd (polar pc pi ww)) ;计算
    
32. (setq tmp (polar pa 0 csxmian)) ;计算
    
33. (setq mp1 (polar tmp (/ pi 2) csxmian))
    
34. (setq mp2 (polar mp1 0 (- ww (* 2 csxmian))))
    
35. (setq mp3 (polar mp2 (/ pi 2) (- hh (* 2 csxmian))))
    
36. (setq mp4 (polar mp3 pi (- ww (* 2 csxmian))))
    
37.   
    
38. (sk_mkpl (list mp1 mp2 mp3 mp4) "细线5" 256 1)  
    
39. (command ".line" wpa mp1 "" ".line" wpb mp2 "" ".line" wpc mp3 "" ".line" wpd mp4 "")
    
40.    
    
41. (setq cblfx (- blfx 0))
    
42. (setq tmp2 (polar mp1 0 cblfx)  ;窗扇槽深
    
43.         bp1 (polar tmp2 (/ pi 2) cblfx)
    
44.         bp2 (polar bp1 0 (- (- ww (* 2 csxmian)) (* 2 cblfx)))
    
45.         bp3 (polar bp2 (/ pi 2) (- (- hh (* 2 csxmian)) (* 2 cblfx)))
    
46.         bp4 (polar bp3 pi (- (- ww (* 2 csxmian)) (* 2 cblfx))))
    
47. (sk_mkpl (list bp1 bp2 bp3 bp4) "细线1" 256 1)
    
48. 
    
49. (setq tmp3 (polar mp1 0 22))
    
50. (setq yp1 (polar tmp3 (/ pi 2) 22)
    
51.        yp2 (polar yp1 0 (- (- ww (* 2 csxmian)) (* 2 22)))
    
52.        yp3 (polar yp2 (/ pi 2) (- (- hh (* 2 csxmian)) (* 2 22)))
    
53.        yp4 (polar yp3 pi (- (- ww (* 2 csxmian)) (* 2 22))))
    
54. 
    
55. (setq lin1 (polar mp1 (/ pi 2) 22)) (setq lin2 (polar mp2 (/ pi 2) 22))
    
56. (setq lin3 (polar mp3 (/ pi -2) 22)) (setq lin4 (polar mp4 (/ pi -2) 22))
    
57. (if (= ktxingshi 1)
    
58.      (command ".line" lin1 lin2 "" ".line" lin4 lin3 "" ".line" yp2 yp3 "" ".line" yp4 yp1 "")
    
59.      (progn
    
60.       (sk_mkpl (list yp1 yp2 yp3 yp4) "细线5" 256 1)  
    
61.       (command ".line" yp1 mp1 "" ".line" yp2 mp2 "" ".line" yp3 mp3 "" ".line" yp4 mp4 "")
    
62.      )
    
63. )
    
64. (setq zd1 (polar yp1 (/ pi 2) (/(- (- hh (* 2 csxmian)) (* 2 22)) 2)))
    
65. (sk_mkpl (list yp3 zd1 yp2) "细线5" 256 1)
    
66. 
    
67. (setq peijian1 (polar pd (/ pi -2) 149));加入配件合页
    
68. (setq peijian2 (polar pa (/ pi 2) 149))
    
69. (setq peijian3 (polar pb (/ pi 2) (/ hh 2)))
    
70. (setq a1 "heye" a2 "czhishou")
    
71. (command "insert" a1 peijian1 1 1 0) (command "insert" a1 peijian2 1 1 0) (command "insert" a2 peijian3 1 1 0)
    
72. (setvar "clayer" "细线5") ;设置当前图层
    
73.   )
    
74. (setvar "OSMODE" 16383) (command ".undo" "e")
    
75. (princ)
    
76. )
    
77. 
    
78. ;;;(setvar "clayer" "细线5") ;设置当前图层
    
79. ;;;简单entmake生成直线&直线型多段线函数
    
80. ;;;by edata @2014-1-10
    
81. ;;;p10 起点 p11终点  l_lay "图层名" l_col 0-256
    
82. (defun sk_mkline(p10 p11 l_lay l_col)
    
83.   (entmake(list '(0 . "line")
    
84.                 (cons 8 l_lay)
    
85.                 (cons 62 l_col)
    
86.                 (cons 10 p10)
    
87.                 (cons 11 p11)
    
88.                 ))
    
89.   )
    
90. ;;;pts 多段线点表 l_lay "图层名" l_col 0-256 l_closed 1关闭 0打开
    
91. (defun sk_mkpl(pts l_lay l_col l_closed / pt)
    
92.    (entmake (append
    
93.               (list '(0 . "LWPOLYLINE")
    
94.                     '(100 . "AcDbEntity")
    
95.                     '(100 . "AcDbPolyline")
    
96.                     (cons 8 l_lay)
    
97.                     (cons 62 l_col)
    
98.                     (cons 90 (length pts))
    
99.                     (cons 70 l_closed)
    
100.                     )
     
101.       (mapcar '(lambda (pt)(cons 10 pt)) pts ))
     
102.   )
     
103. )

(defun c:zs () ;左窗扇命令****************************************************************<br /> (setvar "CMDECHO" 0)  (command ".undo" "g")<br /> (setq kxmian 30 mkxmian 35 ztxmian 30 csxmian 41.5 msxmian 67 ktxingshi 2<br />        dajie 11 dajief2 5.5 blfx 7)<br /> (setq ss (ssget '((0 . "LWPOLYLINE"))) i 0);选择多线段<br /> (setvar "pdmode" 33)<br /> (setvar "osmode" 0)<br /> <br /> (repeat (sslength ss)<br />   (setq plst (list))<br />   (setq ssn (ssname ss i) endata (entget ssn))<br />   (foreach x endata (if (= (car x) 10) (setq plst (cons (cdr x) plst))))<br />   (setq i (1+ i))<br /> <br /> (setq tx (apply 'min (mapcar 'car plst)))<br /> (setq ty (apply 'min (mapcar 'cadr plst)))<br /> (setq tmaxx (apply 'max (mapcar 'car plst)))<br /> (setq tmaxy (apply 'max (mapcar 'cadr plst)))<br /> ;LISP矩形坐标提取*********************************<br /> (setq waiweiw (- tmaxx tx) waiweih (- tmaxy ty))<br /> (setq pa (list tx ty))<br /> (setq ww waiweiw hh waiweih)<br />   <br /> (setq tmp (polar pa pi dajief2)<br />        wpa (polar tmp (/ pi -2) dajief2)<br />        wpb (polar wpa 0 (+ ww dajie))<br />        wpc (polar wpb (/ pi 2) (+ hh dajie))<br />        wpd (polar wpc pi (+ ww dajie))) ;计算<br /> (command ".pline" wpa wpb wpc wpd "c")<br /> (setq pb (polar pa 0 ww)  pc (polar pb (/ pi 2) hh) pd (polar pc pi ww)) ;计算 <br /> (setq tmp (polar pa 0 csxmian)) ;计算 <br /> (setq mp1 (polar tmp (/ pi 2) csxmian))<br /> (setq mp2 (polar mp1 0 (- ww (* 2 csxmian))))<br /> (setq mp3 (polar mp2 (/ pi 2) (- hh (* 2 csxmian))))<br /> (setq mp4 (polar mp3 pi (- ww (* 2 csxmian))))<br />   <br /> (sk_mkpl (list mp1 mp2 mp3 mp4) "细线5" 256 1)  <br /> (command ".line" wpa mp1 "" ".line" wpb mp2 "" ".line" wpc mp3 "" ".line" wpd mp4 "")<br />     <br /> (setq cblfx (- blfx 0))<br /> (setq tmp2 (polar mp1 0 cblfx)  ;窗扇槽深<br />         bp1 (polar tmp2 (/ pi 2) cblfx)<br />         bp2 (polar bp1 0 (- (- ww (* 2 csxmian)) (* 2 cblfx)))<br />         bp3 (polar bp2 (/ pi 2) (- (- hh (* 2 csxmian)) (* 2 cblfx)))<br />         bp4 (polar bp3 pi (- (- ww (* 2 csxmian)) (* 2 cblfx))))<br /> (sk_mkpl (list bp1 bp2 bp3 bp4) "细线1" 256 1)<br /> <br /> (setq tmp3 (polar mp1 0 22))<br /> (setq yp1 (polar tmp3 (/ pi 2) 22)<br />        yp2 (polar yp1 0 (- (- ww (* 2 csxmian)) (* 2 22)))<br />        yp3 (polar yp2 (/ pi 2) (- (- hh (* 2 csxmian)) (* 2 22)))<br />        yp4 (polar yp3 pi (- (- ww (* 2 csxmian)) (* 2 22))))<br /> <br /> (setq lin1 (polar mp1 (/ pi 2) 22)) (setq lin2 (polar mp2 (/ pi 2) 22)) <br /> (setq lin3 (polar mp3 (/ pi -2) 22)) (setq lin4 (polar mp4 (/ pi -2) 22))<br /> (if (= ktxingshi 1)<br />      (command ".line" lin1 lin2 "" ".line" lin4 lin3 "" ".line" yp2 yp3 "" ".line" yp4 yp1 "")<br />      (progn<br />       (sk_mkpl (list yp1 yp2 yp3 yp4) "细线5" 256 1)  <br />       (command ".line" yp1 mp1 "" ".line" yp2 mp2 "" ".line" yp3 mp3 "" ".line" yp4 mp4 "")<br />      )<br /> )<br /> (setq zd1 (polar yp1 (/ pi 2) (/(- (- hh (* 2 csxmian)) (* 2 22)) 2)))<br /> (sk_mkpl (list yp3 zd1 yp2) "细线5" 256 1) <br /> <br /> (setq peijian1 (polar pd (/ pi -2) 149));加入配件合页<br /> (setq peijian2 (polar pa (/ pi 2) 149))<br /> (setq peijian3 (polar pb (/ pi 2) (/ hh 2)))<br /> (setq a1 "heye" a2 "czhishou")<br /> (command "insert" a1 peijian1 1 1 0) (command "insert" a1 peijian2 1 1 0) (command "insert" a2 peijian3 1 1 0)<br /> (setvar "clayer" "细线5") ;设置当前图层<br />   )<br /> (setvar "OSMODE" 16383) (command ".undo" "e")<br /> (princ)<br /> )<br /> <br /> ;;;(setvar "clayer" "细线5") ;设置当前图层<br /> ;;;简单entmake生成直线&直线型多段线函数<br /> ;;;by edata @2014-1-10 <br /> ;;;p10 起点 p11终点  l_lay "图层名" l_col 0-256 <br /> (defun sk_mkline(p10 p11 l_lay l_col)<br />   (entmake(list '(0 . "line")<br />                 (cons 8 l_lay)<br />                 (cons 62 l_col)<br />                 (cons 10 p10)<br />                 (cons 11 p11)<br />                 ))<br />   )<br /> ;;;pts 多段线点表 l_lay "图层名" l_col 0-256 l_closed 1关闭 0打开<br /> (defun sk_mkpl(pts l_lay l_col l_closed / pt)<br />    (entmake (append<br />               (list '(0 . "LWPOLYLINE")<br />                     '(100 . "AcDbEntity")<br />                     '(100 . "AcDbPolyline")<br />                     (cons 8 l_lay)<br />                     (cons 62 l_col)<br />                     (cons 90 (length pts))<br />                     (cons 70 l_closed)<br />                     )<br />       (mapcar '(lambda (pt)(cons 10 pt)) pts ))<br />   )<br /> )

edata

没记错的话，应该是将你的repeat的结束括号移动(setvar "osmode"16383)之前。

edata

entmake图块版
因为entmake生成的时候，设置了图层，如果图层不存在，会自动建立图层，除了层名，
其他的都是默认，图块名一定要存在，不然图块不插入。

2. (defun c:zs () ;左窗扇命令****************************************************************
   
3. (setvar "CMDECHO" 0)  (command ".undo" "g")
   
4. (setq kxmian 30 mkxmian 35 ztxmian 30 csxmian 41.5 msxmian 67 ktxingshi 2
   
5.        dajie 11 dajief2 5.5 blfx 7)
   
6. (setq ss (ssget '((0 . "LWPOLYLINE"))) i 0);选择多线段
   
7. (setvar "pdmode" 33)
   
8. (setvar "osmode" 0)
   
9. (if ss
   
10. (repeat (sslength ss)
    
11.   (setq plst (list))
    
12.   (setq ssn (ssname ss i) endata (entget ssn))
    
13.   (foreach x endata (if (= (car x) 10) (setq plst (cons (cdr x) plst))))
    
14.   (setq i (1+ i))
    
15. 
    
16. (setq tx (apply 'min (mapcar 'car plst)))
    
17. (setq ty (apply 'min (mapcar 'cadr plst)))
    
18. (setq tmaxx (apply 'max (mapcar 'car plst)))
    
19. (setq tmaxy (apply 'max (mapcar 'cadr plst)))
    
20. ;LISP矩形坐标提取*********************************
    
21. (setq waiweiw (- tmaxx tx) waiweih (- tmaxy ty))
    
22. (setq pa (list tx ty))
    
23. (setq ww waiweiw hh waiweih)
    
24.   
    
25. (setq tmp (polar pa pi dajief2)
    
26.        wpa (polar tmp (/ pi -2) dajief2)
    
27.        wpb (polar wpa 0 (+ ww dajie))
    
28.        wpc (polar wpb (/ pi 2) (+ hh dajie))
    
29.        wpd (polar wpc pi (+ ww dajie))) ;计算
    
30.   (sk_mkpl (list wpa wpb wpc wpd) "细线5" 256 1)
    
31. ;(command ".pline" wpa wpb wpc wpd "c")
    
32. (setq pb (polar pa 0 ww)  pc (polar pb (/ pi 2) hh) pd (polar pc pi ww)) ;计算
    
33. (setq tmp (polar pa 0 csxmian)) ;计算
    
34. (setq mp1 (polar tmp (/ pi 2) csxmian))
    
35. (setq mp2 (polar mp1 0 (- ww (* 2 csxmian))))
    
36. (setq mp3 (polar mp2 (/ pi 2) (- hh (* 2 csxmian))))
    
37. (setq mp4 (polar mp3 pi (- ww (* 2 csxmian))))
    
38.   
    
39. (sk_mkpl (list mp1 mp2 mp3 mp4) "细线5" 256 1)
    
40. (foreach n (list(list wpa mp1)(list wpb mp2)(list wpc mp3)(list wpd mp4)) (sk_mkline (car n)(cadr n) "细线5" 256))
    
41. ;(command ".line" wpa mp1 "" ".line" wpb mp2 "" ".line" wpc mp3 "" ".line" wpd mp4 "")
    
42.    
    
43. (setq cblfx (- blfx 0))
    
44. (setq tmp2 (polar mp1 0 cblfx)  ;窗扇槽深
    
45.         bp1 (polar tmp2 (/ pi 2) cblfx)
    
46.         bp2 (polar bp1 0 (- (- ww (* 2 csxmian)) (* 2 cblfx)))
    
47.         bp3 (polar bp2 (/ pi 2) (- (- hh (* 2 csxmian)) (* 2 cblfx)))
    
48.         bp4 (polar bp3 pi (- (- ww (* 2 csxmian)) (* 2 cblfx))))
    
49. (sk_mkpl (list bp1 bp2 bp3 bp4) "细线1" 256 1)
    
50. 
    
51. (setq tmp3 (polar mp1 0 22))
    
52. (setq yp1 (polar tmp3 (/ pi 2) 22)
    
53.        yp2 (polar yp1 0 (- (- ww (* 2 csxmian)) (* 2 22)))
    
54.        yp3 (polar yp2 (/ pi 2) (- (- hh (* 2 csxmian)) (* 2 22)))
    
55.        yp4 (polar yp3 pi (- (- ww (* 2 csxmian)) (* 2 22))))
    
56. 
    
57. (setq lin1 (polar mp1 (/ pi 2) 22)) (setq lin2 (polar mp2 (/ pi 2) 22))
    
58. (setq lin3 (polar mp3 (/ pi -2) 22)) (setq lin4 (polar mp4 (/ pi -2) 22))
    
59. (if (= ktxingshi 1)
    
60.   (foreach n (list(list lin1 lin2)(list lin4 lin3)(list yp2 yp3)(list yp4 yp1)) (sk_mkline (car n)(cadr n) "细线5" 256))
    
61.      ;(command ".line" lin1 lin2 "" ".line" lin4 lin3 "" ".line" yp2 yp3 "" ".line" yp4 yp1 "")
    
62.      (progn
    
63.       (sk_mkpl (list yp1 yp2 yp3 yp4) "细线5" 256 1)
    
64.       (foreach n (list(list yp1 mp1)(list yp2 mp2)(list yp3 mp3)(list yp4 mp4)) (sk_mkline (car n)(cadr n) "细线5" 256))
    
65.       ;(command ".line" yp1 mp1 "" ".line" yp2 mp2 "" ".line" yp3 mp3 "" ".line" yp4 mp4 "")
    
66.      )
    
67. )
    
68. (setq zd1 (polar yp1 (/ pi 2) (/(- (- hh (* 2 csxmian)) (* 2 22)) 2)))
    
69. (sk_mkpl (list yp3 zd1 yp2) "细线5" 256 0);不闭合0
    
70. 
    
71. (setq peijian1 (polar pd (/ pi -2) 149));加入配件合页
    
72. (setq peijian2 (polar pa (/ pi 2) 149))
    
73. (setq peijian3 (polar pb (/ pi 2) (/ hh 2)))
    
74. (setq a1 "heye" a2 "czhishou")
    
75.   (mk_blk a1 peijian1 "配件" 256)
    
76.   (mk_blk a1 peijian2 "配件" 256)
    
77.   (mk_blk a2 peijian3 "配件" 256)  
    
78. ;(setvar "clayer" "细线5") ;设置当前图层
    
79.   )
    
80.   )
    
81. (setvar "OSMODE" 16383) (command ".undo" "e")
    
82. (princ)
    
83. )
    
84. 
    
85. ;;;(setvar "clayer" "细线5") ;设置当前图层
    
86. ;;;简单entmake生成直线&直线型多段线函数
    
87. ;;;by edata @2014-1-10
    
88. ;;;p10 起点 p11终点  l_lay "图层名" l_col 0-256
    
89. (defun sk_mkline(p10 p11 l_lay l_col)
    
90.   (entmake(list '(0 . "line")
    
91.                 (cons 8 l_lay)
    
92.                 (cons 62 l_col)
    
93.                 (cons 10 p10)
    
94.                 (cons 11 p11)
    
95.                 ))
    
96.   )
    
97. ;;;pts 多段线点表 l_lay "图层名" l_col 0-256 l_closed 1关闭 0打开
    
98. (defun sk_mkpl(pts l_lay l_col l_closed / pt)
    
99.    (entmake (append
    
100.               (list '(0 . "LWPOLYLINE")
     
101.                     '(100 . "AcDbEntity")
     
102.                     '(100 . "AcDbPolyline")
     
103.                     (cons 8 l_lay)
     
104.                     (cons 62 l_col)
     
105.                     (cons 90 (length pts))
     
106.                     (cons 70 l_closed)
     
107.                     )
     
108.       (mapcar '(lambda (pt)(cons 10 pt)) pts ))
     
109.   )
     
110. )
     
111. ;;;插入普通块简单版
     
112. ;;;lk_name "块名" ipt 插入点 l_lay "图层名" l_col 0-256颜色
     
113. (defun mk_blk(blk_name ipt l_lay l_col)
     
114.   (entmake (list '(0 . "INSERT")
     
115.                  (cons 8 l_lay)
     
116.                  (cons 62 l_col)
     
117.                  (cons 2 blk_name)
     
118.                  (cons 10 ipt)
     
119.                  )
     
120.            )
     
121.   )

(defun c:zs () ;左窗扇命令****************************************************************<br /> (setvar "CMDECHO" 0)  (command ".undo" "g")<br /> (setq kxmian 30 mkxmian 35 ztxmian 30 csxmian 41.5 msxmian 67 ktxingshi 2<br />        dajie 11 dajief2 5.5 blfx 7)<br /> (setq ss (ssget '((0 . "LWPOLYLINE"))) i 0);选择多线段<br /> (setvar "pdmode" 33)<br /> (setvar "osmode" 0)<br /> (if ss<br /> (repeat (sslength ss)<br />   (setq plst (list))<br />   (setq ssn (ssname ss i) endata (entget ssn))<br />   (foreach x endata (if (= (car x) 10) (setq plst (cons (cdr x) plst))))<br />   (setq i (1+ i))<br /> <br /> (setq tx (apply 'min (mapcar 'car plst)))<br /> (setq ty (apply 'min (mapcar 'cadr plst)))<br /> (setq tmaxx (apply 'max (mapcar 'car plst)))<br /> (setq tmaxy (apply 'max (mapcar 'cadr plst)))<br /> ;LISP矩形坐标提取*********************************<br /> (setq waiweiw (- tmaxx tx) waiweih (- tmaxy ty))<br /> (setq pa (list tx ty))<br /> (setq ww waiweiw hh waiweih)<br />   <br /> (setq tmp (polar pa pi dajief2)<br />        wpa (polar tmp (/ pi -2) dajief2)<br />        wpb (polar wpa 0 (+ ww dajie))<br />        wpc (polar wpb (/ pi 2) (+ hh dajie))<br />        wpd (polar wpc pi (+ ww dajie))) ;计算<br />   (sk_mkpl (list wpa wpb wpc wpd) "细线5" 256 1)<br /> ;(command ".pline" wpa wpb wpc wpd "c")<br /> (setq pb (polar pa 0 ww)  pc (polar pb (/ pi 2) hh) pd (polar pc pi ww)) ;计算 <br /> (setq tmp (polar pa 0 csxmian)) ;计算 <br /> (setq mp1 (polar tmp (/ pi 2) csxmian))<br /> (setq mp2 (polar mp1 0 (- ww (* 2 csxmian))))<br /> (setq mp3 (polar mp2 (/ pi 2) (- hh (* 2 csxmian))))<br /> (setq mp4 (polar mp3 pi (- ww (* 2 csxmian))))<br />   <br /> (sk_mkpl (list mp1 mp2 mp3 mp4) "细线5" 256 1)<br /> (foreach n (list(list wpa mp1)(list wpb mp2)(list wpc mp3)(list wpd mp4)) (sk_mkline (car n)(cadr n) "细线5" 256))<br /> ;(command ".line" wpa mp1 "" ".line" wpb mp2 "" ".line" wpc mp3 "" ".line" wpd mp4 "")<br />     <br /> (setq cblfx (- blfx 0))<br /> (setq tmp2 (polar mp1 0 cblfx)  ;窗扇槽深<br />         bp1 (polar tmp2 (/ pi 2) cblfx)<br />         bp2 (polar bp1 0 (- (- ww (* 2 csxmian)) (* 2 cblfx)))<br />         bp3 (polar bp2 (/ pi 2) (- (- hh (* 2 csxmian)) (* 2 cblfx)))<br />         bp4 (polar bp3 pi (- (- ww (* 2 csxmian)) (* 2 cblfx))))<br /> (sk_mkpl (list bp1 bp2 bp3 bp4) "细线1" 256 1)<br /> <br /> (setq tmp3 (polar mp1 0 22))<br /> (setq yp1 (polar tmp3 (/ pi 2) 22)<br />        yp2 (polar yp1 0 (- (- ww (* 2 csxmian)) (* 2 22)))<br />        yp3 (polar yp2 (/ pi 2) (- (- hh (* 2 csxmian)) (* 2 22)))<br />        yp4 (polar yp3 pi (- (- ww (* 2 csxmian)) (* 2 22))))<br /> <br /> (setq lin1 (polar mp1 (/ pi 2) 22)) (setq lin2 (polar mp2 (/ pi 2) 22)) <br /> (setq lin3 (polar mp3 (/ pi -2) 22)) (setq lin4 (polar mp4 (/ pi -2) 22))<br /> (if (= ktxingshi 1)<br />   (foreach n (list(list lin1 lin2)(list lin4 lin3)(list yp2 yp3)(list yp4 yp1)) (sk_mkline (car n)(cadr n) "细线5" 256))<br />      ;(command ".line" lin1 lin2 "" ".line" lin4 lin3 "" ".line" yp2 yp3 "" ".line" yp4 yp1 "")<br />      (progn<br />       (sk_mkpl (list yp1 yp2 yp3 yp4) "细线5" 256 1)<br />       (foreach n (list(list yp1 mp1)(list yp2 mp2)(list yp3 mp3)(list yp4 mp4)) (sk_mkline (car n)(cadr n) "细线5" 256))<br />       ;(command ".line" yp1 mp1 "" ".line" yp2 mp2 "" ".line" yp3 mp3 "" ".line" yp4 mp4 "")<br />      )<br /> )<br /> (setq zd1 (polar yp1 (/ pi 2) (/(- (- hh (* 2 csxmian)) (* 2 22)) 2)))<br /> (sk_mkpl (list yp3 zd1 yp2) "细线5" 256 0);不闭合0 <br /> <br /> (setq peijian1 (polar pd (/ pi -2) 149));加入配件合页<br /> (setq peijian2 (polar pa (/ pi 2) 149))<br /> (setq peijian3 (polar pb (/ pi 2) (/ hh 2)))<br /> (setq a1 "heye" a2 "czhishou")<br />   (mk_blk a1 peijian1 "配件" 256)<br />   (mk_blk a1 peijian2 "配件" 256)<br />   (mk_blk a2 peijian3 "配件" 256)  <br /> ;(setvar "clayer" "细线5") ;设置当前图层<br />   )<br />   )<br /> (setvar "OSMODE" 16383) (command ".undo" "e")<br /> (princ)<br /> )<br /> <br /> ;;;(setvar "clayer" "细线5") ;设置当前图层<br /> ;;;简单entmake生成直线&直线型多段线函数<br /> ;;;by edata @2014-1-10 <br /> ;;;p10 起点 p11终点  l_lay "图层名" l_col 0-256 <br /> (defun sk_mkline(p10 p11 l_lay l_col)<br />   (entmake(list '(0 . "line")<br />                 (cons 8 l_lay)<br />                 (cons 62 l_col)<br />                 (cons 10 p10)<br />                 (cons 11 p11)<br />                 ))<br />   )<br /> ;;;pts 多段线点表 l_lay "图层名" l_col 0-256 l_closed 1关闭 0打开<br /> (defun sk_mkpl(pts l_lay l_col l_closed / pt)<br />    (entmake (append<br />               (list '(0 . "LWPOLYLINE")<br />                     '(100 . "AcDbEntity")<br />                     '(100 . "AcDbPolyline")<br />                     (cons 8 l_lay)<br />                     (cons 62 l_col)<br />                     (cons 90 (length pts))<br />                     (cons 70 l_closed)<br />                     )<br />       (mapcar '(lambda (pt)(cons 10 pt)) pts ))<br />   )<br /> )<br /> ;;;插入普通块简单版<br /> ;;;lk_name "块名" ipt 插入点 l_lay "图层名" l_col 0-256颜色<br /> (defun mk_blk(blk_name ipt l_lay l_col)<br />   (entmake (list '(0 . "INSERT")<br />                  (cons 8 l_lay)<br />                  (cons 62 l_col)<br />                  (cons 2 blk_name)<br />                  (cons 10 ipt)<br />                  )<br />            )<br />   )

kwok

看标题问题已解决，是不是要把悬赏币送出？
选最值答案就ok