加边框代码，怎么增加默认边框距离呢？

zhangcn

在下面连接这个贴子找到一个加边框的代码，需要手动输入边框距离，怎么增加默认边框距离呢？
http://bbs.mjtd.com/forum.php?mo ... DF%BF%F2&page=1

• ;;加边框
  
• (defun c:ttt ()
  
• (setvar "CMDECHO" 0)
  
• (vl-load-com)
  
• (setq bx (getdist "\nEnter Around Space 输入四周间隔: "))
  
• (while (progn (princ "\n选择加框物体: ") (setq ss (ssget)))
  
•   (setq i -1 plst (list))
  
•   (repeat (sslength ss)
  
•    (setq en (ssname ss (setq i (1+ i))))
  
•    (vla-getboundingbox(vlax-ename->vla-object en) 'p1 'p2)
  
•    (setq plst (append plst (list(vlax-safearray->list p1)(vlax-safearray->list p2))))
  
•   )
  
•   (setq p1 (apply 'mapcar (cons 'min plst)))
  
•   (setq p2 (apply 'mapcar (cons 'max plst)))
  
•   (setq p1 (mapcar '- p1 (list bx bx)))
  
•   (setq p2 (mapcar '+ p2 (list bx bx)))
  
•   (command "_.RECTANG" p1 p2)
  
• )
  
• (setvar "CMDECHO" 1)
  
• (prin1)
  
• )
  
  

行天下

日常灌水，到此一看，期待大佬解决