需求一个统计矩形阵列的插件

scream2658

想编写一个实现统计阵列内矩形数量的插件，不知道有大神可以实现吗？ 愿意付费。

vitalgg

如果无法播放，请点击此处在新窗口打开

1. (progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))
   
2. 
   
3. (defun c:dimrec ()
   
4.   (@:help '("统计矩形行列数并标在左上角。"))
   
5.   ;;选矩形
   
6.   (setq recs
   
7.   (vl-remove-if-not 'curve:rectanglep
   
8.         (pickset:to-list (ssget '((0 . "lwpolyline"))))))
   
9.   ;;矩形分堆
   
10.   (foreach
    
11.    box (pickset:cluster (pickset:from-list recs) 100)
    
12.    (setq recs
    
13.   (vl-remove-if-not 'curve:rectanglep
    
14.         (pickset:to-list
    
15.          (ssget
    
16.           "w" (car box)(cadr box)
    
17.           '((0 . "lwpolyline"))))))
    
18.    (setq recs (list:sort recs
    
19.             '(lambda(x y)
    
20.         (>
    
21.          (cadar (entity:getbox x 0))
    
22.          (cadar (entity:getbox y 0))
    
23.          ))))
    
24.    (setq grecs (list:group-by recs
    
25.             '(lambda(x y)
    
26.         (equal
    
27.          (cadar (entity:getbox x 0))
    
28.          (cadar (entity:getbox y 0))
    
29.          10))))
    
30.    (entity:putdxf
    
31.     (entity:make-text
    
32.      (strcat (itoa(length grecs))
    
33.        "x"
    
34.        (itoa(length (car grecs))))
    
35.      (list (caar box)(cadadr box) 0)
    
36.      (* 0.25 (- (nth 1 (cadr box))(nth 1 (car box))))
    
37.      0 0.8 0 "LT")
    
38.     62 1)
    
39.    )
    
40.   (princ))

(progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))<br /> <br /> (defun c:dimrec ()<br />   (@:help '("统计矩形行列数并标在左上角。"))<br />   ;;选矩形<br />   (setq recs<br />   (vl-remove-if-not 'curve:rectanglep<br />         (pickset:to-list (ssget '((0 . "lwpolyline"))))))<br />   ;;矩形分堆<br />   (foreach<br />    box (pickset:cluster (pickset:from-list recs) 100)<br />    (setq recs<br />   (vl-remove-if-not 'curve:rectanglep<br />         (pickset:to-list<br />          (ssget<br />           "w" (car box)(cadr box)<br />           '((0 . "lwpolyline"))))))<br />    (setq recs (list:sort recs<br />             '(lambda(x y)<br />         (><br />          (cadar (entity:getbox x 0))<br />          (cadar (entity:getbox y 0))<br />          ))))<br />    (setq grecs (list:group-by recs<br />             '(lambda(x y)<br />         (equal<br />          (cadar (entity:getbox x 0))<br />          (cadar (entity:getbox y 0))<br />          10))))<br />    (entity:putdxf <br />     (entity:make-text<br />      (strcat (itoa(length grecs))<br />        "x"<br />        (itoa(length (car grecs))))<br />      (list (caar box)(cadadr box) 0)<br />      (* 0.25 (- (nth 1 (cadr box))(nth 1 (car box))))<br />      0 0.8 0 "LT")<br />     62 1)<br />    )<br />   (princ))

huaxiamengqing

这种需求，完全可以不懂代码的，直接使用CAD板的可视化编程软件Grasshoppper来拖电池实现，实现起来也是分分钟的事情。

核心算法电池就是分堆，这个电池组就有自带免费的。如下图。


感兴趣可以查看这个帖子，直接加载使用。
http://bbs.mjtd.com/thread-189349-1-1.html

JRYG_CAD

矩形分堆