[LISP程序]：一个更改尺寸类型的LISP程序

wkj_jie

一个更改尺寸类型的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，(graphscr)  ;;;不明参数，还没贴完吧
2，ROMPT "\n请选取尺寸来修改：")  ;;;不知你是马虎还是什么，前句应该是这样吧(prompt...
3，(setq al (ssget' (0."dimension"))));;;括号不匹配

其实本人觉得此程序意义不大，不如用CAD自带程序matchprop来得实在。。。
下面为稍改程序所得到的结果：
(defun C:CHD(/ al a2 b1 b2 d1 d2 d3 n index)
;(graphscr)
(PROMPT "\n请选取要修改到的尺寸：")  ;;;参照在前，选择在后
(while (not (setq a2 (entsel "\n请选择参照尺寸..")))
   (princ)
   (setq a2 nil)
)
(pROMPT "\n请选取尺寸来修改：")
(setq al (ssget '((0 . "dimension"))))
　　(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)
　)

zxq0220

(GRAPHSCR)；从文本屏幕翻转到图形屏幕
(TEXTSCR)；转为文本显示
这两个LISP函数在高版本中不能用吗？

wkj_jie

呵，我也是初学者，多谢了！

qjcpj

我觉得对新人应多一点鼓励，少一点责备，程序有什么问题，大家可...