[求助]：xyp1964青铜长老我有事相求

xyp1964

2004上测试没有问题。
“有时候还会有这个问题”，是什么时候？

82406515

长老帮忙看一下这个程序问题出在那里啊！

eachy

最初由 82406515 发布
[B]就是偶尔嘛，而且还会导致CAD死掉哦，看有没有办法。 [/B]

传 DWG 文件才好分析

82406515

最初由 eachy 发布
[B]
传 DWG 文件才好分析 [/B]

斑竹你来得正好，你把我发上去的文件下载试一下就知道了啊！它本来就是一个加外匡的软件，但是出了一点问题。请看附件

eachy

2. 
   
3. (defun c:tt (/ bx oldl olds px py p1 p2 p3 p4)
   
4.   (setq        bx   (getdist "\nEnter Around Space 输入四周间隔:")
   
5.         oldl (getvar "clayer")
   
6.         olds (getvar "osmode")
   
7.   )
   
8.   (command ".zoom" "e" "regen")
   
9.   (setq        px (getvar "extmin")
   
10.         py (getvar "extmax")
    
11.         p1 (mapcar '+ px (list (- bx) (- bx) 0.))
    
12.         p2 (polar p1 (/ pi 2) (+ (- (cadr py) (cadr px)) bx bx))
    
13.         p3 (mapcar '+ py (list bx bx 0.))
    
14.            ;|
    
15.         p1 (polar (polar px pi bx) 0 bx)
    
16.         p2 (polar p1 (/ pi 2) (+ (- (cadr py) (cadr px)) bx bx))
    
17.         p3 (polar p2 0 (+ (- (car py) (car px)) bx bx))
    
18.         |;
    
19.         p4 (list (car p3) (cadr p1))
    
20.   )
    
21.   (setvar "osmode" 0)
    
22.   (command ".layer"           "m"           "borderline"           "c"           "6"
    
23.            ""           ""           ".line" p1           p2           p3           p4
    
24.            "c"           ".layer"           "s"           oldl           ""           ".zoom"
    
25.            "e"
    
26.           )
    
27.   (setvar "osmode" olds)
    
28. )
    
29. 
    
30. (defun c:delborder (/ ss)
    
31.   (if (setq ss (ssget "x" (list (cons 8 "borderline"))))
    
32.     (command ".erase" ss "")
    
33.     (princ "\ncon't found any entitil. 未找到任何实体。")
    
34.   )
    
35.   (princ)
    
36. )
    
37. (princ)
    

<br /> (defun c:tt (/ bx oldl olds px py p1 p2 p3 p4)<br />   (setq        bx   (getdist "\nEnter Around Space 输入四周间隔:")<br />         oldl (getvar "clayer")<br />         olds (getvar "osmode")<br />   )<br />   (command ".zoom" "e" "regen")<br />   (setq        px (getvar "extmin")<br />         py (getvar "extmax")<br />         p1 (mapcar '+ px (list (- bx) (- bx) 0.))<br />         p2 (polar p1 (/ pi 2) (+ (- (cadr py) (cadr px)) bx bx))<br />         p3 (mapcar '+ py (list bx bx 0.))<br />            ;|<br />         p1 (polar (polar px pi bx) 0 bx)<br />         p2 (polar p1 (/ pi 2) (+ (- (cadr py) (cadr px)) bx bx))<br />         p3 (polar p2 0 (+ (- (car py) (car px)) bx bx))<br />         |;<br />         p4 (list (car p3) (cadr p1))<br />   )<br />   (setvar "osmode" 0)<br />   (command ".layer"           "m"           "borderline"           "c"           "6"<br />            ""           ""           ".line" p1           p2           p3           p4<br />            "c"           ".layer"           "s"           oldl           ""           ".zoom"<br />            "e"<br />           )<br />   (setvar "osmode" olds)<br /> )<br /> <br /> (defun c:delborder (/ ss)<br />   (if (setq ss (ssget "x" (list (cons 8 "borderline"))))<br />     (command ".erase" ss "")<br />     (princ "\ncon't found any entitil. 未找到任何实体。")<br />   )<br />   (princ)<br /> )<br /> (princ)<br />

82406515

还有一点小问题哦，望斑竹在帮帮忙。就是出来之后的外匡离图形的距离比我想要的还大了一点，比如说我要40，它出来都有40.42。图层我也不需要改变。拜托了！！！！！！