天正软件拉伸,拉长一个图怎么拉啊?

pl回车。输入线起点宽度（XX）回车。输入线终点宽度（XX）回车。这两个数要一样。适用于少量线加粗。多数线变粗的话有个命令。但是不是CAD自带的。可以自己做，但是要作成AutoLISP 应用程序源代码的类型。后缀为LSP。打开此命令是用记事本。大概可以用相同的文件改，代码在下面。改好以后命名为CW。作好后放在安装的cad2002\Support文件夹下就可以了。用法：（load“cw”)回车，cw回车，输入线宽回车，选择要变宽的线即可。代码如下：（希望你能看懂哈哈。。）
(defun absang(ang)(while (> ang (* 2.0 pi)) (setq ang (- ang (* 2.0 pi))))
(if (< ang 0)( setq ang (+ (* 2.0 pi) ang ))ang))
(defun c:cw(/ length pick width wdlist whlist n pickn pickout flag dpcen ang1
ang2 rad dp1 dp2 atan ch0 listpl entpl entver entver1 entver2 entlist1 entlist2 nn)
(princ"\n 欢迎使用CW小程序.")(princ"\n 本程序可以将多条多义线或是单线的宽度进行改变:")(initget 1)
(setq width (getreal "\n 请输入所需宽度:"))(setq wdlist (cons 40 width))
(setq whlist (cons 41 width))(princ"\n 请选择多义线或是单线:")(setq pick (ssget))
(if (not pick)(progn (princ "\n怎么什么也没选呢?我不干了!")(exit)))
(setq length (sslength pick))(setq n 0)(setq nn 0)(rep