期待高手指点，一个非常奇怪的问题

sicky111

这段程式在2004、2012、2013下测试都没有问题；在2008下测试，到了trim那里会出问题，程式不能继续运行下去，但是在2008下单节测试时又是OK的，非常奇怪，研究了两天，都没办法找出症结所在，请求高手指点一下。

1. (defun c:tt ()
   
2.   (vl-load-com)
   
3.   (setq osm (getvar "osmode"))
   
4.   (setvar "osmode" 0)
   
5.   (setvar "CMDECHO" 0)
   
6.   (setq ent (car (entsel "\n选择一个物体:")))
   
7.   (tt_main)
   
8.   (command ".rectang" "none" pt1 "none" pt2)
   
9.   (setq obj (vlax-ename->vla-object (entlast)))
   
10.   (vla-offset obj 5)
    
11.   (vla-delete obj)
    
12.   (setq ent (entlast))
    
13.   (tt_main)
    
14.   (setq pt3 (polar pt1 0 a)
    
15.         pt4 (polar pt2 pi a)
    
16.   )
    
17.   (command ".fillet" "R" 3 ".fillet" "P" "L")
    
18.   (command ".trim" "L" "" (polar pt2 (* pi 1.25) 1.2426) "")
    
19.   (command ".line" (polar pt2 pi 3) (polar pt2 (* pi 1.5) 3) "")
    
20.   (command ".pedit"  ent "J" (entlast) "" "")
    
21.   (setvar "osmode" osm)
    
22.   (setvar "CMDECHO" 1)
    
23.   (princ)
    
24. )
    
25. 
    
26. (defun xd_GetObjectBoundingBox (ename / ll ur)
    
27.   (vla-GetBoundingBox (vlax-ename->vla-object ename) 'll 'ur)
    
28.   (list
    
29.     (vlax-safearray->list ll)
    
30.     (vlax-safearray->list ur)
    
31.   )
    
32. )
    
33. 
    
34. (defun tt_main ()
    
35.   (setq pt (xd_GetObjectBoundingBox ent)
    
36.         pt1 (car pt)
    
37.         pt2 (cadr pt)
    
38.         mpt (mapcar '(lambda (a b) (/ (+ a b) 2)) pt1 pt2)
    
39.         a (fix (abs (- (car pt1) (car pt2))))
    
40.         b (fix (abs (- (cadr pt1) (cadr pt2))))
    
41.         pt1 (polar (polar mpt pi (* a 0.5)) (* pi 1.5) (* b 0.5))
    
42.         pt2 (polar (polar mpt 0 (* a 0.5)) (* pi 0.5) (* b 0.5))
    
43.   )
    
44. )

(defun c:tt ()<br />   (vl-load-com)<br />   (setq osm (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (setvar "CMDECHO" 0)<br />   (setq ent (car (entsel "\n选择一个物体:")))<br />   (tt_main)<br />   (command ".rectang" "none" pt1 "none" pt2)<br />   (setq obj (vlax-ename->vla-object (entlast)))<br />   (vla-offset obj 5)<br />   (vla-delete obj)<br />   (setq ent (entlast))<br />   (tt_main)<br />   (setq pt3 (polar pt1 0 a)<br />         pt4 (polar pt2 pi a)<br />   )<br />   (command ".fillet" "R" 3 ".fillet" "P" "L")<br />   (command ".trim" "L" "" (polar pt2 (* pi 1.25) 1.2426) "")<br />   (command ".line" (polar pt2 pi 3) (polar pt2 (* pi 1.5) 3) "")<br />   (command ".pedit"  ent "J" (entlast) "" "")<br />   (setvar "osmode" osm)<br />   (setvar "CMDECHO" 1)<br />   (princ)<br /> )<br /> <br /> (defun xd_GetObjectBoundingBox (ename / ll ur)<br />   (vla-GetBoundingBox (vlax-ename->vla-object ename) 'll 'ur)<br />   (list<br />     (vlax-safearray->list ll)<br />     (vlax-safearray->list ur)<br />   )<br /> )<br /> <br /> (defun tt_main ()<br />   (setq pt (xd_GetObjectBoundingBox ent)<br />         pt1 (car pt)<br />         pt2 (cadr pt)<br />         mpt (mapcar '(lambda (a b) (/ (+ a b) 2)) pt1 pt2)<br />         a (fix (abs (- (car pt1) (car pt2))))<br />         b (fix (abs (- (cadr pt1) (cadr pt2))))<br />         pt1 (polar (polar mpt pi (* a 0.5)) (* pi 1.5) (* b 0.5))<br />         pt2 (polar (polar mpt 0 (* a 0.5)) (* pi 0.5) (* b 0.5))<br />   )<br /> )

gzxl

aa值从那来？

sicky111

gzxl 发表于 2013-5-16 15:15
aa值从那来？

已经改正过来了，请高手再看看，是哪里出了问题。

461045462

不知您说的是什么问题？
在2008下运行
(command ".trim" "L" "" (polar pt2 (* pi 1.25) 1.2426) "")
=> (command ".trim" "L" (polar pt2 (* pi 1.25) 1.2426) "")
试试

461045462

不知您说的是否如下问题？
2008运行通过
(command ".trim" "L" "" (polar pt2 (* pi 1.25) 1.2426) "")
=> (command ".trim" "L" (polar pt2 (* pi 1.25) 1.2426) "")

sicky111

461045462 发表于 2013-5-20 16:36
不知您说的是否如下问题？
2008运行通过
(command ".trim" "L" "" (polar pt2 (* pi 1.25) 1.2426) "")
...

谢谢，还是不行，不能修剪。

ZZXXQQ

这样试试：
(command ".trim" "L" "" "nea" (polar pt2 (* pi 1.25) 1.2426) "")

sicky111

ZZXXQQ 发表于 2013-5-20 21:22
这样试试：
(command ".trim" "L" "" "nea" (polar pt2 (* pi 1.25) 1.2426) "")

谢谢Z版，试过了，还是不行，就是剪不下去，在2004和2012版都可以的，不知道2008怎么试都不行，可能是版本的原因吧。

ZZXXQQ

另一个办法就是将线条炸开，删除指定圆弧再用PEDIT联接封闭线条。

sicky111

ZZXXQQ 发表于 2013-5-21 08:33
另一个办法就是将线条炸开，删除指定圆弧再用PEDIT联接封闭线条。

谢谢指点，我试看看。