[求助]求局部放大的Lisp

futuremh

图纸局部放大的lisp,有的地方看不清,用局部放大的功能.这样子的小程序有人有吗?

我也曾在网上找到一个,但是不好用,有没有人有完美版的的.发上来大家分享一下.

ZZXXQQ

3. (defun c:FD(/ e p pc k r n ep)
4. (SETVAR "BLIPMODE" 0)
5. (SETVAR "CMDECHO" 0)
6. (princ "\nplease select the circle 请选要放大的圆 :" )
7. (setq e (car (entsel))
8.       pc (cdr (assoc 10 (entget e)))
9.       p (getpoint "\nplease input the point 输入放置点 :")
10.       k (getreal "\nplease input ratio 输入放大比例 :")
11.       r (cdr (assoc 40(entget e)))
12. )
13. (command "copy" "cp")
14. (setq n 0)
15. (repeat 180
16.    (command (polar pc (/(* 2 n pi)180) r))
17.    (setq n (+ n 1))
18. )
19. (command "" "" pc p)
20. (setq n 0)
21. (setvar "pickbox" 5)
22. (command "zoom" "c" p (* 3 r ))
23. (command "circle" p r)
24. (setq ep (entlast))
25. (command "trim" ep "")
26. (repeat 180
27.    ;;;(command (polar p (/(* 2 n pi)180)(* r 1.1)))
28.    (command "f" (polar p (/(* 2 n pi)180)(* r 1.01)))
29.    (setq n (+ n 1))
30.    (command (polar p (/(* 2 n pi)180)(* r 1.01))"")
31. )
32. (command "" "zoom" "P")
33. (command "scale" "c" (list (-(car p)r)(-(cadr p)r))
34. (list (+ (car p)r)(+(CADR P)R))"" P K)
35. (command "erase" ep "")
36. (command "redraw")
37. (SETVAR "BLIPMODE" 1)
38. (SETVAR "CMDECHO" 1)
39. (princ)
40. )
41. (princ "\nType FD to start.")
42. (princ)

(defun c:FD(/ e p pc k r n ep) (SETVAR "BLIPMODE" 0) (SETVAR "CMDECHO" 0) (princ "\nplease select the circle 请选要放大的圆 :" ) (setq e (car (entsel))       pc (cdr (assoc 10 (entget e)))       p (getpoint "\nplease input the point 输入放置点 :")       k (getreal "\nplease input ratio 输入放大比例 :")       r (cdr (assoc 40(entget e))) ) (command "copy" "cp") (setq n 0) (repeat 180    (command (polar pc (/(* 2 n pi)180) r))    (setq n (+ n 1)) ) (command "" "" pc p) (setq n 0) (setvar "pickbox" 5) (command "zoom" "c" p (* 3 r )) (command "circle" p r) (setq ep (entlast)) (command "trim" ep "") (repeat 180    ;;;(command (polar p (/(* 2 n pi)180)(* r 1.1)))    (command "f" (polar p (/(* 2 n pi)180)(* r 1.01)))    (setq n (+ n 1))    (command (polar p (/(* 2 n pi)180)(* r 1.01))"") ) (command "" "zoom" "P") (command "scale" "c" (list (-(car p)r)(-(cadr p)r)) (list (+ (car p)r)(+(CADR P)R))"" P K) (command "erase" ep "") (command "redraw") (SETVAR "BLIPMODE" 1) (SETVAR "CMDECHO" 1) (princ) ) (princ "\nType FD to start.") (princ)

futuremh

好像不是我需要的那种,不过还是要谢谢版主这么热心

wxssh

LZ是想把选择区域提取出来，在另外一个窗口中打开吧？

124350440

支持ZZXXQQ,很好的程序