;xsection form file data
(defun c:xsection
( / fn fp lst l p1 p2 oldOSM
) (COMMAND "_layer" "_m" "ground1" "_c" "8" "" "") (COMMAND "_layer" "_m" "ground2" "_c" "3" "" "") ; if we have a 2d ground line
(COMMAND "_layer" "_m" "text_ground1" "_c" "8" "" "") (COMMAND "_layer" "_m" "text_ground2" "_c" "3" "" "") (COMMAND "_layer" "_m" "name of section" "_c" "1" "" "") (COMMAND "_layer" "_m" "datum" "_c" "1" "" "") (COMMAND "_layer" "_m" "scale" "_c" "1" "" "") (COMMAND "_layer" "_m" "Vertical lines" "_c" "140" "" "") (COMMAND "_layer" "_m" "Vertical yellow line" "_c" "2" "" "") (setq scl
(/ (getreal "\n give scale (100,200,500,etc) : ") 100)) (setq fn
(getfiled "Select ASCII file for ground 1" "" "txt" 4)) ;
; I want to add a command when i whant in second time to add ground 2
;ask me.Do you have another ground line (Y/N)
;When i answer Yes then load ASCII file for ground 2
;(setq fe (getfiled "Select ASCII file for ground 2" "" "txt" 4))
;And ask me to pick the inset point for the ground 2 like the photo
;Look the photo to see the insert point of ground 2
)
)
)
;)
)
;
;write data to the table .(I need help for this)
;