BDYCAD 发表于 2004-8-19 11:49:00

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

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


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

alin 发表于 2004-8-19 13:22:00

Use (align ...) instead of (command "align" ...)(DEFUN c:TEST (/ EN P1 P2 P3 P4)
   (if (not align)
       (arxload "geom3d.arx"))
   (SETQ EN (CAR (ENTSEL))
               P1 (GETPOINT "\nP1:")
               P2 (GETPOINT "\nP2:")
               P3 (GETPOINT "\nP3:")
               P4 (GETPOINT "\nP4:"))
   (REPEAT 10 (ALIGN EN P1 P2 P3 P4))
   )

BDYCAD 发表于 2004-8-19 15:20:00

O 问题解决了

gaba 发表于 2004-8-25 18:57:00

嵌套问题

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

alin 发表于 2004-8-26 23:23:00

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

gaba 发表于 2004-8-27 21:20:00

的确,但是没有出现嵌套错误退出,而且align也没有error msg
页: [1]
查看完整版本: [讨论]關於ＬＩＳＰ程序中調用ALIGN命令的發現