如何修复以使用自定义

Guest kruuger · 发表于 2022-7-6 10:59:26

你好

我的lisp程序有问题。
当我使用世界UCS时，一切都很好，但我经常使用旋转UCS，然后lisp不能正确工作。

可能我需要使用trans函数。我试过了，但没有好结果。

请帮忙
谢谢
克鲁格
Xlinedim。lsp

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

您需要将用户选择的点从UCS转换为WCS：

(trans <point> 1 0)

Guest kruuger · 发表于 2022-7-6 11:25:03

aaa，太简单了

谢谢李
克鲁格

Guest kruuger · 发表于 2022-7-6 11:35:55

我注意到一件事。使用此lisp旋转UCS时：

copy

(Defun C:UU ()
 (setq osmode_hold (getvar "OSMODE"))
 (setvar "OSMODE" 512)
 (setq PT1 (getpoint "Select LEFT side of OBJECT which should be horizontal"))
 (command "_UCS" "OB" PT1 "PLAN" "CURRENT" "")
 (setvar "OSMODE" osmode_hold)
 (princ)
);UU
(princ)