框选线条，批量形成矩形

yfanziyfanzi · 发表于 2017-5-30 22:57:22

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

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

×

好多线条，如图，白色线，line或者pline。希望框选后，形成如图红色矩形和中心线（颜色不强求）。矩形长度随白线，宽度命令行提示输入（一次），默认1。感谢万能的晓东！捕获.JPG

yfanziyfanzi · 发表于 2017-5-30 23:29:27

忘了说了，中间小红线为矩形两个长边中点连线，要求PLINE线

Lispboy · 发表于 2017-5-30 23:52:24

XDRX API

(defun c:tt ()
(if (not #xd_var_rec_height)
(setq #xd_var_rec_height 1.0)
)
(if (setq
height (getreal
(xdrx_prompt "\n矩形高度<" #xd_var_rec_height ">:" t)
)
)
(setq #xd_var_rec_height height)
)
(setq h (/ #xd_var_rec_height 2.0))
(if (and (xdrx_initssget "\n选取要处理的LINE,POLYLINE<退出>:")
(setq ss (xdrx_ssget
'((-4 . "<or")
(0 . "LINE")
(-4 . "<and")
(0 . "*POLYLINE")
(-4 . "<not")
(-4 . "&=")
(70 . 1)
(-4 . "not>")
(-4 . "and>")
(-4 . "or>")
)
)
)
)
(progn
(xdrx_begin)
(mapcar '(lambda (e)
(setq len (xdrx_getpropertyvalue e "length")
ptmid (xdrx_curve_getpointatdist e (/ len 2.0))
xvec (xdrx_curve_getfirstderiv e ptmid)
yvec (xdrx_vector_perpvector xvec)
vec (xdrx_vector_product yvec h)
pts1 (xdrx_curve_offset e h)
pts2 (xdrx_curve_offset e (- h))
pts (append pts1 (reverse pts2))
box (xdrx_polyline_make pts t)
eL (xdrx_polyline_make
(mapcar '+ ptmid vec)
(mapcar '- ptmid vec)
)
)
(xdrx_entity_setproperty (list box el) "color" 1);;颜色号自己改
)
(xdrx_pickset->ents ss)
)
(xdrx_end)
)
)
(princ)
)

(defun c:tt () 
  (if (not #xd_var_rec_height) 
    (setq #xd_var_rec_height 1.0) 
  ) 
  (if (setq 
        height (getreal 
                 (xdrx_prompt "\n矩形高度<" #xd_var_rec_height ">:" t) 
               ) 
      ) 
    (setq #xd_var_rec_height height) 
  ) 
  (setq h (/ #xd_var_rec_height 2.0)) 
  (if (and (xdrx_initssget "\n选取要处理的LINE,POLYLINE<退出>:") 
           (setq ss (xdrx_ssget 
                      '((-4 . "<or") 
                        (0 . "LINE") 
                        (-4 . "<and") 
                        (0 . "*POLYLINE") 
                        (-4 . "<not") 
                        (-4 . "&=") 
                        (70 . 1) 
                        (-4 . "not>") 
                        (-4 . "and>") 
                        (-4 . "or>") 
                       ) 
                    ) 
           ) 
      ) 
    (progn 
      (xdrx_begin) 
      (mapcar '(lambda (e) 
                 (setq len   (xdrx_getpropertyvalue e "length") 
                       ptmid (xdrx_curve_getpointatdist e (/ len 2.0)) 
                       xvec  (xdrx_curve_getfirstderiv e ptmid) 
                       yvec  (xdrx_vector_perpvector xvec) 
                       vec   (xdrx_vector_product yvec h) 
                       pts1  (xdrx_curve_offset e h) 
                       pts2  (xdrx_curve_offset e (- h)) 
                       pts   (append pts1 (reverse pts2)) 
                       box   (xdrx_polyline_make pts t) 
                       eL    (xdrx_polyline_make 
                               (mapcar '+ ptmid vec) 
                               (mapcar '- ptmid vec) 
                             ) 
                 ) 
                 (xdrx_entity_setproperty (list box el) "color" 1);;颜色号自己改 
               ) 
              (xdrx_pickset->ents ss) 
      ) 
      (xdrx_end) 
    ) 
  ) 
  (princ) 
)

sicky111 · 发表于 2017-5-31 00:03:23

XDRX_APl太强大了。

yfanziyfanzi · 发表于 2017-5-31 03:41:50

啥也不说了，就是感谢！！！

Linhay · 发表于 2017-5-31 07:13:27

yfanziyfanzi · 发表于 2017-5-31 14:13:37

电脑上安装了CAD2007，为什么安装晓东工具的时候老提示没有CAD呢。卸载重装CAD也是这样，过来人给讲讲？

yfanziyfanzi · 发表于 2017-5-31 16:47:11

安了个2008版，正常运行，解决了

newer · 发表于 2017-5-31 16:48:54

yfanziyfanzi 发表于 2017-5-31 14:13

你这个2007，可能不是正式版，测试版，删减版什么的

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

[求助] 框选线条，批量形成矩形

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