明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2145|回复: 5

[讨论]關於LISP程序中調用ALIGN命令的發現

[复制链接]
发表于 2004-8-19 11:49:00 | 显示全部楼层 |阅读模式
不知道大家在写LISP程序时有没有调用过.ALIGN 命令来处理对象的对齐呢. 我试了一下. 发觉出现一个意想不到的问题就是. 我在程序中不可以调用这个命令超过3次. 因为累计在程序调用大过3次后CAD会死机退出. 嗨!!!!


我不知道大家的电脑会不会出现这样的问题呢????
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2004-8-19 13:22:00 | 显示全部楼层
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.    )
复制代码
 楼主| 发表于 2004-8-19 15:20:00 | 显示全部楼层
O 问题解决了
发表于 2004-8-25 18:57:00 | 显示全部楼层

嵌套问题

外部程序调用时的嵌套问题是不是都可以这样解决?用(...)代替
发表于 2004-8-26 23:23:00 | 显示全部楼层
可以这么说,但重复次数多了好像还有问题。我2楼的程序如果将repeat 10 改为reapeat 100,运行后align命令就失效了,不知为何。
发表于 2004-8-27 21:20:00 | 显示全部楼层
的确,但是没有出现嵌套错误退出,而且align也没有error msg
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-18 20:37 , Processed in 0.176000 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表