有大神帮忙弄个小插件吗？

xyp1964

1. (defun c:tt ()
   
2.   (or dd (setq dd 1.))
   
3.   (setq dd (Udist 7 "" "偏移距离<输入或鼠标直接量取>" dd nil))
   
4.   (if (setq s1 (car (entsel "\n选择实体: ")))
   
5.     (progn
   
6.       (setq ob (vlax-ename->vla-object s1)
   
7.             aa (vla-getBoundingBox ob 'p1 'p9)
   
8.             p1 (vlax-safearray->list p1)
   
9.             p9 (vlax-safearray->list p9)
   
10.       )
    
11.       (command "rectang" "non" p1 "non" p9)
    
12.       (setq s1 (entlast))
    
13.       (vla-offset (vlax-ename->vla-object s1) dd)
    
14.       (entdel s1)
    
15.     )
    
16.   )
    
17.   (princ)
    
18. )

(defun c:tt ()<br />   (or dd (setq dd 1.))<br />   (setq dd (Udist 7 "" "偏移距离<输入或鼠标直接量取>" dd nil))<br />   (if (setq s1 (car (entsel "\n选择实体: ")))<br />     (progn<br />       (setq ob (vlax-ename->vla-object s1)<br />             aa (vla-getBoundingBox ob 'p1 'p9)<br />             p1 (vlax-safearray->list p1)<br />             p9 (vlax-safearray->list p9)<br />       )<br />       (command "rectang" "non" p1 "non" p9)<br />       (setq s1 (entlast))<br />       (vla-offset (vlax-ename->vla-object s1) dd)<br />       (entdel s1)<br />     )<br />   )<br />   (princ)<br /> )