s4)

2

(cdr

″ERASE″

　　措施2：以新块替代旧块，并保持插入点、比例、角

；统计数目

s1

s1

″Replace

nil

(assoc

个名为count.lsp的AutoLISP措施，可以统计出全图内全部

″x″

(cdr

0))

2

　　)

；得到旋转角度

s2

c:replace(/

14中的bonus器材里，有一

s0)))

　　(COMMAND

；得到实体名称

块（BLOCK）AutoCAD制图中一种重要的实体。在工

程图纸中，很多已形陈类型或尺度的装备元件的图形标记

s0)))

(sslength

found.″)

″″)

(assoc

　　(setq

；得到块名

(assoc

name:″))

s0)))

　　(setq

s1))

s1))))

　　(setq

；选择一个块

s3

；得到实体名称

s1

s2))

sum

　　(defun

s0

；选择一个块

s4

　　(setq

(cons

　　(princ)

″INSERT″

s3

s0

；得到块名

c:count(/

nil

s4

　　(setq

10

；删除旧块

　　(setq

s1

s2

nil

50

en

　　(terpri)

(getstring

l)

；得到比例因子

；输出功效

s1

en))

(entget

block

nil

sum)

　　(setq

(ssname

(cdr

s1

ni

s1)

　　(setq

″)

s1)))

s1

sum)

s2

(ssget

″INSERT″

s1

(assoc

　　(setq

　　(setq

；得到插入点

s2

；将同名块插手选择集

措施1：统计所选择的块的数目。

s3

nil

　　(defun

nil

　　(setq

　　(COMMAND

s4)

s0

每每被制成图块，编入图库，以利于此后挪用。偶然辰一张图纸中必要统计沟通元件的个数，液压油缸，譬喻电气开关、照明灯具等，可能应客户要求必要改变装备，以另一种装备替代，在装备元件较多的环境下，手工处理赏罚显然不吻合。笔者于是编写了以下两个小措施，供各人考。措施在Auto

；插入新块完成替代

41

(list

0))

en

；输入新块名

s1

sum

(assoc

s1

s2

s1

s1

en

(ssget))

s0

)

(entget

s0)))

　　(princ

　　(setq

(cdr

　　(princ

s2

　　)

　　(setq

nil

(ssname

　　(setq

　　虽然，在最新的AutoCAD

s2

s3

　　(setq

en

″)

度稳固。

s3

图块的数目，活塞杆，各人也可以随便享用。

(ssget))

0

2

(cdr

　　(princ

　　(setq

　　(princ

　　(princ

s0

0)

(cons