如何仅缩放对象
你好我有一张带图表的图片，我想在X轴和Y轴上进行不同的缩放。也许是extend？如果这是命令，请告诉我怎么做。
谢谢 或者可以将其作为块插入，并在插入时变形x-y坐标 如果您知道它需要什么比例，并且要放入光栅图像，则可以在插入提示中选择一维比例。
如果是其他对象，请阻止它并在“属性”窗口中更改X和Y比例。 注意到scaleaxis。lisp已经被删除，所以这里是一个agian-不知道作者是谁，它将所有内容更改为线条，但这是一种简单的方法，可以在一个方向上缩放所有内容。
;;;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)
)
正如其他人所说，阻止它，设置轴比例，然后根据需要分解它。 嗨，这是我在你们论坛上的第一篇帖子：-）
我看到这是一个相当古老的线程，但我想提及一个Lisp，我们称之为“fit.lsp”。它与autocad 2000-2010配合使用，很好地解决了这个问题。
我们很久以前写过这篇小文章，我想我会分享它
你可以从我们的网站下载。（我刚刚被你的论坛屏蔽了，说只有9个帖子或更多的用户才能发布网络链接，所以在这里-用莫尔斯电码）3xw.xordesign.com，点击工具箱。
也许有人（魔法9）可以重新发布一个合适的链接？
我没有“kelvinated”的口齿不清，因为我不介意你们阅读代码，并在一个条件下共享：不要删除凭据（请？）
请不要看网站的其余部分。我们没有太多时间更新它。。
最好的
斯蒂安语 至少在Mechanical Desktop上，您可以使用comand AMSCALEXY。选择要缩放的对象。然后按照命令提示独立输入X和Y比例因子。我发现这很有用，我很惊讶它没有包含在菜单中。 要保持一个值，只需使用1的比例因子。 网站http://www.xordesig.com不再可用，a
nyone就是这样。lsp？ 你真幸运，我是一个群氓。
适合。lsp。txt文件
将文件下载到桌面。右键单击它并使用重命名命令删除文件名的这一部分，就可以开始了。
您知道如何在AutoCAD中加载lisp例程，对吗？
页:
[1]
2