caoyin 发表于 2009-3-28 11:08:00

分享一个小程序-将字符串点转换为表点

本帖最后由 作者 于 2009-3-28 11:11:01 编辑 <br /><br /> <p>;; [功能] 将字符串点转换为表点</p><p><br/>(defun lt:str-&gt;point (x) (if (not c:cal) (arxload "geomcal")) (c:cal (strcat "[" x "]")))</p><p>(lt:str-&gt;point "12.5,3.55,7.4")</p><p></p><p></p>

zml84 发表于 2009-3-29 18:55:00

学习了。。。<div><br/></div><div><div>(defun STR-&gt;POINT (STR)</div><div>    (setq STR (vl-string-translate ",;" "  " STR)</div><div>        STR (strcat "(" STR ")")</div><div>    )</div><div>    (read STR)</div><div>)</div></div>

dinosaurhxe2 发表于 2009-3-29 23:02:00

嗯，楼上两位的都比我的简单多了，学习了！

dinosaurhxe 发表于 2009-3-30 08:46:00

请教2楼，用vl-string-translate出来的字符是否全改为大写了？如何让其保持原有的大小写？<br/>

sfzyr 发表于 2012-5-19 15:22:34

内部的很多arx 函数功能，我们可能都没发现，综合的说说，更好，楼主发的，我都没见过，还有这玩意的ARX函数可以来用！
页: [1]
查看完整版本: 分享一个小程序-将字符串点转换为表点