有谁知道“ALIGN”在程序中不能正确运行的原因

yshf

各位高手，今有以下程序： (defun c:zbhs()
(setq p1 '(0 0) p2 '(0 1100)
p3 '(65696.6352 91907.3854)
p4 '(66795.5702 91955.7778)
pp '(66015.9240 91875.8585)
cm (getvar "cmdecho")
)
(setvar "cmdecho" 0)
(command "point" pp)
(setq en (entlast))
(command "_align" en "" p3 p1 p4 p2 "" "y")
(setq pt (cdr (assoc 10 (entget en))))
(entdel en)
(setvar "cmdecho" cm) (princ)
) 在Auto CAD 2000中运行，遇到以下问题：
Command: zbhs
Unknown command "ALIGN". Press F1 for help.
<Entity name: 193B980>
| （程序停止，回车后显示如下：）
Unknown command "ZBHS". Press F1 for help.
Unknown command "ZBHS". Press F1 for help.
Unknown command "ZBHS". Press F1 for help.
Unknown command "Y". Press F1 for help. 但如果在程序执行前，键入“ALIGN”，并一路回车至命令结束，再运行程序，则又能正确运行，请问各们高手，这是怎么回事，如何解决？

龙龙仔

2. 平移并旋转物件，让它们对齐其他物件 (外部定义：geom3d ARX 应用程式)
3. (align arg1 arg2 ...) 引数arg1 arg2... AutoCAD 对齐指令的引数。align 函数引数的顺序、数目及类型与您在指令行输入 ALIGN 后的回应相同。
4. 要表示空的回应 (使用者按下 ENTER)，请指定 nil 或空字串 ("")。传回值
5. T 表示成功，否则为 nil。
6. 范例
7. 下列的范例指定两对来源和目的的点，来执行 2D 的移动：(setq ss (ssget)) (align ss s1 d1 s2 d2 "" "2d")

平移并旋转物件，让它们对齐其他物件 (外部定义：geom3d ARX 应用程式) (align arg1 arg2 ...) 引数arg1 arg2... AutoCAD 对齐指令的引数。align 函数引数的顺序、数目及类型与您在指令行输入 ALIGN 后的回应相同。 要表示空的回应 (使用者按下 ENTER)，请指定 nil 或空字串 ("")。传回值 T 表示成功，否则为 nil。 范例 下列的范例指定两对来源和目的的点，来执行 2D 的移动：(setq ss (ssget)) (align ss s1 d1 s2 d2 "" "2d")

maomao2004

原来这样，看来align的2D移动还真不一样

无痕

(arxload "geom3d ARX")