使用旋转和缩放SS

scubastu · 发表于 2022-7-6 12:25:00

缩放和旋转命令的格式是什么。。我可以使用存储点作为变量作为基点来旋转/缩放选择集吗？
我还想使用变量按®参考和（P）点旋转和缩放。。怎样命令“旋转”sset basept1“r”pt1 pt2“p”pt1 pt3？？？？

到目前为止没有欢乐！

MSasu · 发表于 2022-7-6 12:37:31

当然，在“feed”命令语句时，可以作为字符串或变量输入（假设点变量存储的是二维或三维点）：

copy

(command "_POINT" "0,0,0") or (command "_POINT" thePoint)

关于您的代码示例，在继续输入其他to命令语句之前，您应该关闭选择过程（=“”）：

copy

(command "ROTATE" sset [b]""[/b] basept1 "R" pt1 pt2 "P" pt1 pt3)

在命令和选项之前添加一个“_”可能是一种很好的做法，因为这可以确保代码在本地化版本的AutoCAD中顺利运行：

copy

(command "_ROTATE" sset [b]""[/b] basept1 "_R" pt1 pt2 "_P" pt1 pt3)

当做

scubastu · 发表于 2022-7-6 12:38:26

再次感谢MSASU！工作是一种享受。。我差点就吃了。。除了在循环中错误的存储点上旋转和缩放（我需要从计数器1拾取的第一个点），而不是最后一个（拾取点1，但计数器>1）！呜呜！现在我只需要对我的括号和事情的顺序进行排序。。差不多完成了（我想）。

alanjt · 发表于 2022-7-6 12:47:55

如果在同一个函数中旋转和缩放，为什么不使用Align？

或

copy

align
(align arg1 arg2 ...)
Arguments
arg1 arg2... Arguments to the AutoCAD align command. The order,
number, and type of arguments for the align function are
the same as if you were entering ALIGN at the command
line.
To indicate a null response (a user pressing ENTER ), specify
nil or an empty string ("").
Return Values
T if successful, otherwise nil.
Examples
The following example specifies two pairs of source and destination points,
which perform a 2D move:
(setq ss (ssget))
(align ss s1 d1 s2 d2 "" "2d")

scubastu · 发表于 2022-7-6 12:51:46

谢谢哇！这从来都不是什么新鲜事。。我花了一点时间弄清楚s1和d1是相同的（如果使用基点-我就是这样），并用“Y”替换“2d”进行缩放，但最终得到了它！我的Lisp程序。再次感谢。

alanjt · 发表于 2022-7-6 12:58:42

我记得当我第一次学习对齐时，我一直在思考旋转然后缩放对象。

scubastu · 发表于 2022-7-6 13:11:31

嗨，Alanjt，我想问一下“Align”命令。。我昨天将我的lisp一分为二，重新编写了第二个（使用align命令），以包含第一个lisp中遗漏的任何数据（关于所需的点）。。现在align不注册为函数。。i、 e.命令：；错误：无函数定义：对齐

我试着放（命令“_align”等…）它运行命令询问点并忽略我的变量，所以我返回到（align等…）然后它再次运行。。我必须“调用”程序中的命令吗？

alanjt · 发表于 2022-7-6 13:14:56

因为Geo3D。直到执行实际的Align命令（或来自该.arx文件的其他命令）后，才会加载arx。但是，您只需加载。如果要使用arx文件。在调用align之前，请尝试放置此选项：

copy

(or align (arxload "geom3d.arx"))

scubastu · 发表于 2022-7-6 13:20:15

完美的再次感谢！这些都是让这个网站变得如此有价值的小事！

简介
用我的Lisp程序。。我正在写一个测量遍历lisp和调整lisp，以消磨时间，而我们有一个安静的工作时间。它在每个导线测量线的末端插入块，并将输入写入文本文件。我现在正在考虑调整，多亏了你，一切都很顺利。。现在也将继续将调整写入文件，并将每个“站”（块）的辐射能力添加到遍历lisp中。我知道Land Desktop下有一个测量包，但这篇lisp写作的灵感来自于为我的同事提供了一种更简单的输入法，让他们在按方向输入线条时更容易。。e、 g.默认autocad Dir=逆时针，Base ang=东，直线输入=@dist
干杯，斯图

alanjt · 发表于 2022-7-6 13:28:53

祝你好运如果你需要帮助，尽管问。

[编程交流] 使用旋转和缩放SS

发表回复

精选推荐