《AutoCAD实用参考资料》一个更改尺寸类型的LISP程序

个更改尺寸类型的LSP程序 AutocAD制图中经常用到标注尺寸,如果在标注尺寸前,预先对不同的标注尺寸样式进行 命名,那么要修改尺寸标注的尺寸线状态、箭头规格、尺寸界线形状、文本位置和文本是 件很容易的事 但是在实际制图过程中,经常发生预先没有对标注尺寸样式进行命名或者,在某一个 图中命名了标注尺寸样式,但当其图形文件被其它图(含有相同命名的标注尺寸样式)插入, 并改变了比例时,图形中的尺寸标注会出现问题。同样的问题也存在于一张图中某些图形进 行了比例缩放时 此时如果把不恰当的尺寸标注一个个删除,再重新标注,显然是一种不值得提倡的方法 实际上,用LISP语言编一个程序,就很容易解决这个问题。 程序的流程是:选择要修改的尺寸标注,程序自动采用过滤方法将尺寸标注筛选出来, 再选择要修改到的尺寸标注,程序读取尺寸申请辩识名,将要修改的尺寸标注关联表中相应 项,逐个替换,再返回关联表即可 CHD. LSP(修改尺寸标注形式)源程序如下 (defun C: CHD(/ al a2 bl b2 dI d2 d3 n index) (graphscr) ROMPT"n请选取尺寸来修改:") (setq al(ssget'(O "dimension)))) ( PROMPT"n请选取要修改到的尺寸:" (setq a2 (ENTSEL)) (setq n(SSLENGTH al)) (setq INDEX O (setq b2(entget (car a2))) (setq d2 (assoc 3 b2)) (repeat n (setq bl(entget(ssname al index))) ( setq dl(assoc 3 bl)) ( setq d3(subst d2 dI bl)) (entmod d3) ( setq index(+ index D)) (princ) 程序的使用方法,在 Command提示符下,键入(load"CHD"),或用下拉菜单中文件项应 用程序对话框加载,再键λCHD,然后再根据屏幕上的中文提示,进行选取,非常方便

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