[求助]：如何实现x和y两个方向的不同比例缩放？

95010094

如何实现x和y两个方向的不同比例缩放？
用图块可以实现，完成缩放后炸开，里面的多义线也都炸开了。
请高手指条明路！

newdhj

用lsp 做个图标

newdhj

这个程序不是我做的，但很好用

95010094

非常感谢
麻烦你了，请再赐教怎么做成工具栏按钮？谢谢
一组多义线，其中有一水平直线，用此命令缩放x=2其他=1，结果其中的直线不是水平的了，怎么会事？
附文件2005格式！
在线等……………………

newdhj

1、做工具栏按钮可参考
http://p4.xdcad.net/forum/showth ... 2267624#post2267624
2、在缩放前用“特性”查看一下是否直线

jan83

我以前都是把它粘贴成块后再缩放的

llmin

该程序有问题，我在2005；2007 上试了试，X方向放大无论几倍，Y和Z方向不变结果都是原水平变得不水平了，且连续线均被炸成不连续线，还不块缩放。请二楼说说

hearts_j

其实用align命令也可以的，稍微麻烦一点

一天夜星

程序的确有问题，非比缩放圆还好点，如果是矩形或直线，根本不行。
那位会LS编程的修改下，应该就可以正常。
附该lsp的代码：
;;;调整对象XY比例
;;;程序设计:赖云龙;;;
;;;---------------;;;
(defun C:scalexyz (/ holdosmode AA PT X Y PT1 PT2 L1 L2)
  (command "_.undo" "_be")
  (setq holdosmode (getvar "osmode"))
  (setvar "osmode" 39)
  (defun LL ()
    (setq PT1 (getpoint "\n参考长度基准点: "))
    (setq PT2 (getpoint PT1 "\n第二点: "))
    (setq L1 (distance PT1 PT2))
    (setq PT1 (getpoint "\n新的长度基准点: "))
    (setq PT2 (getpoint PT1 "\n第二点: "))
    (setq L2 (distance PT1 PT2))
  )
  (while (= AA NIL)
    (setq AA (ssget))
  )
  (setq PT (getpoint "\n基准点 : "))
  (setq X (getstring "\nX比例(R) <1>: "))
  (cond
    ((= X "")
     (setq X 1)
    )
    ((or (= X "R") (= X "r"))
     (LL)
     (setq X (/ L1 L2))
    )
    (t
     (setq X (atof X))
    )
  )
  (setq        Y (getstring (strcat "\nY比例(R) <1>: ")
          )
  )
  (cond
    ((= Y "")
     (setq Y 1)
    )
    ((or (= Y "R") (= Y "r"))
     (LL)
     (setq Y (/ L1 L2))
    )
  )
  (setq        Z (getstring (strcat "\nZ比例(R) <1>: ")
          )
  )
  (cond
    ((= Z "")
     (setq Z 1)
    )
    ((or (= Z "R") (= Z "r"))
     (LL)
     (setq Z (/ L1 L2))
    )
  )
  
  (setq A (rtos (* (getvar "CDATE") 1E8)))
  (command "_.BLOCK" A PT AA "")
  (command "_.INSERT" A PT X Y Z)
  (command "_.EXPLODE" "L")
  (prompt "\n")
  (command "_.purge" "b" A "n")
  (setvar "osmode" holdosmode)
  (command "_.undo" "_end")
  (princ)
)

ryanzzq

怎么样啊？scalexyz我的cad里怎么没有啊！

jx2008

确实有问题，正确的如下：
(defun C:SCALEXY (/ holdosmode AA PT X Y PT1 PT2 L1 L2)
  (command "_.undo" "_be")
  (setq holdosmode (getvar "osmode"))
  (setvar "osmode" 39)
  (defun LL ()
    (setq PT1 (getpoint "\n参考长度基准点: "))
    (setq PT2 (getpoint PT1 "\n第二点: "))
    (setq L1 (distance PT1 PT2))
    (setq PT1 (getpoint "\n新的长度基准点: "))
    (setq PT2 (getpoint PT1 "\n第二点: "))
    (setq L2 (distance PT1 PT2))
  )
  (while (= AA NIL)
    (setq AA (ssget))
    (setq PT (getpoint "\n基准点 : "))
    (setq X (getstring "\n/参考(R)[横向] <1>: "))
    (cond ((= X "") (setq X 1))
          ((or (= X "R") (= X "r")) (LL) (setq X (/ L1 L2)))
          (t (setq X (atof X)))
    )
    (setq Y (getstring (strcat "\n/参考(R)[纵向] <" (rtos X) ">: ")))
    (cond ((= Y "") (setq Y 1))
          ((or (= Y "R") (= Y "r"))
           (LL)
           (setq Y (/ L1 L2))
          )
    )
    (setq A (rtos (* (getvar "CDATE") 1E8)))
    (command "_.BLOCK" A PT AA "")
    (command "_.INSERT" A PT X Y "")
    (command "_.EXPLODE" "L");炸开块
    (prompt "\n")
    (command "_.purge" "b" A "n")
    (setvar "osmode" holdosmode)
    (command "_.undo" "_end")
    (princ)
  )
)

心中留

我一直是先做成块，然后炸开。

wangxj2002

哦！不错！感谢分享！！

chenzl1234

11楼楼主，你的程序缩放多线段的时候，缩放完会自动炸成直线!