求大侠帮我看看这个包围框的程序~

4041186888

2. (defun C:bwzb (/ sel minPt maxPt obj minPt1 maxPt1)
   
3.   (setq q (ssget))
   
4.   (setq sel (ssname q 0))
   
5.   (setq oce (getvar "cmdecho"))
   
6.   (setvar "cmdecho" 0)
   
7.   (vl-load-com)
   
8.   (setq minPt (vlax-make-safearray vlax-vbdouble '(0 . 2)))
   
9.   (setq maxPt (vlax-make-safearray vlax-vbdouble '(0 . 2)))
   
10.   (setq obj (vlax-ename->vla-object sel))
    
11.   (vla-GetBoundingBox obj 'minpt 'maxpt)
    
12.   (setq minPt1 (vlax-safearray->list minPt))
    
13.   (setq maxPt1 (vlax-safearray->list maxPt))
    
14.   (command ".rectang" minPt1 maxPt1 "")
    
15.   (setvar "cmdecho" oce)
    
16. )
    

(defun C:bwzb (/ sel minPt maxPt obj minPt1 maxPt1)<br />   (setq q (ssget))<br />   (setq sel (ssname q 0))<br />   (setq oce (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (vl-load-com)<br />   (setq minPt (vlax-make-safearray vlax-vbdouble '(0 . 2))) <br />   (setq maxPt (vlax-make-safearray vlax-vbdouble '(0 . 2)))<br />   (setq obj (vlax-ename->vla-object sel))<br />   (vla-GetBoundingBox obj 'minpt 'maxpt)<br />   (setq minPt1 (vlax-safearray->list minPt))<br />   (setq maxPt1 (vlax-safearray->list maxPt))<br />   (command ".rectang" minPt1 maxPt1 "")<br />   (setvar "cmdecho" oce)<br /> )<br />

这个是原程序 我想变成子程序 修改如下

2. (defun C:bwzb (sel  / minPt maxPt obj minPt1 maxPt1)
   
3.   (setq oce (getvar "cmdecho"))
   
4.   (setvar "cmdecho" 0)
   
5.   (vl-load-com)
   
6.   (setq minPt (vlax-make-safearray vlax-vbdouble '(0 . 2)))
   
7.   (setq maxPt (vlax-make-safearray vlax-vbdouble '(0 . 2)))
   
8.   (setq obj (vlax-ename->vla-object sel))
   
9.   (vla-GetBoundingBox obj 'minpt 'maxpt)
   
10.   (setq minPt1 (vlax-safearray->list minPt))
    
11.   (setq maxPt1 (vlax-safearray->list maxPt))
    
12.   (command ".rectang" minPt1 maxPt1 "")
    
13.   (setvar "cmdecho" oce)
    
14. )
    
15. (defun C:bw (/ q a)
    
16.   (setq q (ssget))
    
17.   (setq a (ssname q 0))
    
18.   (bwzb a)
    
19. )

(defun C:bwzb (sel  / minPt maxPt obj minPt1 maxPt1)<br />   (setq oce (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (vl-load-com)<br />   (setq minPt (vlax-make-safearray vlax-vbdouble '(0 . 2))) <br />   (setq maxPt (vlax-make-safearray vlax-vbdouble '(0 . 2)))<br />   (setq obj (vlax-ename->vla-object sel))<br />   (vla-GetBoundingBox obj 'minpt 'maxpt)<br />   (setq minPt1 (vlax-safearray->list minPt))<br />   (setq maxPt1 (vlax-safearray->list maxPt))<br />   (command ".rectang" minPt1 maxPt1 "")<br />   (setvar "cmdecho" oce)<br /> )<br /> (defun C:bw (/ q a)<br />   (setq q (ssget))<br />   (setq a (ssname q 0))<br />   (bwzb a)<br /> )

为什么函数bwzb不好使呢 请各位大侠帮我看看，另外我不太懂vla-GetBoundingBox的使用，不知道我的程序还能简化么 vla-GetBoundingBox使用的对么？

yoyoho

(defun C:bw (/ q a)
  (setq q (ssget))
  (setq a (ssname q 0))
  (c:bwzb a)
)

yoyoho

yoyoho 发表于 2013-1-12 07:23
(defun C:bw (/ q a)
  (setq q (ssget))
  (setq a (ssname q 0))

感谢Z版,学习了!

4041186888

谢谢俩位高手~程序运行问题算是解决了~但是选取上偶尔还是会出现小错误 我再修改修改 再次感谢了