如何将两个数字转换成(x,y)坐标格式!!!谢谢
请教该如何才能将选中的两个数字合并成下列格式 例如:选中为100及150 所抓出的文字变为
100,150
以上请指点一下小弟
谢谢! (defun c:test (/) (setvar "osmode" 0)
(setvar "blipmode" 0) (setvar "OrthoMode" 0) (setvar "cmdecho" 0) ;;;;;;;;;;;;;;;;;;;;;;
(setqxt (entsel "\n 点选数字
:"));;例如点选的数字是100
(setq yt (entsel "\n 点选数字
:")) ;;例如点选的数字是150 (setq xt_pt (cdr(assoc 1 (entget(car xt)))));;抓出的文字内容为100 (setq xy_pt (cdr(assoc 1 (entget(car yt)))));;抓出的文字内容为150 (setq vp(strcat xt_pt "," xy_pt)ß-----请教这段如何写才能将
xt_pt , xy_p 所抓出的文字变为
100,150 的格式 |