我明白了，谢谢。我想那不是我的问题！英雄联盟 我不明白你到底需要什么
只是一个快速代码：
(defun c:ofc (/ ang cp1 cp2 en1 en2 ent1 ent2 obj1 obj2 tp1 tp2 up1 up2)
(setq ent1 (entsel "\nSelect first line : ")
ent2 (entsel "\nSelect second line : ")
en1 (car ent1)
en2 (car ent2)
obj1 (vlax-ename->vla-object en1)
obj2 (vlax-ename->vla-object en2)
cp1 (vlax-curve-getclosestpointto obj1
(vlax-curve-getpointatparam obj1
(/ (- (vlax-curve-getendparam obj1)(vlax-curve-getstartparam obj1)) 2)))
cp2 (vlax-curve-getclosestpointto obj2 cp1)
ang (angle cp1 (vlax-curve-getstartpoint obj1))
up1 (polar cp1 ang 2);<-- 2 is offset distance
up2 (polar cp1 (+ pi ang) 2)
tp1 (polar cp2 ang 2)
tp2 (polar cp2 (+ pi ang) 2)
)
(command "._line" "_non" up1 "_non" tp1 ""
"._line" "_non" up2 "_non" tp2 ""
)
(princ)
)
(vl-load-com)
(princ "\n ***Start command with OFC to excute ***")
(prin1)
但在这种情况下，您只添加了一张附加支票。无论哪种方式都需要。 我以为那会结束零分？ 我不确定您在说什么-princ不在AND语句中，当在没有字符串或文件描述符的情况下调用时，将返回空符号（“”）。 我很抱歉。混淆了“干净地退出”和“nill”。
我真傻。。。到目前为止，我在这个学习曲线上真的很傻。
有没有可能发布一个类似的“move”命令示例，或者将我指向包含该命令的例程？我在这个命令上一点运气都没有，似乎找不到任何例子。。。我讨厌成为新手——尽管如此！
谢谢，道格 这是一个使用Move的非常简单的代码——显然，这段代码是多余的，与Move命令相比没有优势，但它只是一个示例。
(if (and the 3 prompts) (offset)) A very simple code using Move - obviously this code is redundant, with no advantage over the move command, but it serves as an example.
(defun c:test ( / ss p1 p2 )(if (and (setq ss (ssget "_:L")) (setq p1 (getpoint "\nSpecify Base Point: ")) (setq p2 (getpoint "\nSpecify Next Point: " p1))) (command "_.move" ss "" p1 p2))(princ))
页:
1
[2]