[讨论]關於ＬＩＳＰ程序中調用ALIGN命令的發現

BDYCAD

不知道大家在写LISP程序时有没有调用过.ALIGN 命令来处理对象的对齐呢. 我试了一下. 发觉出现一个意想不到的问题就是. 我在程序中不可以调用这个命令超过3次. 因为累计在程序调用大过3次后CAD会死机退出. 嗨!!!!


我不知道大家的电脑会不会出现这样的问题呢????

alin

Use (align ...) instead of (command "align" ...)

1. (DEFUN c:TEST (/ EN P1 P2 P3 P4)
2.    (if (not align)
3.        (arxload "geom3d.arx"))
4.    (SETQ EN (CAR (ENTSEL))
5.                P1 (GETPOINT "\nP1:")
6.                P2 (GETPOINT "\nP2:")
7.                P3 (GETPOINT "\nP3:")
8.                P4 (GETPOINT "\nP4:"))
9.    (REPEAT 10 (ALIGN EN P1 P2 P3 P4))
10.    )

复制代码

BDYCAD

O 问题解决了

gaba

外部程序调用时的嵌套问题是不是都可以这样解决？用(...)代替

alin

可以这么说，但重复次数多了好像还有问题。我2楼的程序如果将repeat 10 改为reapeat 100，运行后align命令就失效了，不知为何。

gaba

的确,但是没有出现嵌套错误退出,而且align也没有error msg