如何制作线和圆f

hoomanhidaji · 发表于 2022-7-5 19:25:05

嗨，朋友们
我想从文本文件中画出不同图层和颜色的线和圆，有人能帮我吗？谢谢

jonathann3891 · 发表于 2022-7-5 20:09:24

没有更多的信息，很难完全理解你在寻找什么。

与此同时，请查看李·麦克的这个节目
http://lee-mac.com/ptmanager.html

hoomanhidaji · 发表于 2022-7-5 20:54:43

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)
)

[编程交流] 如何制作线和圆f

发表回复

精选推荐