How can make LINE and Circle from text file

[hoomanhidaji]

Hi friends

I want to draw LINE and CIRCLE with different layer and color from text file anybody can help me? thx

[jonathann3891]

with out a little more information its hard to fully understand what your looking for.

 

In the mean time check out this program from Lee Mac

http://lee-mac.com/ptmanager.html

[hoomanhidaji]

thx jonathann3891

I have text file like this :

Column

0,0

0,20

500,20

Column

0,20

30,40

100,30

BEAM

20,20

50,20

 

I want seperat Column and Beam to draw them.i try this but not worked.

 

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