上千张图批量该块的大小
本帖最后由 dj0737 于 2013-8-20 14:32 编辑(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 于 2013-8-18 11:24 编辑
不知你是不会还是图省事，这么简单的工作还是自己动手做做的好 批量运行lisp的发我一份，有偿 批量运行LISP可以参照这个范例自己改造下就可以
http://bbs.mjtd.com/plugin.php?id=imc_attachplug:attachad&aid=Mzk5MTF8NjgxZmY3YWZ8MTY1MTgwODQxMXwxMjIwNjZ8MjcyNzk%3D
页:
[1]