选择矩形高相同的矩形（100高，宽度不定），并在矩形的左上角批量插入图形

wxa123wl

选择矩形高相同的矩形（100高，宽度不定），并在矩形的左上角批量插入图形，，大概步骤，1.选择要放在矩形角点的对象，指定对齐点  ，2.选择图形，筛选出高度为100的矩形，3，把选择的对象插入到矩形的右上角点出！

st788796

wxa123wl 发表于 2014-4-24 22:12
懒人做不到呀，现在水平还很差，！哈哈，，，

1. (defun c:tt (/ ss lst)
   
2.   (if (setq
   
3.         ss (ssget '((0 . "Lwpolyline") (90 . 4) (-4 . "&=") (70 . 1)))
   
4.       );_四个点且闭合
   
5.     (progn
   
6.       (setq lst        (mapcar        '(lambda (x / box d p)
   
7.                            (setq box (xdrx_entity_box x)
   
8.                                  d   (distance (car box) (last box));_高
   
9.                                  p   (last box);_左上角点
   
10.                            )
    
11.                            (list d p)
    
12.                          )
    
13.                         (xdrx_pickset->ents ss)
    
14.                 )
    
15.             lst        (vl-remove-if
    
16.                   '(lambda (x) (not (equal (car x) 100. 1e-3)))
    
17.                   lst
    
18.                 );_移出非 100 高点
    
19.             lst        (mapcar 'cadr lst);_仅左上角点表
    
20.       )
    
21.       (mapcar 'xdrx_point_make lst);_自己处理了
    
22.     )
    
23.   )
    
24.   (princ)
    
25. )

(defun c:tt (/ ss lst)<br />   (if (setq<br />         ss (ssget '((0 . "Lwpolyline") (90 . 4) (-4 . "&=") (70 . 1)))<br />       );_四个点且闭合<br />     (progn<br />       (setq lst        (mapcar        '(lambda (x / box d p)<br />                            (setq box (xdrx_entity_box x)<br />                                  d   (distance (car box) (last box));_高<br />                                  p   (last box);_左上角点<br />                            )<br />                            (list d p)<br />                          )<br />                         (xdrx_pickset->ents ss)<br />                 )<br />             lst        (vl-remove-if<br />                   '(lambda (x) (not (equal (car x) 100. 1e-3)))<br />                   lst<br />                 );_移出非 100 高点<br />             lst        (mapcar 'cadr lst);_仅左上角点表<br />       )<br />       (mapcar 'xdrx_point_make lst);_自己处理了<br />     )<br />   )<br />   (princ)<br /> )

XDSoft

有些问题，

你应该是任意角度的矩形吧，多段线是有方向的，哪个段是高？ 你要画的随意，可能第一，第二段都是你所谓的高，你怎么确定？

wxa123wl

XDSoft 发表于 2014-4-24 10:48
有些问题，

你应该是任意角度的矩形吧，多段线是有方向的，哪个段是高？ 你要画的随意，可能第一，第二 ...

全是水平的矩形！

st788796

用一次xdrx_entity_box这几个点就能定下位置

newer

wxa123wl 发表于 2014-4-24 19:00
全是水平的矩形！

函数发布里面发布过这样的函数，你去找找。

思路是：

找到矩形包围盒的左下点，然后逆时针重新排序下顶点，这样第一段就是长，第二段就是高，你判断下高是否是100，是，就加入要处理的临时表里面，然后遍历表进行你的操作即可。

wxa123wl

newer 发表于 2014-4-24 21:49
函数发布里面发布过这样的函数，你去找找。

思路是：

懒人做不到呀，现在水平还很差，！哈哈，，，