autolisp程序ucs

nithink55 · 发表于 2022-7-5 23:53:40


(defun c:ucsmen()
(setq pt1 (getpoint "\npick new orgin"))
(setq Pt2 (getpoint "second point") )
(setq Pt3 (getpoint "third point" ) )
(command "_ucs""3"Pt1 Pt2 Pt3 )
)

我是autolisp新手。。加载后出现的错误是“UCSIENS未知命令”UCSIENS。按F1键可获取帮助

此lisp通过单击屏幕来设置ucs
请帮忙。

提前感谢

MSasu · 发表于 2022-7-6 00:13:20

虽然您的代码中存在一些问题，但上述错误似乎表明您的代码没有正确加载。
我做了一些修改并发表了评论：

copy

(defun c:ucsmen( [color=red]/ pt1 pt2 pt3[/color] )                           [color=blue];localize the variables - no conflict with other functions[/color]
[color=red] (if (and [/color](setq pt1 (getpoint "\npick new orgin"))         [color=blue];ensure right input[/color]
         (setq Pt2 (getpoint "[color=red]\n[/color]second point"))           [color=blue];print each prompt on its own line (clearer)[/color]
         (setq Pt3 (getpoint "[color=red]\n[/color]third point" ))[color=red])[/color]
 (command "_ucs" "3" [color=red]"_non"[/color] Pt1[color=red] "_non"[/color] Pt2 [color=red]"_non"[/color] Pt3 )   [color=blue];ensure no conflict with active OSNAP[/color]
[color=red])[/color]
[color=red] (princ) [/color]                                                  [color=blue];exit silent[/color]
)