分享一个小程序-将字符串点转换为表点
www.dimcax.com
分享一个小程序-将字符串点转换为表点
;; [功能] 将字符串点转换为表点
(defun lt:str->point (x) (if (not c:cal) (arxload "geomcal")) (c:cal (strcat "[" x "]")))
(lt:str->point "12.5,3.55,7.4")
d
学习了。。。
(defun str->point (str)
(setq str (vl-string-translate ",;" " " str)
str (strcat "(" str ")")
)
(read str)
)
好好学习cad，天天向上搞设计。
嗯，楼上两位的都比我的简单多了，学习了！
恐龙所写的所有lisp程序，均包含mjtd无数前辈高人的心血，在此感谢各位对恐龙的指教！若程序中引用了您的部分代码而没有致谢，请原谅恐龙的不周之处！
d
请教2楼，用vl-string-translate出来的字符是否全改为大写了？如何让其保持原有的大小写？
新手上路，请多指点。
d