求这样的插件，在线等。

快乐王子刚

哪位大侠有这样的插件，或者谁会写这样 插件，帮给给一下。谢谢

q3_2006

box 外偏移一下就行了...

快乐王子刚

box实现 不了吧，要求在图形外每边指定尺寸，默认是30mm.

你微笑时很美

https://item.taobao.com/item.htm ... amp;id=537385754040你改下就能用了

你微笑时很美

                               
登录/注册后可看大图

https://item.taobao.com/item.htm ... amp;id=537385754040

newer

快乐王子刚 发表于 2016-8-21 17:37
box实现 不了吧，要求在图形外每边指定尺寸，默认是30mm.

发错板块了，以后这种帖子请发到 编程申请 悬赏求助板块。

1. (defun c:tt ()
   
2.   (if (not (setq dis (getreal "\n输入外偏距离<0>:")))
   
3.     (setq dis 0.0)
   
4.   )
   
5.   (xdrx_prompt "\n选取生成外框的实体<退出>:")
   
6.   (if (setq ss (ssget))
   
7.     (progn
   
8.       (setq box (xdrx_entity_box ss))
   
9.       (if (> dis 0)
   
10.         (setq box (xdrx_points_offset (abs dis) (xd::pnts:close box)))
    
11.       )
    
12.       (xdrx_polyline_make box t)
    
13.     )
    
14.   )
    
15.   (princ)
    
16. )
    
17. 
    

(defun c:tt ()<br />   (if (not (setq dis (getreal "\n输入外偏距离<0>:")))<br />     (setq dis 0.0)<br />   )<br />   (xdrx_prompt "\n选取生成外框的实体<退出>:")<br />   (if (setq ss (ssget))<br />     (progn<br />       (setq box (xdrx_entity_box ss))<br />       (if (> dis 0)<br />         (setq box (xdrx_points_offset (abs dis) (xd::pnts:close box)))<br />       )<br />       (xdrx_polyline_make box t)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

你微笑时很美

                               
登录/注册后可看大图

https://item.taobao.com/item.htm ... amp;id=537385754040

源码地址

爱莫能助

1. ;; SsMinMax 选择集左下角和右上角边界点 (SsMinMax s1)
   
2. (defun SsMinMax  (ss / ptn i s1 dx1 dx2 dy1 dy2)
   
3.   (setq  ptn '()
   
4.   i   -1
   
5.   )
   
6.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
7.     (setq ptn (cons (MinMax s1) ptn))
   
8.   )
   
9.   (setq  ptn (apply 'append ptn)
   
10.   dx1 (caar (vl-sort ptn '(lambda (x y) (< (car x) (car y)))))
    
11.   dy1 (cadar (vl-sort ptn '(lambda (x y) (< (cadr x) (cadr y)))))
    
12.   dx2 (caar (vl-sort ptn '(lambda (x y) (> (car x) (car y)))))
    
13.   dy2 (cadar (vl-sort ptn '(lambda (x y) (> (cadr x) (cadr y)))))
    
14.   )
    
15.   (list (list dx1 dy1) (list dx2 dy2))
    
16.   
    
17. )
    
18. ;; MinMax 实体左下角和右上角边界点 (SsMinMax s1)
    
19. (defun MinMax (s1)
    
20.   (vla-GetBoundingBox (vlax-ename->vla-object s1) 'p1 'p9)
    
21.   (list (vlax-safearray->list p1) (vlax-safearray->list p9))
    
22. )
    
23. (defun c:Tt (/ BOX GET OS P1 P2 SU X)
    
24.   (setvar 'cmdecho 0)
    
25.   (setq os (getvar 'osmode))
    
26.   (setvar 'osmode 0)
    
27.   (setq get (ssget))
    
28.   (if (not (setq su (getreal "\n输入外偏距离<30>:"))) (setq su 30))
    
29.   (setq box (SsMinMax get))
    
30.   (setq p1  (mapcar '(lambda (x) (- x su)) (car box)))
    
31.   (setq p2  (mapcar '(lambda (x) (+ x su)) (cadr box)))
    
32.   (command "_.RECTANG" p1 p2)
    
33.   (setvar 'osmode os)
    
34.   (princ)
    
35.   )

;; SsMinMax 选择集左下角和右上角边界点 (SsMinMax s1)<br /> (defun SsMinMax  (ss / ptn i s1 dx1 dx2 dy1 dy2)<br />   (setq  ptn '()<br />   i   -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq ptn (cons (MinMax s1) ptn))<br />   )<br />   (setq  ptn (apply 'append ptn)<br />   dx1 (caar (vl-sort ptn '(lambda (x y) (< (car x) (car y)))))<br />   dy1 (cadar (vl-sort ptn '(lambda (x y) (< (cadr x) (cadr y)))))<br />   dx2 (caar (vl-sort ptn '(lambda (x y) (> (car x) (car y)))))<br />   dy2 (cadar (vl-sort ptn '(lambda (x y) (> (cadr x) (cadr y)))))<br />   )<br />   (list (list dx1 dy1) (list dx2 dy2))<br />   <br /> )<br /> ;; MinMax 实体左下角和右上角边界点 (SsMinMax s1)<br /> (defun MinMax (s1)<br />   (vla-GetBoundingBox (vlax-ename->vla-object s1) 'p1 'p9)<br />   (list (vlax-safearray->list p1) (vlax-safearray->list p9))<br /> )<br /> (defun c:Tt (/ BOX GET OS P1 P2 SU X)<br />   (setvar 'cmdecho 0)<br />   (setq os (getvar 'osmode))<br />   (setvar 'osmode 0)<br />   (setq get (ssget))<br />   (if (not (setq su (getreal "\n输入外偏距离<30>:"))) (setq su 30))<br />   (setq box (SsMinMax get))<br />   (setq p1  (mapcar '(lambda (x) (- x su)) (car box)))<br />   (setq p2  (mapcar '(lambda (x) (+ x su)) (cadr box)))<br />   (command "_.RECTANG" p1 p2)<br />   (setvar 'osmode os)<br />   (princ)<br />   )

快乐王子刚

谢谢你，我知道了，可以用，正是我要 的@newer