API应用一定距离内文字加框

st788796 · 发表于 2014-6-2 13:04:47

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

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

×

注意: 这个距离是一个圆形范围，演示中 Y 向文字都大于拾取距离，如果文字 Y 向距离也小于拾取距离也将位于一个框内

(defun c:tt (/ ss d lst)
(if (and (setq ss (ssget '((0 . "text"))))
(setq d (getdist "\nSpace Dist: "))
)
(progn
(setq lst (mapcar '(lambda (x / box)
(setq box (xdrx_entity_box x))
(list (car box)
box
)
)
(xdrx_pickset->ents ss)
)
lst (xd::list:GroupByIndex lst (+ d 0.1))
)
(mapcar '(lambda (x)
(apply 'xdrx_polyline_make
(cons t
(apply 'xdrx_points_box
(apply 'append x)
)
)
)
)
(mapcar 'cdr lst)
)
)
)
(princ)
)

(defun c:tt (/ ss d lst) 
  (if (and (setq ss (ssget '((0 . "text")))) 
           (setq d (getdist "\nSpace Dist: ")) 
      ) 
    (progn 
      (setq lst        (mapcar        '(lambda (x / box) 
                           (setq box (xdrx_entity_box x)) 
                           (list (car box) 
                                 box 
                           ) 
                         ) 
                        (xdrx_pickset->ents ss) 
                ) 
            lst        (xd::list:GroupByIndex lst (+ d 0.1)) 
      ) 
      (mapcar '(lambda (x) 
                 (apply        'xdrx_polyline_make 
                        (cons t 
                              (apply 'xdrx_points_box 
                                     (apply 'append x) 
                              ) 
                        ) 
                 ) 
               ) 
              (mapcar 'cdr lst) 
      ) 
    ) 
  ) 
  (princ) 
)

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

[教学] API应用 一定距离内文字加框

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

[教学] API应用一定距离内文字加框