[原创][求助]有关选择集替换问题(已解决)

AMTONNY

 

我自已修改了一个别人写的局部放大视图的文件以下是程序的全部内容,红色部分为写不的地方,请高手帮忙修改,要求使用

(entlast)选择刚画好的对象代替下面的碰选(entsel)动作,即不需要再碰选对象即可进入下一个运算语句
     

 

(DEFUN C:Fs( / E P PC K R N EP)
(setvar "CMDECHO" 0)
   (SETQ osnap (Getvar "osmode"))
(setvar "osmode" 0)
(command "ucs" "w")
(PRINC "\n局部放大图:")
(SETQ Ea (getpoint "\n->请指定圆心点:"))
(command "circle" ea pause)
(SETQ Eaa (entlast))；此处选择刚画好的对象
(SETQ E (car (entsel))；如何用刚选取的选择集替换此处的碰选对象（代替(entsel)）
      PC (cdr (assoc 10 (entget E)))
      P (getpoint "\n->请指定视图放置点:")
      K (getreal "\n请指定放大比例:")
      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 "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 "")
(command "scale" "c" (list (-(car p) r)(- (cadr p)r))
                     (list (+ (car p) r) (+ (cadr p)r)) "" p k)
(command "erase" ep "")

(setvar "osmode" osnap)
(command "UCS" "P")
(command "UNDO" "e")
(setvar "CMDECHO" 1)
(princ)
)

xyp1964

2. (DEFUN C:tt (/ E P PC K R N EP)
3.   (setvar "osmode" 0)
4.   (PRINC "\n局部放大图: ")
5.   (SETQ pt (getpoint "\n请指定圆心点: "))
6.   (command "circle" pt pause)
7.   (SETQ e  (entlast)
8. PC (cdr (assoc 10 (entget E)))
9. P  (getpoint "\n请指定视图放置点: ")
10. K  (getreal "\n请指定放大比例: ")
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 "circle" p r)
23.   (setq ep (entlast))
24.   (command "trim" ep "")
25.   (repeat 180
26.     (command "f" (polar p (/ (* 2 n pi) 180) (* r 1.01)))
27.     (setq n (+ n 1))
28.     (command (polar p (/ (* 2 n pi) 180) (* r 1.01)) "")
29.   )
30.   (command "")
31.   (command "scale"
32.     "c"
33.     (list (- (car p) r) (- (cadr p) r))
34.     (list (+ (car p) r) (+ (cadr p) r))
35.     ""
36.     p
37.     k
38.   )
39.   (command "erase" ep e "")
40.   (princ)
41. )

(DEFUN C:tt (/ E P PC K R N EP)   (setvar "osmode" 0)   (PRINC "\n局部放大图: ")   (SETQ pt (getpoint "\n请指定圆心点: "))   (command "circle" pt pause)   (SETQ e  (entlast) PC (cdr (assoc 10 (entget E))) P  (getpoint "\n请指定视图放置点: ") K  (getreal "\n请指定放大比例: ") 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 "circle" p r)   (setq ep (entlast))   (command "trim" ep "")   (repeat 180     (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 "")   (command "scale"     "c"     (list (- (car p) r) (- (cadr p) r))     (list (+ (car p) r) (+ (cadr p) r))     ""     p     k   )   (command "erase" ep e "")   (princ) )

zhongys

对块不能修剪,