我用CAD画的一张线路图，太长了，怎么改短？

不用吧，还代码呢，你吓唬人呢？直接用拉伸命令。或者输入命令“S”，然后 从右下角开始拖选矩形的一半，确定点，缩短。。把鼠标移向左边，输入“500”就缩短了

用拉伸不好操作的话，建议用x,y方向不同比例缩放命令操作，先新建一个记事本，复制如下代码：

;x,y方向不同比例缩放
; *** XSCALE [Version 1.0] 6/22/2005 ***
;
;Copyleft Gu Wenwei
;
; ***************************************
; **** Author: Apooollo ****
; **** ****
; **** Wuxi Jiangsu China ****
; ***************************************
;
;
; This program takes selected objects, defines an anonymous block,
; then inserts the block at the original location, Scale by X,Y

(defun C:XSCALE(/ bp ss xscal yscal entL)

(defun errexit (s)
(princ "\nError: ")
(princ s)
(restore)
)

(defun restore ()
(setvar "CMDECHO" (car oldvar))
(setq *error* olderr)
(princ)
)

(defun MAKEUNBLOCK (ss ip / tmp erre