Lisp中的偏移、修剪命令

ready2goriding · 发表于 2022-7-6 11:15:16

这些命令运行得不太好。是否有地方可以找到与lisp例程中使用它们相关的说明？我目前的书签网站似乎都没有详细介绍。
谢谢，道格

Lee Mac · 发表于 2022-7-6 11:20:40

出了什么问题？什么代码导致了错误？

还有其他选择-例如vla补偿，但让我们看看是否可以先解决您的问题

ready2goriding · 发表于 2022-7-6 11:24:21

我不认为这是一个特定的代码，因为这是我的无知。例如，我不知道如何在我的例程中选择要偏移的线，似乎无法选择正确的修剪线，等等。我还没有在我的例程中尝试过除直线和圆弧之外的许多命令，因此我基本上希望进行扩展-但我无法使命令工作。这有什么意义吗？
谢谢，道格

ready2goriding · 发表于 2022-7-6 11:26:48

为了澄清，我试图选择点，因为我不知道如何从lisp例程中选择线。这似乎不起作用！

alanjt · 发表于 2022-7-6 11:30:19

在LISP中使用Offset命令的非常简单的示例。

copy

(defun c:TEst (/ dist ent pt)
 (and (setq dist (getdist "\nSpecify offset distance: "))
      (setq ent (entsel "\nSelect object to offset: "))
      (setq pt (getpoint "\nSpecify point on side to offset: "))
      (command "_.offset" dist ent "_non" pt "")
 )
 (princ)
)

ready2goriding · 发表于 2022-7-6 11:34:07

我现在明白了。我试着想象一下，让程序完成所有的工作。我不想让用户选择任何东西，除了顶部和底部中心点。我将进一步探索“实体”，看看这是否可以解决我！
谢谢你，alanjt！

alanjt · 发表于 2022-7-6 11:35:03

你必须贴一个例子。我完全听不懂你刚才说的话。我们非常乐意提供帮助。

ready2goriding · 发表于 2022-7-6 11:38:57

说得好。我有点困惑。。。

这个盒子代表一个橱柜。我的lisp最终会增加或减少橱柜的长度，同时保持末端隔间的尺寸不变。有趣的是，顶部的中心分隔线也是一个常数。
我选择通过以下方式实现这一目标：
1-从上到下画一条中心线。
2-向任一侧偏移8”，以清除顶部中央隔间。
3-将每条新线向外偏移6”，并修剪它们之间的顶部和底部线。

我希望这有帮助，道格
测验图纸

ready2goriding · 发表于 2022-7-6 11:43:03

我想我开始明白了。我试图让offest命令自动输入自己的数字和点数。我猜是用户（我！）仍然必须提供运行命令所需的输入。我可以这样做！谢谢大家的帮助！
回到它。。。

ready2goriding · 发表于 2022-7-6 11:45:38

有人能告诉我“（and）”函数是什么吗？这可能是我的全部问题？谢谢，道格

[编程交流] Lisp中的偏移、修剪命令

发表回复

精选推荐