请教怎样匹配窗线刷

434939575 · 发表于 2014-10-30 20:51:03

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 434939575 于 2014-10-30 20:53 编辑

请教各位老师：我的目的想实现这样的刷子。请各位指导指导！或提供思路。怎样得到第1跟竖线的名字。我的方法坐标表按X排列。再根据坐标SSGET "W"选择。这种方法感觉很迟钝。。（我这个外框是另外的层，里面是LINE线）

XDSoft · 发表于 2014-10-30 21:01:51

多去开源函数库论坛看看写过的函数

你这个，搜索下 xd::pickset:tableSort

XDSoft · 发表于 2014-10-30 21:04:19

另外，关于实体组织，也是后续方便编程很重要的一环，比如你这个，外框还是尽量用封闭的多段线比较好。你找到一个就都找到了，否则可不好都找出来。

434939575 · 发表于 2014-10-30 21:11:13

感谢老大指点。太热心了。外框是PLINE的闭合线。

Free-Lancer · 发表于 2014-10-30 21:19:26

你这个应用没有说明哪个方向不变，不能称为刷子，变形可以看看这个
http://bbs.xdcad.net/thread-672209-1-1.html

XDSoft · 发表于 2014-10-30 21:50:29

434939575 发表于 2014-10-30 21:11
感谢老大指点。太热心了。外框是PLINE的闭合线。

你要找里面最左边的白色线？

Free-Lancer · 发表于 2014-10-30 22:01:45

等分只要数量，水平是要距离

Free-Lancer · 发表于 2014-10-30 22:33:43

竖向是取间距和总长的比例返到新框，水平取上部距离

XDSoft · 发表于 2014-10-30 23:19:14

434939575 发表于 2014-10-30 21:11
感谢老大指点。太热心了。外框是PLINE的闭合线。

1、用封闭的外框多段线选出里面所有的LINE
2、所有LINE，每个LINE构建一个表 (角度  距离窗左下角的距离 LINE实体名)
   整个就是 ( (角度1  距离窗左下角的距离1 LINE实体名)...(角度2  距离窗左下角的距离1 LINE实体名) )

3、所有角度一样的归并到一个表

   (  (0.0 ( (距离1 LINE实体1)  (距离2 LINE实体2).... )
      (1.5708 ( (距离1 LINE实体1)  (距离2 LINE实体2).... )
   )

4、你想找竖直的，就把 1.5708 的子表提出来，关联表按距离排升序，第一个实体就是你要的最左边的。
   你想找水平最下的，就把0.0 的子表提出来，。。。。。。。。。。。。。。。。。。。。。。。。。

上面说的这些，开源函数库都有现成的函数 XD::List:GroupByIndex or XD::AssocList:MergeItemByNumKey
最直接霸道的 XD::Pickset:TableSort 你可以去开源函数库论坛找到相应函数，看看代码怎么写的。
或者用上面的函数名搜索论坛，看看一些应用程序是怎么写的。

434939575 · 发表于 2014-10-31 09:42:05

再次感谢大大的支持！

st788796 · 发表于 2014-10-31 11:02:01

434939575 发表于 2014-10-31 09:42
再次感谢大大的支持！

xd::list:groupbyindex 在开源函数库下载

(defun c:tt (/ e pts lss ss bp lst bp rp p up xLine yLine)
(if
(and (setq e (car (xdrx_entsel "\nPick Pline: " '((0 . "*Polyline")))))
(xdrx_pickset_highlight e)
(setq pts (xdrx_entity_box e))
(setq lss (ssget "C" (car pts) (caddr pts) '((0 . "line"))))
(setq ss (ssget '((0 . "*polyline"))))
)
(progn
(mapcar 'set '(bp rp p up) pts)
(setq lst (mapcar '(lambda (x)
(list (rem (xdrx_getpropertyvalue x "angle") pi)
(car (xdrx_entity_box x))
x
)
)
(xdrx_pickset->ents lss)
)
lst (vl-sort (xd::list:groupbyindex lst 1e-3)
'(lambda (e1 e2) (< (car e1) (car e2)))
)
xLine (mapcar '(lambda (x)
(xdrx_point_dist2line
(cadr x)
up
p
)
)
(cdar lst)
)
yLine (mapcar '(lambda (x)
(list (xdrx_point_dist2line
(caddr (xdrx_entity_box (cadr x)))
up
p
)
(/ (distance (car x) bp)
(distance bp rp)
)
)
)
(vl-sort (mapcar 'cdr (cdadr lst))
'(lambda (b1 b2)
(< (caar b1) (caar b2))
)
)
)
)
(mapcar
'(lambda (x / bp rp p up)
(mapcar 'set '(bp rp p up) (xdrx_entity_box x))
(mapcar '(lambda (a / p1)
(xdrx_line_make
(setq p1 (polar up (* pi -0.5) a))
(polar p1 0. (distance up p))
)
)
xLine
)
(mapcar
'(lambda (a / p1)
(xdrx_line_make
(setq p1 (polar bp 0. (* (cadr a) (distance bp rp))))
(polar p1 (* pi 0.5) (- (distance up bp) (car a)))
)
)
yLine
)
)
(xdrx_pickset->ents ss)
)
)
)
(if e (xdrx_pickset_highlight e t))
(princ)
)

(defun c:tt (/ e pts lss ss bp lst bp rp p up xLine yLine) 
  (if 
    (and (setq e (car (xdrx_entsel "\nPick Pline: " '((0 . "*Polyline"))))) 
         (xdrx_pickset_highlight e) 
         (setq pts (xdrx_entity_box e)) 
         (setq lss (ssget "C" (car pts) (caddr pts) '((0 . "line")))) 
         (setq ss (ssget '((0 . "*polyline")))) 
    ) 
     (progn 
       (mapcar 'set '(bp rp p up) pts) 
       (setq lst   (mapcar '(lambda (x) 
                              (list (rem (xdrx_getpropertyvalue x "angle") pi) 
                                    (car (xdrx_entity_box x)) 
                                    x 
                              ) 
                            ) 
                           (xdrx_pickset->ents lss) 
                   ) 
             lst   (vl-sort (xd::list:groupbyindex lst 1e-3) 
                            '(lambda (e1 e2) (< (car e1) (car e2))) 
                   ) 
             xLine (mapcar '(lambda (x) 
                              (xdrx_point_dist2line 
                                (cadr x) 
                                up 
                                p 
                              ) 
                            ) 
                           (cdar lst) 
                   ) 
             yLine (mapcar '(lambda (x) 
                              (list (xdrx_point_dist2line 
                                      (caddr (xdrx_entity_box (cadr x))) 
                                      up 
                                      p 
                                    ) 
                                    (/ (distance (car x) bp) 
                                       (distance bp rp) 
                                    ) 
                              ) 
                            ) 
                           (vl-sort (mapcar 'cdr (cdadr lst)) 
                                    '(lambda (b1 b2) 
                                       (< (caar b1) (caar b2)) 
                                     ) 
                           ) 
                   ) 
       ) 
       (mapcar 
         '(lambda (x / bp rp p up) 
            (mapcar 'set '(bp rp p up) (xdrx_entity_box x)) 
            (mapcar '(lambda (a / p1) 
                       (xdrx_line_make 
                         (setq p1 (polar up (* pi -0.5) a)) 
                         (polar p1 0. (distance up p)) 
                       ) 
                     ) 
                    xLine 
            ) 
            (mapcar 
              '(lambda (a / p1) 
                 (xdrx_line_make 
                   (setq p1 (polar bp 0. (* (cadr a) (distance bp rp)))) 
                   (polar p1 (* pi 0.5) (- (distance up bp) (car a))) 
                 ) 
               ) 
              yLine 
            ) 
          ) 
         (xdrx_pickset->ents ss) 
       ) 
     ) 
  ) 
  (if e (xdrx_pickset_highlight e t)) 
  (princ) 
)

账号		自动登录	找回密码
密码			立即注册

[求助] 请教怎样匹配窗线刷

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

点评

点评

浏览过的版块