[求助]那位大哥帮帮忙啊！

had

不知道谁可以帮我编一个自动加边匡的软件啊，要求是能，第一步，输入命令，第二步，输入我要的距离，它就能按我的要求检测到图形的四边然后出现一个我所需要离图形边多少的矩形匡。详情请看附件。但是一定要R14用的哦！

meflying

转帖，以后不要在别人的帖子里乱帖东西


请高手指点，帮我将它改成可以加到R14里去。本人感激不尽。

meflying

晕，编译过的文件怎么给你改？这不是要破解吗？破解可不是这里该讨论的。。。


不过我试了，2004下运行没问题，一般情况下，R14的程序都可以在以后的版本中运行，不知道你有什么问题，怎么不能用？

had

望各位帮帮忙哦。

had

有是有但是我会用啊

meflying

装一个Visual Lisp for R14就可以了，再把(vl-load-com)这句去掉

had

用Visual Lisp for R14怎么将源码转换成ARX文件啊。

meflying

为什么要转成ARX？


你直接加载代码就可以了，至于怎么转我也不知道，我没用过，你自己琢磨一下吧，是编译成ARX

ZZXXQQ

楼主是玩模切板的。程序：

1. (DEFUN C:ADDBORDER ()
2. (SETQ BX (GETDIST "\nEnter Around Space 输入四周间隔:")
3.            OLDL (GETVAR "CLAYER")
4.            OLDS (GETVAR "OSMODE"))
5. (COMMAND "ZOOM" "E" "REGEN")
6. (SETQ PX (GETVAR "EXTMIN")           PY (GETVAR "EXTMAX")
7.            P1 (POLAR (POLAR PX PI BX) AL2 BX)
8.            P2 (POLAR P1 AL1 (+ (- (CADR PY) (CADR PX)) BX BX))
9.            P3 (POLAR P2 0 (+ (- (CAR PY) (CAR PX)) BX BX))
10.            P4 (LIST (CAR P3) (CADR P1)))
11. (SETVAR "OSMODE" 0)
12. (COMMAND "LAYER" "M" "BORDERLINE" "C" "6" "" ""
13.                  "LINE" P1 P2 P3 P4 "C" "LAYER" "S" OLDL "" "ZOOM" "E")
14. (SETVAR "OSMODE" OLDS)
15. )(DEFUN C:DELBORDER ()
16. (SETQ SS (SSGET "X" (LIST (CONS 8 "BORDERLINE"))) SL (SSLENGTH SS))
17. (IF (> SL 0)
18.   (COMMAND "ERASE" SS "")
19.   (PRINC "\nCon't found any Entitil. 未找到任何实体。")
20. )
21. (PRINC)
22. )
23. (PRINC)

复制代码

had

果然厉害哦，连这也让你看出来了哦。佩服佩服！！！！！！