[求助]：缩放可不可以只向一个方向（X方向或Y方向）？

knight_shi

比如说一个正方形，我只想朝X方向缩放使其成为一 个长方形，请指教，谢谢

eachy

拉伸

它山之石

不等比例插入块

knight_shi

谢谢2楼和3楼，我想要的就是不等比例的缩放，拉伸对整张图纸或比较复杂图还是比较局限还是不能达到效果，我想知道有没有什么命令可以直接对对象实施不等比例缩放。

起子

我也想国这样的问题，用块插入炸开不太好
我想编程序的思路是取需要缩放的图元，各提出X、Y、Z的值然后分别对X、Y、Z的值进行操作，然后刷新
不知道有没有更好的思路

有时间了做做这个，最近杂七杂八的事情太多了静不下心来。

它山之石

参考一下俺的这个修改Y向比例的程序，你可以稍做修改就可以了。

[php]
;;;       =======================================
;;;       |           修改窗户厚度              |
;;;       |         Update: 04.06.18            |
;;;       =======================================


(defun C:wc (/ test ss len n en1 a oldr newr ent nn)
  (princ (strcat "\n*** 修改窗户厚度软件V040618 ***"))
  (princ (strcat "\n        [它山之石作品]"))
  (princ)
  (setvar "CMDECHO" 0)
  (setq        test T
        nn 0
  )
  (while test
    (setq ss (ssadd))
    (princ (strcat "\n请选择要修改的窗户<退出>"))
    (setq ss (ssget '((2 . "_wblk"))))
    (if        (= nil ss)
      (setq test nil)
      (progn
        (setq len (sslength ss))
        (setq n        1
              s        1
        )
        (while (<= n len)
          (setq en1 (ssname ss (1- n)))
          (setq a (entget en1))
          (if (= "INSERT" (cdr (assoc 0 a)))
            (progn
              (if (= s 1)
                (progn
                  (setq oldr (cdr (assoc 42 a)))
                  (setq        newr (getreal (strcat "\n输入新的窗户厚度 <"
                                              (rtos oldr 2 1)
                                              ">:"
                                      )
                             )
                  )
                  (if (= newr nil)
                    (setq newr oldr)
                  )
                  (setq s nil)
                )
              )
              (setq ent (subst (cons 42 newr) (assoc 42 a) a))
              (entmod ent)
              (setq nn (1+ nn))
            )
          )
          (setq n (1+ n))
        )
      )
    )
  )
  (princ
    (strcat "\n共有 " (itoa nn) " 处窗户厚度被修改为与墙相同!")
  )
  (princ)
  (initget "Y N")
  (setq hcjs (getkword "\n        ===回车结束==="))
  (terpri)
  (princ (strcat "\n*** 修改窗户厚度软件V040618 ***"))
  (princ (strcat "\n        [它山之石作品]"))
  (princ)

)

;;;V040618 新增功能
;;;   1、为配合建筑批量修改墙厚后，窗户也要改为与墙同厚而新增的程序。
;;;      主要是发现天正中窗户是按比例插入的块，修改Y向比例即可。
[/php]