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

答案:4 悬赏:30 手机版

解决时间 2021-12-30 05:06

提问者网友：太高姿态
2021-12-29 13:05

比如说宽200 长1000的图怎么改成宽还是200 长500的啊？？
在线等答案，还有说的详细点，我刚接触CAD

最佳答案

五星知识达人网友：荒野風
2021-12-29 14:27

用拉伸不好操作的话，建议用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 errexit mbx BLAYER)

(setq T (not nil))
(setq olderr *error*
*error* errexit
)
(setq oldvar
(list
(getvar "CMDECHO")
)
)
(setvar "CMDECHO" 0)
(terpri)
(if BLAYER
(command "._LAYER"
(if (tblsearch "LAYER" BLAYER) "_S" "_M")
BLAYER
""
)
)
(if (and ip ss)
(progn
(entmake (list
(cons '0 "BLOCK")
(cons '2 "*U")
(cons '70 1)
(cons '10 ip)
))
(setq cnt (sslength ss))
(while (>= (setq cnt (1- cnt)) 0)
(setq tmp (ssname ss cnt))
(entmake (setq el (entget tmp)))
(if (> (cdr (assoc 66 el)) 0)
(while
(/= "SEQEND"
(cdr
(assoc 0
(entmake (setq el (entget (entnext (cdr (assoc -1 el))))))
)
)
)
)
)
(entdel tmp)
)
(setq tmp (entmake (list (cons '0 "ENDBLK"))))
(entmake (list
(cons '0 "INSERT")
(cons '2 tmp)
(cons '10 ip)
))
)
)
(restore)
)

(setq ss (ssget)) ;;; 选择缩放实体
(if ss
(progn
(setvar "cmdecho" 0)
(setq bp (getpoint "缩放基准点 (<0,0,0>): "))
(if (not bp) (setq bp (list 0 0 0)))
(setq xscal (getreal "X向比例因子 <1>: "))
(if (not xscal) (setq xscal 1))
(setq yscal (getreal "Y向比例因子 <1>: "))
(if (not yscal) (setq yscal 1))
(MAKEUNBLOCK ss bp)
(setq entL (entget (entLast))
entL (subst (cons 41 xscal) (assoc 41 entL) entL)
entL (subst (cons 42 yscal) (assoc 42 entL) entL)
)
(entmod entL)
(command "_explode" "l" "")
)
)
(princ "X,Y不同比例缩放, 命令:XSCALE")
)

保存后把记事本名称及后缀全部重命名为： xscale-XY方向不同比例(数值)缩放.lsp

回到CAD中，工具——加载应用程序——右下角启动内容——找到你刚才创建的文件路径，一路确定，重新运行CAD程序
选中要缩放的对象，命令栏里输入： XSCALE
x方向比例：1
y方向比例：0.5

完毕！

全部回答

1楼网友：走死在岁月里
2021-12-29 17:38

什么线路图？电路吗？

2楼网友：山君与见山
2021-12-29 16:53

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

3楼网友：七十二街
2021-12-29 16:02

在正交状态下，全选图形,执行stretch命令，点击最右端向左拖动。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息