[求助]：请斑竹进来看看帮我改一下

82406515

我这是一个加外框的程序,可是它加出来不是很准,比如说我画了一个矩形尺寸是20X40的我现在要在离这个矩形四边20MM的地方再加一个矩形,我现在的这个,假如你要加20MM它会不止20!!
(DEFUN C:BK ()
(SETQ BX (GETDIST "\nEnter Around Space 输入四周间隔:")
      OLDL (GETvar "CLAYER")
      OLDS (GETvar "OSMODE")
      AL1 (/ PI 2)  AL2 (- AL1))
(COMMAND "ZOOM" "E" "REGEN")
(SETQ PX (GETvar "EXTMIN")      PY (GETvar "EXTMAX")
      P1 (POLAR (POLAR PX PI BX) AL2 BX)
      P2 (POLAR P1 AL1 (+ (- (CADR PY) (CADR PX)) BX BX))
      P3 (POLAR P2 0 (+ (- (CAR PY) (CAR PX)) BX BX))
      P4 (LIST (CAR P3) (CADR P1)))
(SETvar "OSMODE" 0)
(COMMAND "LAYER" "m" "BORDERLINE" "C" "6" "" ""
         "PLINE" P1 P2 P3 P4 "C" "LAYER" "S" OLDL "" "ZOOM" "E")
(SETvar "OSMODE" OLDS)
)

(DEFUN C:DELBORDER ()
(SETQ SS (SSGET "X" (LIST (CONS 8 "BORDERLINE"))) SL (SSLENGTH SS))
(IF (> SL 0)
(COMMAND "ERASE" SS "")
(PRINC "\nCon't found any Entitil. 未找到任何实体。")
)
(PRINC)
)
(PRINC)

xyp1964

2. [FONT=courier new](load "xyp_lib")
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
   
6. 1.在acad.lsp中增加(load"xyp_lib")
   
7. 2.在每个程序内增加(load"xyp_lib")
   
8. 3.在command下，输入(load"xyp_lib")
   
9. 4.在菜单.mnl中增加(load"xyp_lib")
   
10. 5.将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
13. [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;
    
14. 
    
15. ;;;;;;围合选择集的方框
    
16. (defun c:test ()
    
17.   (cmdla0)
    
18.   (command "ZOOM" "E")
    
19.   (setq        no1 (UREAL 1 "" "\n输入四周间隔" no1)
    
20.         ss  (ssget)
    
21.   )
    
22.   (mkLA "BORDERLINE" 6)
    
23.   (setvar "osmode" 0)
    
24.   (setq        pt1 (SS-MINMAXPT ss 1)
    
25.         pt1 (polar pt1 (* pi 1.25) (sqrt (* 2 no1 no1)))
    
26.         pt2 (SS-MINMAXPT ss 0)
    
27.         pt2 (polar pt2 (* pi 0.25) (sqrt (* 2 no1 no1)))
    
28.   )
    
29.   (command "rectang" pt1 pt2)
    
30.   (cmdla1)
    
31. )[/FONT]

[FONT=courier new](load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：<br /> 1.在acad.lsp中增加(load"xyp_lib")<br /> 2.在每个程序内增加(load"xyp_lib")<br /> 3.在command下，输入(load"xyp_lib")<br /> 4.在菜单.mnl中增加(load"xyp_lib")<br /> 5.将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;<br /> <br /> ;;;;;;围合选择集的方框<br /> (defun c:test ()<br />   (cmdla0)<br />   (command "ZOOM" "E")<br />   (setq        no1 (UREAL 1 "" "\n输入四周间隔" no1)<br />         ss  (ssget)<br />   )<br />   (mkLA "BORDERLINE" 6)<br />   (setvar "osmode" 0)<br />   (setq        pt1 (SS-MINMAXPT ss 1)<br />         pt1 (polar pt1 (* pi 1.25) (sqrt (* 2 no1 no1)))<br />         pt2 (SS-MINMAXPT ss 0)<br />         pt2 (polar pt2 (* pi 0.25) (sqrt (* 2 no1 no1)))<br />   )<br />   (command "rectang" pt1 pt2)<br />   (cmdla1)<br /> )[/FONT]

ewenhui

很好用，谢谢了！