请教

wjm3 · 发表于 2004-7-21 20:45:00

您好！
请问如何将列表("12.36 36.56 78.00 45.56 " "87.12 45.32 -15.56 44.55 " "aaaaaa" "56.23 99.56 78.54 89.10 ")
转换为列表("12.36 36.56 78.00 45.56" "87.12 45.32 -15.56 44.55" "aaaaaa" "56.23 99.56 78.54 89.10")
或((12.36 36.56 78.00 45.56) (87.12 45.32 -15.56 44.55) (aaaaaa) (56.23 99.56 78.54 89.10))
急需，请指点，谢谢！

xucf001 · 发表于 2004-7-21 22:05:00

我是个AutoCAD2002的初学者，真诚向各位前辈请教一个问题：如何设置绘图比例？比如我想用1：2的比例画图，输入矩形长度“100”时，不会是输入“100/2”吧？
谢谢指教！

CADghost · 发表于 2004-7-21 22:39:00

xucf001不要在别人的贴子里问不相关的问题，自己发一个多好哇！
为什么要按1：2画呢，1：1不好吗？

waveboy · 发表于 2004-7-21 22:56:00

(defun Delspc(str / n i)
   (setq n (strlen str) i 1)
   (while (< i n)
   (if (and (= (substr str i 1) " ") (= (substr str (1+ i) 1) " "))
   (progn
(setq Str (strcat (substr str 1 (1- i)) (substr str (1+ i))))
(setq n (strlen str) i 1)
)
   (setq i (1+ i))
   )
   )
   (if (= (substr str 1 1) " ") (setq str (substr str 2)))
   (if (and (/= (strlen str) 0) (= (substr str (strlen str) 1) " ")) (setq str (substr str 1 (1- (strlen str)))))
   str
   )

wjm3 · 发表于 2004-7-21 23:35:00

我已想明白了，谢谢！

请教

发表回复

精选推荐