MVH 发表于 2007-6-3 03:53

一个更改尺寸类型的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,然后再根据屏幕上的中文提示,进行选取,非常方便。
页: [1]
查看完整版本: 一个更改尺寸类型的LISP程序