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

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

本帖最后由作者于 2009-3-28 11:11:01 编辑

;; [功能] 将字符串点转换为表点

(defun lt:str->point (x) (if (not c:cal) (arxload "geomcal")) (c:cal (strcat "[" x "]")))

(lt:str->point "12.5,3.55,7.4")

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

学习了。。。

(defun STR->

OINT (STR)

(setq STR (vl-string-translate ",;" " " STR)

STR (strcat "(" STR ")")

)

(read STR)

)

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

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

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

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

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

内部的很多arx 函数功能，我们可能都没发现，综合的说说，更好，楼主发的，我都没见过，还有这玩意的ARX函数可以来用！

账号		自动登录	找回密码
密码			注册