社区 › AutoCAD基础应用 › 如何只对y方向缩放，而x方向不变

kbx856 发表于 2011-12-13 09:46:23

这个问题很简单，要是能直接炸开变成多线就好了

江湖远人 发表于 2011-12-13 10:57:04

好像都是做成块的吧

zgzzsn 发表于 2011-12-15 08:02:15

这个真应该有cad新版本解决。

ctclsc 发表于 2011-12-16 12:46:53

;在X、Y方向上按一定比例缩放，并且可以旋转
(defun C:SF (/ SS IP XS YS RA)
(setvar "cmdecho" 0)
(setq SS (ssget)
      IP (getpoint "\n指定基点:")
) ;_ end of setq
(initget 6)
(setq XS (getreal "\n指定X方向的比例因子 <1>:"))
(initget 6)
(setq YS (getreal "\n指定Y方向的比例因子 (默认=X):")
      RA (getreal "\n指定旋转角度 <0>:")
) ;_ end of setq
(if (= XS NIL)
    (setq XS 1)
) ;_ end of if
(if (= YS NIL)
    (setq YS XS)
) ;_ end of if
(if (= RA NIL)
    (setq RA 0)
) ;_ end of if
(command
    "block" "xstemp" IP SS "" "insert" "xstemp" IP XS YS RA "explode"
    "l" "purge" "b" "xstemp" "n"
   ) ;_ end of command
(setvar "cmdecho" 1)
(PRINC)
) ;_ end of defun

panzhongw 发表于 2011-12-18 11:19:50

用块最简单

qq229918602 发表于 2011-12-18 22:57:47

做成块就可以。。

查看完整版本: 如何只对y方向缩放，而x方向不变