2013-05-05 明经 AutoLISP 编程②群(177027547) 群聊记录：运行CAD程序，如何释放内存呢

明经快报

漫步苍穹 17:17:14

运行CAD程序，如何释放内存呢

我的运算量太大了，后头运算越来越慢

漫步苍穹 17:18:20

以上问题请教各位高手

明经快报

[031346]七里台 18:51:38

少算点

[ZZXXQQ] 18:52:56

(gc)

明经快报

[baiyier1112]枫之 21:23:25

请教一个函数：
想要将整个字符串替换成某个特定字符串，用什么函数？如果有类似的程序共享一下也可以

[辰] 21:25:45

(vl-string-subst new-str pattern string [start-pos])

[baiyier1112]枫之 21:25:58

谢谢。

明经快报

[baiyier1112]枫之 23:31:32

http://bbs.mjtd.com/forum.php?mo ... mp;extra=#pid583304
有没有人指点一下

[woshilxh]爱摄影 23:32:48

肿么了？

[baiyier1112]枫之 23:33:07

实现不了。

[woshilxh]爱摄影 23:34:19

通常吧，我会把代码先集体替换成半角，把多个空格替换成单个空格，没准有惊喜啊

[baiyier1112]枫之 23:34:52

%%1306@150，替换@前面的直径可以，我修改了一下，替换后面的150，就不行了

[woshilxh]爱摄影 23:35:51

你最终目的是想把什么替换成什么啊？

[baiyier1112]枫之 23:36:31

把%%1306@150（2），%%1306@150，%%1308@150等等后面的150替换成200

[woshilxh]爱摄影 23:36:59

我也是新手，不过善意提醒下，没准需要转义字符呢

[baiyier1112]枫之 23:37:13

明经上我举的例子，是200替换成150

[baiyier1112]枫之 23:37:49

多谢

[baiyier1112]枫之 23:39:59

那个我也不知道怎么输入，通常我都拷贝。这里没有问题

[baiyier1112]枫之 23:40:29

估计问题就出在这里
(vla-put-TextString obj (strcat (substr str 1 (1+(vl-string-search "@" str)))"200"(substr str (3+(vl-string-search "@" str)))))

(vla-put-TextString obj (strcat (substr str 1 (1+(vl-string-search "@" str)))"200"(substr str (4+(vl-string-search "@" str)))))

[woshilxh]爱摄影 23:42:23

大哥不用发这么多了，我也是新手，虽然刚用lisp编写了一个软件间的模型转换接口，呵呵呵，我写程序一般都是用最笨的代码的，vlax都很少用，我感觉你用嘴传统的lisp写是不是成功率高些？

[baiyier1112]枫之 23:43:16

我非常新，指挥参考别人的改动一点点。自己不会写

[woshilxh]爱摄影 23:44:20

那就把代码分两部分把，@前面和后面各替换一次

[woshilxh]爱摄影 23:45:25

话说你直接用cad的替换也行啊

[baiyier1112]枫之 23:46:14

想更快捷一些，想把间距改为200，输入200，选择并回车搞定。

[woshilxh]爱摄影 23:47:55

这个也用不上吧，cad直接find一下