苹果6p原装外屏多少钱:天正软件拉伸,拉长一个图怎么拉啊?

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)(repeat length
(setq pickn (ssname pick n))(setq n (1+ n))(setq pickout (entget pickn))
(cond((equal (cdr (assoc '0 pickout)) "POLYLINE")
(setq pickout (subst wdlist (assoc '40 pickout) pickout) pickout (subst whlist (assoc '41 pickout) pickout))
(entmod pickout)(setq flag 1)(while flag (setq pickn (entnext pickn )
pickout (entget pickn))(cond ((equal (cdr (assoc '0 pickout)) "VERTEX")
(setq pickout (subst wdlist (assoc '40 pickout) pickout)
pickout (subst whlist (assoc '41 pickout) pickout))(entmod pickout))
((equal (cdr (assoc '0 pickout)) "SEQEND")(setq flag nil)))))
((equal (cdr (assoc '0 pickout)) "ARC")(setq dpcen (cdr (assoc '10 pickout))
ang1 (cdr (assoc '50 pickout))ang2 (cdr (assoc '51 pickout)) rad (cdr (assoc '40 pickout))
dp1 (polar dpcen ang1 rad)dp2 (polar dpcen ang2 rad)atan (/ (absang (- ang2 ang1)) 4.0)
atan (/ (sin atan) (cos atan)) ch0 (cdr (assoc '8 pickout)))
(setq listpl '((210 0.0 0.0 1.0)(71 . 0)(72 . 0)(73 . 0)(74 . 0)(75 . 0))
entpl (cons wdlist (cons whlist listpl)) entpl (cons '(10 0.0 0.0 0.0) entpl)
entpl (cons '(70 . 0)entpl)entpl (cons '(66 . 1)entpl)entpl (cons (cons 8 ch0)entpl)
entpl (cons '(0 . "POLYLINE") entpl))(entmake entpl)
(setq entver '((70 . 0)(50 . 0.0)(71 . 0)(72 . 0)(73 . 0)(74 . 0))
entver (cons (cons 42 atan) entver )entver (cons wdlist (cons whlist entver))
entver (cons (cons 8 ch0)entver )entver1(cons (cons 10 dp1)entver )
entver2(cons (cons 10 dp2)entver)entver1(cons '(0 . "VERTEX") entver1)
entver2(cons '(0 . "VERTEX") entver2))(entdel pickn)(entmake entver1)
(entmake entver2)(entmake '((0 . "SEQEND"))))
((equal (cdr (assoc '0 pickout)) "LINE")(setq dp1 (cdr (assoc '10 pickout))
dp2 (cdr (assoc '11 pickout))ch0 (cdr (assoc '8 pickout)))(entdel pickn)
(setq entlist1 '((71 . 0)(72 . 0)(73 . 0)(74 . 0)(75 . 0)) entlist2 '((71 . 0)(72 . 0)(73 . 0)(74 . 0)))
(setq entpl (cons '(210 0.0 0.0 1.0) entlist1) entpl (cons wdlist (cons whlist entpl))
entpl (cons '(10 0.0 0.0 0.0) entpl) entpl (cons '(70 . 0) entpl) entpl (cons '(66 . 1) entpl)
entpl (cons (cons 8 ch0) entpl) entpl (cons '(0 . "POLYLINE") entpl))
(entmake entpl)(setq entver(cons '(50 . 0.0) entlist2) entver(cons '(70 . 0) entver )
entver(cons '(42 . 0.0) entver ) entver(cons wdlist (cons whlist entver))
entver(cons (cons 8 ch0) entver) entver1(cons (cons 10 dp1)entver)
entver1(cons '(0 . "VERTEX") entver1))(entmake entver1)
(setq entver2(cons (cons 10 dp2)entver) entver2(cons '(0 . "VERTEX") entver2))
(entmake entver2)(entmake '((0 . "SEQEND"))))(pickn (setq nn (1+ nn)))))(redraw)
(if (> nn 0)(progn(princ "\n顺利完成")(princ "\n选择集中共有 ")(princ nn)(princ " 个不是弧,单线,多义线的实体,未做处理.")))
(princ))

stretch:拉伸命令