关于align的命令

露水2

2. ;align扩展线线对齐
3. (defun c:test(/ e en1 pt1 pt2 e2 en2 pt3 pt4)
4. (setq e (entsel "\n原实体"))
5. (while (= e nil) (setq e (entsel "\n原实体")) );while
6. (setq en1 (car e))
7. (setq pt1 (osnap (cadr e) "end"))
8. (setq pt2 (osnap (cadr e) "nea"))
9. (setq e2 (entsel "\n对齐实体"))
10. (while (= e2 nil) (setq e2 (entsel "\n原实体")) );while
11. (setq en2 (car e2))
12. (setq pt3 (osnap (cadr e2) "end"))
13. (setq pt4 (osnap (cadr e2) "nea"))
14. (command "_.align" en1 "" pt1 pt3 pt2 pt4 "" "n")
15. (princ)
16. )

;align扩展线线对齐 (defun c:test(/ e en1 pt1 pt2 e2 en2 pt3 pt4) (setq e (entsel "\n原实体")) (while (= e nil) (setq e (entsel "\n原实体")) );while (setq en1 (car e)) (setq pt1 (osnap (cadr e) "end")) (setq pt2 (osnap (cadr e) "nea")) (setq e2 (entsel "\n对齐实体")) (while (= e2 nil) (setq e2 (entsel "\n原实体")) );while (setq en2 (car e2)) (setq pt3 (osnap (cadr e2) "end")) (setq pt4 (osnap (cadr e2) "nea")) (command "_.align" en1 "" pt1 pt3 pt2 pt4 "" "n") (princ) )

写了一个align的程序，第一次打开cad运行该程序，会找不到align命令！
在命令行输入align
命令: align
正在初始化...
选择对象：
用过align后在运行程序就可以调用align命令了
请高手指点，怎么解决？

caoyin

如你所说的情形

----启动AutoCAD，输入：!c:align------> nil

----执行align命令后再输入：!c:align------> #<SUBR @0dd6244c <EXRXSUBR>>

由此可见，这个命令是通过 autooad (或autoarxlload)加载的，所以在调用align命令之前没有加载该函数。

解决方法----提前加载 geom3d.arx 文件。

-------------------------------------------

补充：

align是外部定义命令，加载 geom3d.arx 文件之后可直接使用 align 函数。

露水2

哈哈

没不知道align竟然是外部命令．

谢谢