[求助][LISP]這樣可以嗎？
(defun c:FDd()<BR>(setq veracad (atoi (getvar "ACADVER")))<BR>(if (>= veracad 15)<BR>(fdd2000)<BR>)<BR>)<BR>(defun FDd2000(/ e p pc k r n ep)<BR>(setvar "CMDECHO" 0)<BR>(setvar "OSMODE" 0)<BR>(setq e (car (entsel"\n局部放大\n此命令之前必须在要放大区域画一个圆\n请选择放大区域圆:"))<BR> pc (cdr (assoc 10(entget e)))<BR> p (getpoint "\n请输入放大后位置:")<BR> k (getreal "\n请输入放大倍数:")<BR> r (cdr (assoc 40 (entget e)))<BR>)<BR>(setq kkk p)<BR>(command "copy" "cp" )<BR>(setq n 0 )<BR>(repeat 180<BR> (command (polar pc (/ (* 2 n pi) 180) r))<BR> (setq n (+ n 1))<BR>)<BR>(command """" pc p)<BR>(setq n 0)<BR>(setvar "PICKBOX" 5)<BR>(command "zoom" "c" p (* 3 r))(command "circle" p r)<BR>(setq ep (entlast))<BR>(command "trim" ep "" )<BR>(repeat 180<BR> (command (polar p (/ (* 2 n pi)180) (* r 1.1)))<BR> (command "f" (polar p (/ (* 2 n pi) 180) (* r 1.01)))<BR> (setq n (+ n 1))<BR> (command (polar p (/ (* 2 n pi) 180) (* r 1.01)) "")<BR>)<BR> (COMMAND "")<BR> (command "erase"ep"")<BR>(command "" "zoom""p")<BR>(command "copyclip" "w" (list (- (car p) r) (- (cadr p) r))<BR> (list (+ (car p) r)(+ (cadr p) r)) "")<BR>(command "erase""c"(list (- (car p) r) (- (cadr p) r))<BR> (list (+ (car p) r)(+ (cadr p) r)) "")<BR>(command "pasteclip" (list (- (car p) r) (- (cadr p) r)))
(command "scale""c"(list (- (car p) r) (- (cadr p) r))<BR> (list (+ (car p) r)(+ (cadr p) r)) "" kkk k)<BR>(command "redraw")<BR>(setvar "OSMODE" 4261)<BR>(princ)<BR>)<BR>请教一下，我有个PHA的图层，那么能将放大的那个圆直接改成这个图层吗？另外是不是有办法可以让放大的地方，标註比例不会跟著变大，而是和平常一样？或者当标註放大的地方时，可以自动改变标註比例为放大的相对缩小比例
页:
[1]