[求助] LSP高手

liuqian020

请高手指教:1.如何用LSP语言设置单行文本的字体高度?



                                                                                                                                                 2.如何用LSP语言替换字符串 如:45d25'48" 替换d         ' 为 -                结果 45-25-48

meflying

1、(setq a (entget (car (entsel))))


(setq a (subst (cons 40 5.0) (assoc 40 a) a))


(entmod a)


2、循环没一个字符，拷贝到另一字符串，如果遇到d或'，则将-拷贝到新字符串，否则拷贝遍历的字符

lockmyeye

2.如何用LSP语言替换字符串 如:45d25'48" 替换d         ' 为 -                结果 45-25-48


如果是VLISP，可以使用VL-STRING-TRANSLATE，


(VL-STRING-TRANSLATE "d'\"" "-- " "45d25'48\"")，"替换为空格。

liuqian020

哈哈!感谢楼上的高手,我的问题解决了。