请高手来帮帮忙啊 菜鸟求解惑
(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
页:
[1]