如何制作线和圆f
嗨，朋友们我想从文本文件中画出不同图层和颜色的线和圆，有人能帮我吗？谢谢 没有更多的信息，很难完全理解你在寻找什么。
与此同时，请查看李·麦克的这个节目
http://lee-mac.com/ptmanager.html thx乔纳森3891
我有这样的文本文件：
柱
0,0
0,20
500,20
柱
0,20
30,40
100,30
梁
20,20
50,20
我想要分开的柱子和梁来画它们。我试过了，但没用。
(defun c:Soole( / fn fp lst l p1 p2 oldOSM )
(command "_.-layer" "_N" "Column" "_M" "CCC_LAYOUT_Cross_Sections_Outline" "_C" "150" "CCC_LAYOUT_Cross_Sections_Outline" "" )
(setq fn (getfiled "Select ASCII file" "" "txt" 4))
(setq fp (open fn "r") lst '())
(while
(if (/= item "COLUMN")
(setq l (read-line fp))
(setq lst (cons l lst))
))
(close fp)
(setq lst (reverse lst))
(setq oldOSM (getvar "osmode"))
(setvar "osmode" 0)
(command "._pline" "")
(foreach item lst
(if (/= item "COLUMN")
(command item)
(command "" "._pline")
))
(command "")
(setvar "osmode" oldOSM)
(princ)
)
页:
[1]