有清除屏幕的函数吗

lxqun

可能是用的格式问题了，我是这么用的，有问题
(setq ss1 (ssget "x"))
(command "erase" ss1 "")
我删完后再重画，发现有个点就移位了，不知道是为什么
比如我画一条水平线和一个圆弧相交，把他们删掉再重画，发现右交点的位置不对了，往上移了，莫名其妙，但是点的坐标还是正确的（比如右交点为pt,(princ pt)得到的值没错）

BDYCAD

把OSMODE 設為0試試

lxqun

我还碰到过一个很奇怪的问题,也是画出的点移位了，但这个点的坐标却没错，让我很郁闷，我有空整理一下，传上来大家看看

meflying

为什么不试试12楼的方法？
不用看，应该是这个问题。。。

lxqun

果然用12楼这个方法有效
但现在又有另一个问题，今晚郁闷了我一晚上
一个大半径的圆弧由于在cad图形里不光滑，成折线形式，这就造成很多选点不准确，也不能做边界了，重新生成好象作用不大，除非放大其中一小部分重生成才有效
还有用boundary形成边界的时候，它在那个大半径圆弧上又生成一道圆弧，其实它们应该是重合的，非要放大这一小部分重生成才行
反正这些我想都是由于大半径的圆弧由于在cad图形里不光滑而造成的，有没有办法解决啊，很郁闷，还望高手指点！！！
我的程序算小半径的一点问题没有，一改成大半径就出问题。

meflying

这只是显示效果，用regen，但应该不会影响程序的，
看看你的程序和调试图

lxqun

终于又在程序中查到一个大bug，现在好多了，但还会出现一个问题，我把图和程序上传上来，帮忙看看
这是一个计算土的边坡稳定系数的程序，用条分法，把滑体分成条块，再分别计算个条块的面积，最后计算稳定系数k。
这是我的第一个lisp程序，在各位的大力帮助下，终于完成到这一步，这里面还有你们提供的代码，谢谢大家。
程序可能写得很烂，大家不要见笑。
我上传的这个图现在运行没有问题，但把这个图放大100倍时，发现该删掉的线没删掉，还是没修剪掉。不知道哪里有问题。

meflying

对于你说的那些参数确实不懂，能否给一个默认输入值，以方便调试。。。
我随便输入了一些数据，程序运行就出现了问题，由于输入肯定有问题，就没找哪儿出错了。。。

lxqun

哦，不好意思，我再上传一个，下午又改了一点错误，有时还会有毛病，还试过一次，运行后cad自动就退出来了。
最好把图放大100倍吧，我里面的单位都以米记的话，不过也能算了
我把变量都写进去吧，其中条宽tk是分块的宽度，可以为3000,5000就这两个吧。

meflying

你还是没有告诉我那些参数是什么，什么边坡，什么坡脚的，我可是一点都不懂，不知道该选哪个点。。。
要知隔行如隔山，你这样拿出来，别人怎么能看得懂呢？
在这里最好用CAD的通用语言来描述，这样才有更多的人能给你提供帮助，否则别人看都看不懂，又如何解决问题？