如何仅缩放对象

psyfr3ak · 发表于 2022-7-7 13:17:56

你好
我有一张带图表的图片，我想在X轴和Y轴上进行不同的缩放。也许是extend？如果这是命令，请告诉我怎么做。
谢谢

Shiloh · 发表于 2022-7-7 13:25:12

或者可以将其作为块插入，并在插入时变形x-y坐标

Hoozin · 发表于 2022-7-7 13:33:50

如果您知道它需要什么比例，并且要放入光栅图像，则可以在插入提示中选择一维比例。

如果是其他对象，请阻止它并在“属性”窗口中更改X和Y比例。

Tiger · 发表于 2022-7-7 13:37:21

注意到scaleaxis。lisp已经被删除，所以这里是一个agian-不知道作者是谁，它将所有内容更改为线条，但这是一种简单的方法，可以在一个方向上缩放所有内容。

copy

;;;SCALEAXIS.LSP
;--------------------------------------------------
; ERROR TRAPPING
;--------------------------------------------------
(defun errtrap (msg)
 (cond
   ((not msg))
   (
     (member msg '("Function cancelled" "quit / exit abort"))
     (command "undo" "")
   )
   (
     (princ (strcat "\nError: " msg))
     (command "undo" "")
   )
 );cond
);defun
;--------------------------------------------------
;  MAIN ROUTINE
;--------------------------------------------------
(defun c:scaleaxis (/ *error* *ss1 bspt ax mult refpt refdx newdx)
(command "._undo" "end" "._undo" "begin")
(setq *error* errtrap)
(setq ss1 (ssget))
(setq bspt (getpoint "\nSelect basepoint: "))
(initget "X Y Z")
(if
 (not
   (setq ax (getkword "\nSpecify axis to scale: <X> "))
 );not
 (setq ax "X")
);if
(if
 (not 
   (setq mult (getreal "\nEnter scale factor or <Reference>: "))
 );not
 (progn
   (setq refpt1 (getpoint "\nSpecify reference length: "))
   (setq refdx (getdist refpt1 "\nSpecify second point: "))
   (setq newdx (getdist refpt1 "\nSpecify new length: "))
   (setq mult (/ newdx refdx))
 );progn
);if
(setvar "expert" 2)
(setvar "explmode" 1)
(command "._-block" "SCALETEMP" bspt ss1 "")
(command "._-insert" "SCALETEMP" ax mult bspt "0")
(command "._explode" "last" "")
(command "._-purge" "blocks" "SCALETEMP" "n")
(setvar "expert" 1)
(command "._undo" "end")
(princ)
(*error* nil)
)

LCE · 发表于 2022-7-7 13:42:43

正如其他人所说，阻止它，设置轴比例，然后根据需要分解它。

stianhaugli · 发表于 2022-7-7 13:48:23

嗨，这是我在你们论坛上的第一篇帖子：-）
我看到这是一个相当古老的线程，但我想提及一个Lisp，我们称之为“fit.lsp”。它与autocad 2000-2010配合使用，很好地解决了这个问题。

我们很久以前写过这篇小文章，我想我会分享它
你可以从我们的网站下载。（我刚刚被你的论坛屏蔽了，说只有9个帖子或更多的用户才能发布网络链接，所以在这里-用莫尔斯电码）3xw.xordesign.com，点击工具箱。

也许有人（魔法9）可以重新发布一个合适的链接？

我没有“kelvinated”的口齿不清，因为我不介意你们阅读代码，并在一个条件下共享：不要删除凭据（请？）

请不要看网站的其余部分。我们没有太多时间更新它。。
最好的
斯蒂安语