Autolisp代替视图逗号

Tharwat · 发表于 2022-7-6 10:31:56

你好

我想知道是否可以在Lisp中尽可能地更改图形的视图
view命令。

当做

ReMark · 发表于 2022-7-6 10:39:22

我相信这是可能的，但为什么要重新发明轮子呢？首先看一下《Cadalyst》杂志的CAD提示部分，看看是否有人已经开发了一个lisp例程来实现您想要的功能。从下面的链接开始。使用出现的搜索框并键入单词“View”。

http://cadtips.cadalyst.com/

Lt Dan's l · 发表于 2022-7-6 10:43:15

类型-视图

Tharwat · 发表于 2022-7-6 10:45:19

谢谢，丹中尉。

这是一个Autocad命令，我正在寻找与UCS或trans function或。。。。。。任何有用的想法。

当做

塔瓦特

Lt Dan's l · 发表于 2022-7-6 10:49:22

对不起，我以为你在命令提示符和窗口上寻找什么

The Buzzard · 发表于 2022-7-6 10:56:03

请参阅开发人员帮助部分中的DXF参考，然后查看公共符号表组。

有UCS和VIEW的参考。关于DXF编码，有很多内容可以让您开始学习。

我总是使用开发者帮助部分，因为它在我需要时总是可用的。这是一个好的开始。

David Bethel · 发表于 2022-7-6 10:59:00

当前UCS的视图可以如下所示：

copy


[b][color=BLACK]([/color][/b]setq ucsv [b][color=FUCHSIA]([/color][/b]trans '[b][color=NAVY]([/color][/b]0 0 1[b][color=NAVY])[/color][/b] 1 0[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]
[b][color=BLACK]([/color][/b]command [color=#2f4f4f]"_.VPOINT"[/color]  ucsv[b][color=BLACK])[/color][/b]

-大卫

Tharwat · 发表于 2022-7-6 11:02:05

谢谢Buzzard，这是一个非常大的基础。

谢谢David，你的例子正是我想要从各个方面理解的，特别是反函数。

因为有了这个函数，我们可以控制Lisp例程的方向，如果你能给出更多的例子，
这对我很有帮助。

顺致敬意，

塔瓦特

David Bethel · 发表于 2022-7-6 11:09:18

这很简单：

VPOINT仅获取WCS点

（trans’（0 0 1）1 0）

将法线拉伸方向0,0,1从当前UCS转换为WCS。它不能考虑UCS的Z轴旋转。可能也无法处理已移动的UCS原点-大卫

CALCAD · 发表于 2022-7-6 11:10:39

大卫，
如果我用你的例子写一个可用的程序，它似乎需要反式表达式中的“T”才能工作。没有“T”，我会得到奇怪的结果。
我使用的是Intellicad，而不是Autocad，因此可能会有差异，但我以前没有看到trans使用的任何差异。

copy

(defun c:vtest (/)
(setq ucsv (trans '(0 0 1) 1 0 T))
(command "_.VPOINT"  ucsv)
(princ)
)

[编程交流] Autolisp代替视图逗号

发表回复

精选推荐