上千张图批量该块的大小

dj0737

(defun c:gbsc()
(setvar "cmdecho" 0)
(setq <xor (CONS -4 "<XOR")
        xor> (CONS -4 "XOR>") )
(setq <and (cons -4 "<and")
        and> (cons -4 "and>") )
(setq <or (cons -4 "<OR")
        or> (cons -4 "OR>") )
(initget (+ 2 4) "De All")
(setq kword (getkword "D 单个图块 / A <全部图块> :" ))(PRINT)
(cond ((or (= kword "All")(= kword nil))
    (setq enst (ssget "x" (list (cons 0 "insert"))))
    (setq p 0)
    (if enst
     (progn
     (setq scale_b (getreal "输入图块比例尺:"))(PRINT)
        (while (< p (sslength enst))
     (setq enst_block (ssname enst p))
     (setq block_table (entget enst_block))
     (setq block_table (subst (cons 41 scale_b) (assoc 41 block_table) block_table))
     (setq block_table (subst (cons 42 scale_b) (assoc 42 block_table) block_table))
     (setq block_table (subst (cons 43 scale_b) (assoc 43 block_table) block_table))   
     (entmod block_table)
     (setq p (1+ p))
        )
    );progn
  );if
(if (not enst) (alert "没有选中任何物体 !"))
  )
  ((= kword "De")
    (setq bname (getstring "输入块名:"))(PRINT)
    (setq enst (ssget "x" (list <and (cons 0 "insert")(cons 2 bname)and>)))
    (setq p 0)
    (if enst
     (progn
        (setq scale_b (getreal "输入图块比例尺:"))(PRINT)
        (while (< p (sslength enst))
     (setq enst_block (ssname enst p))
     (setq block_table (entget enst_block))
     (setq block_table (subst (cons 41 scale_b) (assoc 41 block_table) block_table))
     (setq block_table (subst (cons 42 scale_b) (assoc 42 block_table) block_table))
     (setq block_table (subst (cons 43 scale_b) (assoc 43 block_table) block_table))   
     (entmod block_table)
     (setq p (1+ p))
        )
    );progn
  );if
(if (not enst) (alert "没有选中任何物体 !"))
)
);cond

(PRINC)
);DEFUN
我需要将上千张图纸中的图块“拐点”的x、y的比例改为12，我有批量运行LISP的程序，请高手帮我改改这个程序，目标是程序不要提示输入块名 ，也不要提示输入比例值，运行程序，输入gbsc命令，就能将图块“拐点”的x、y的比例改为12。谢谢！  帮我修改者留下邮箱，我赠送批量运行LISP的VB程序。
LISP我不会，再次感谢！

zyhandw

不知你是不会还是图省事，这么简单的工作还是自己动手做做的好

zhangcan0515

批量运行lisp的发我一份，有偿

njcknfy

批量运行LISP可以参照这个范例自己改造下就可以
http://bbs.mjtd.com/plugin.php?i ... xMjIwNjZ8MjcyNzk%3D