一个更改尺寸类型的LISP程序
AutoCAD制图中经常用到标注尺寸，如果在标注尺寸前，预先对不同的标注尺寸样式进行命名，那么要修改尺寸标注的尺寸线状态、箭头规格、尺寸界线形状、文本位置和文本是一件很容易的事。
但是在实际制图过程中，经常发生预先没有对标注尺寸样式进行命名;或者，在某一个图中命名了标注尺寸样式，但当其图形文件被其它图(含有相同命名的标注尺寸样式)插入，并改变了比例时，图形中的尺寸标注会出现问题。同样的问题也存在于一张图中某些图形进行了比例缩放时。
此时如果把不恰当的尺寸标注一个个删除，再重新标注，显然是一种不值得提倡的方法。实际上，用LISP语言编一个程序，就很容易解决这个问题。
程序的流程是：选择要修改的尺寸标注，程序自动采用过滤方法将尺寸标注筛选出来，再选择要修改到的尺寸标注，程序读取尺寸申请辩识名，将要修改的尺寸标注关联表中相应项，逐个替换，再返回关联表即可。
CHD.LSP(修改尺寸标注形式)源程序如下：
;;;
(defunC:CHD(/ala2b1b2d1d2d3nindex)
(graphscr)
ROMPT"\n请选取尺寸来修改：")
(setqal(ssget’(0."dimension"))))
(PROMPT"\n请选取要修改到的尺寸：")
(setqa2(ENTSEL))
(setqn(SSLENGTHal))
(setqINDEX0)
(setqb2(entget(cara2)))
(setqd2(assoc3b2))
(repeatn
(setqb1(entget(ssnamealindex)))
(setqd1(assoc3b1))
(setqd3(substd2d1b1))
(entmodd3)
(setqindex(+index1))
)
(princ)
)
;;
程序的使用方法，在Command提示符下，键入(load"CHD"),或用下拉菜单中文件项应用程序对话框加载，再键入CHD，然后再根据屏幕上的中文提示，进行选取，非常方便。
