请教高手：关于CAD中特殊字符的输入问题!

xfy5216

请教高手：



                                                 在用了语句(setq txt (getstring '1 "\n输入文本： "))后，会等待输入文本，这时是通过键盘输入，如果想中间通过点工具按钮的方式来加入一些特殊字符。例如：想在文本中输入“Φ50”时，点一下一个定好的工具按钮就在文本行添加“%%C”，后面我就只要用键盘输入“50”就可以了，我该怎么用LISP做呀!

meflying

使用这样一个函数,注意半角和全角的差别,你自己补充完善一下 (setq txt (tra (getstring ...))) (defun Tra(str / ch)
(setq ch (substr str 1 2))
(cond
((= ch "Φ") (setq ch "%%c"))
)
(strcat ch (substr str 3 (- (strlen str) 2)))
)

xfy5216

好的我先试试，谢谢飞哥!


上次同方MDS2002的问题解决了，原因是同方不支持Vlisp，只支持AutoLisp。而且不支持boundary命令，只支持Bpoly,"plinetype=0"!


再次感谢各位高手们的指点!

xfy5216

飞哥：


                                         你这个好象只能用一次吧!而且在开头；要是我一次输入中在不同的位置有多次用到多个特殊字符那。。。。。。!!!


例如："%%C30 abcdefg 40%%D ddggdffg %%P+0.02 %%C30.........."


一次输入时能多次添加吗？

meflying

什么叫多次填加?


我给你的是一个函数,你可以随便调用,要用多少次就用多少次,,,而且我这个函数也只是一个抛砖引玉的功能,根据这个思路,你自己去做你需要的事情啊...----看我的签名

xfy5216

哦我明白了，谢谢飞哥!