对的
这就是我的问题所在。 如果只有一定数量的距离将被多次使用，则可以设置带有预设偏移的按钮。
不管这个Lisp程序能不能做到这一点，我想你会很高兴知道的。
http://www.lee-mac.com/dynamicoffset.html
我没有用过李的这个，但作为一个学生
我只能假设历史会像他的所有作品一样辉煌，我每天都非常依赖他的作品。
谢谢李！
Thanx的回复，但我已经通过这个链接，并检查了Lisp程序。它只会在相同距离的源线/圆/弧的两侧绘制多个偏移，而不是1。我需要的是只在不同距离的一侧绘制偏移。
明白我的意思吗？
当做
Sidhu公司
怎样？？？？？
如果你能指导我，我将不胜感激。
当做
Sidhu公司 这一点已经理解。同样，无论程序是否进行偏移，由于距离是随机且不同的，每次都必须输入一个。
有一种方法可以为程序使用输入文本文件，但仍需要有人构建该文件。编写一个程序，构建文件仍然需要比手动完成更多的时间。
这并不难，但我无法引导你们通过它，因为我们的丝带被锁定，我无法测试。这不应该很难。设置一个，然后只需制作按钮、复制宏和调整距离。
先生
我刚刚试过这个，它真的有很多很酷的功能。现在唯一剩下的就是“不同的距离”。
当做
Sidhu公司 我认为这是一个好的开始
(defun c:mofst (/)
(setq doc (vla-get-ActiveDocument (setq *acad (vlax-get-Acad-Object)))
spc (if (zerop (vla-get-activespace doc)) (if (= (vla-get-mspace doc) :vlax-true) (vla-get-modelspace doc) (vla-get-paperspace doc)) (vla-get-modelspace doc)))
(vl-load-com)
(setq uFlag (vla-startUndoMark doc))
(setq obj (entsel "\nSelectObject"))
(setq s (getpoint "\nPick Offset side"))
(setq o1 (getreal "\nWhat is distence for 1st offset?"))
(setq o2 (getreal "\nWhat is distence for 2nd offset?"))
(setq o3 (getreal "\nWhat is distence for 3rd offset?"))
(vl-cmdf "_.offset" o1 obj s "")
(vl-cmdf "_.offset" o2 obj s "")
(vl-cmdf "_.offset" o3 obj s "")
(setq uFlag (vla-EndUndoMark doc))
)
(defun *error* (msg) (and uFlag (vla-EndUndoMark doc)) (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*") (princ (strcat "\n** Error: " msg " **"))) (princ))
没有人再做纽扣了吗？我还没有在ribbon上做过，真的希望我能帮助完成这项操作。如果有人能引导他用预设的距离设置一个设置，他可以轻松地设置其他设置。
页:
1
[2]