Lisp中的偏移、修剪命令
这些命令运行得不太好。是否有地方可以找到与lisp例程中使用它们相关的说明？我目前的书签网站似乎都没有详细介绍。谢谢，道格 出了什么问题？什么代码导致了错误？
还有其他选择-例如vla补偿，但让我们看看是否可以先解决您的问题 我不认为这是一个特定的代码，因为这是我的无知。例如，我不知道如何在我的例程中选择要偏移的线，似乎无法选择正确的修剪线，等等。我还没有在我的例程中尝试过除直线和圆弧之外的许多命令，因此我基本上希望进行扩展-但我无法使命令工作。这有什么意义吗？
谢谢，道格 为了澄清，我试图选择点，因为我不知道如何从lisp例程中选择线。这似乎不起作用！ 在LISP中使用Offset命令的非常简单的示例。
(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)
) 我现在明白了。我试着想象一下，让程序完成所有的工作。我不想让用户选择任何东西，除了顶部和底部中心点。我将进一步探索“实体”，看看这是否可以解决我！
谢谢你，alanjt！ 你必须贴一个例子。我完全听不懂你刚才说的话。我们非常乐意提供帮助。 说得好。我有点困惑。。。
这个盒子代表一个橱柜。我的lisp最终会增加或减少橱柜的长度，同时保持末端隔间的尺寸不变。有趣的是，顶部的中心分隔线也是一个常数。
我选择通过以下方式实现这一目标：
1-从上到下画一条中心线。
2-向任一侧偏移8”，以清除顶部中央隔间。
3-将每条新线向外偏移6”，并修剪它们之间的顶部和底部线。
我希望这有帮助，道格
测验图纸 我想我开始明白了。我试图让offest命令自动输入自己的数字和点数。我猜是用户（我！）仍然必须提供运行命令所需的输入。我可以这样做！谢谢大家的帮助！
回到它。。。
有人能告诉我“（and）”函数是什么吗？这可能是我的全部问题？谢谢，道格
页:
[1]
2