如何把一个四边行图元划分成mXn个小四边行？

tm20038175

Lisper 发表于 2011-8-28 20:42 再加个循环绘制四边形就行了!

反应好快呀，而且代码很精炼，像是出自大师之手呀！……
现在手机上网不方便测试，明天去测试下，总之，太感谢了。。。。。

xyp1964

2. 
   
3. ;; 四边形等分
   
4. ;; 需要e派工具箱(XCAD)的支持：[url=http://xyp1964.ys168.com]http://xyp1964.ys168.com[/url]
   
5. (defun c:tt (/ ilst ll1 ll2)
   
6.   (cmdla0)
   
7.   (defun main-pro (/ ss i s1 ptn p0 p1 p2 p3)
   
8.     (princ "\n选择四边形: ")
   
9.     (setq ss (ssget '((0 . "*polyline") (90 . 4) (70 . 1)))
   
10.    i  -1
    
11.     )
    
12.     (xyp-MkLaCo "TEST" 3)
    
13.     (while (setq s1 (ssname ss (setq i (1+ i))))
    
14.       (xyp-Group0)
    
15.       (setq ptn  (xyp-get-Vertexs s1 0)
    
16.      p0  (nth 0 ptn)
    
17.      p1  (nth 1 ptn)
    
18.      p2  (nth 2 ptn)
    
19.      p3  (nth 3 ptn)
    
20.      ptn0 (xyp-DivPt2Pt p0 p1 hs)
    
21.      ptn1 (xyp-DivPt2Pt p3 p2 hs)
    
22.      ptn2 (xyp-DivPt2Pt p1 p2 ls)
    
23.      ptn3 (xyp-DivPt2Pt p0 p3 ls)
    
24.       )
    
25.       (mapcar '(lambda (a b) (xyp-line a b)) ptn0 ptn1)
    
26.       (mapcar '(lambda (a b) (xyp-line a b)) ptn2 ptn3)
    
27.       (xyp-Group1)
    
28.     )
    
29.   )
    
30.   (setq ll1 '(hs ls)
    
31. ll2 '(7 8)
    
32.   )
    
33.   (defun ajbcs () (xyp-Multiple-Settile ll1 ll2))
    
34.   (xyp-initSet ll1 ll2)
    
35.   (setq ilst '(("k0" "" "imagebutton" "-2" "24" "sbxdf" "(XYP-ABOUTME)")
    
36.         "spacer;"
    
37.         ("hs" "行数" "int" "8")
    
38.         ("ls" "列数" "int" "8")
    
39.         "spacer;"
    
40.         ("jbcs" "缺省参数" "button1" "(ajbcs)")
    
41.         "spacer;"
    
42.         "ioc"
    
43.        )
    
44.   )
    
45.   (if (= (xyp-Dcl-Init Ilst "【四边形等分】" t) 1)
    
46.     (main-pro)
    
47.   )
    
48.   (cmdla1)
    
49. )
    

<br /> ;; 四边形等分<br /> ;; 需要e派工具箱(XCAD)的支持：[url=http://xyp1964.ys168.com]http://xyp1964.ys168.com[/url]<br /> (defun c:tt (/ ilst ll1 ll2)<br />   (cmdla0)<br />   (defun main-pro (/ ss i s1 ptn p0 p1 p2 p3)<br />     (princ "\n选择四边形: ")<br />     (setq ss (ssget '((0 . "*polyline") (90 . 4) (70 . 1)))<br />    i  -1<br />     )<br />     (xyp-MkLaCo "TEST" 3)<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (xyp-Group0)<br />       (setq ptn  (xyp-get-Vertexs s1 0)<br />      p0  (nth 0 ptn)<br />      p1  (nth 1 ptn)<br />      p2  (nth 2 ptn)<br />      p3  (nth 3 ptn)<br />      ptn0 (xyp-DivPt2Pt p0 p1 hs)<br />      ptn1 (xyp-DivPt2Pt p3 p2 hs)<br />      ptn2 (xyp-DivPt2Pt p1 p2 ls)<br />      ptn3 (xyp-DivPt2Pt p0 p3 ls)<br />       )<br />       (mapcar '(lambda (a b) (xyp-line a b)) ptn0 ptn1)<br />       (mapcar '(lambda (a b) (xyp-line a b)) ptn2 ptn3)<br />       (xyp-Group1)<br />     )<br />   )<br />   (setq ll1 '(hs ls)<br /> ll2 '(7 8)<br />   )<br />   (defun ajbcs () (xyp-Multiple-Settile ll1 ll2))<br />   (xyp-initSet ll1 ll2)<br />   (setq ilst '(("k0" "" "imagebutton" "-2" "24" "sbxdf" "(XYP-ABOUTME)")<br />         "spacer;"<br />         ("hs" "行数" "int" "8")<br />         ("ls" "列数" "int" "8")<br />         "spacer;"<br />         ("jbcs" "缺省参数" "button1" "(ajbcs)")<br />         "spacer;"<br />         "ioc"<br />        )<br />   )<br />   (if (= (xyp-Dcl-Init Ilst "【四边形等分】" t) 1)<br />     (main-pro)<br />   )<br />   (cmdla1)<br /> )<br />

lrd1861

院长又出手了

longer1000

真是好人啦！
高手

shang_123

好东西呀！！