请高手来帮帮忙啊 菜鸟求解惑

Jerry_zion

  (defun c:6()
  (setvar"cmdecho"0)       ; 关闭命令响应
  (setvar "osmode" 32)
  (setq os (getvar "osmode"))
  (setq pt1 (getpoint "\n拾取坐标原点 : "))
  (setvar "osmode" 512)
  (setq pt2 (getpoint "\n拾取X轴 : "))
  (setq pt3 (getpoint "\n拾取Y轴 : "))
(command "ucs" "n" "3" pt1 pt2 pt3  )
(setq pt6 (GET-CLIP-STRING))
(command "3dpoly"  pt6 )
(print)
)
(defun GET-CLIP-STRING (/ HTML RESULT)
    (and (setq HTML (vlax-create-object "htmlfile"))
(setq RESULT (vlax-invoke
  (vlax-get (vlax-get HTML 'PARENTWINDOW)
    'CLIPBOARDDATA
  )
  'GETDATA
  "Text"
      )
)
(vlax-release-object HTML)
    )
    RESULT
)
==================================================
这我写的一个程序  GET-CLIP-STRING是主程序读取剪切板的子程序
这个程序主体内容是这样的   先建立坐标系 指定原点 X方向和Y方向 剪切板的内容为pt6   输入三维多段线命令  根据pt6绘出三维多段线
现在这样一个程序绘不出断面图 不知道在3dpoly后面该如何写了 不知道应该如何调整 希望高手能够帮帮我
剪切板的数据格式
x，y，h
-1.595,0.43,22.584
2.712,0.87,22.534
2.878,-0.88,22.407
4.244,-0.31,22.291
6.702,0.52,21.624
8.205,0.04,21.226