;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; ;
; for cross sections ;
; ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(if (= S
"Function cancelled") (princ "\nVERTEXT - cancelled: ") )
(RESETTING)
(princ "SYSTEM VARIABLES have been reset\n") )
(defun SETV
(SYSTVAR NEWVAL
) )
(SETV "CMDECHO" 0)
(SETV "BLIPMODE" 0)
)
)
(RSETV "CMDECHO")
(RSETV "BLIPMODE")
)
(defun VERTEXT
(/ EN VLIST
) (if (= (DXF
0 EN
) "LWPOLYLINE") (setq VLIST
(GET
-LWVLIST EN
)) (setq VLIST
(GET
-PLVLIST EN
)) )
(WRITE-IT VLIST EN)
)
(defun GET
-EN
(/ NO
-ENT EN MSG1 MSG2
) EN NIL
MSG1 "\nselect a polyline: "
MSG2 "\nTry again !!!."
) ; setq
(or (= (DXF
0 EN
) "LWPOLYLINE") (= (DXF
0 EN
) "POLYLINE")) ; or
) ; and
) ; if
) ; while
EN
) ; get-en
(defun GET
-LWVLIST
(EN
/ ELIST NUM
-VERT VLIST
) VLIST NIL
) ; setq
) ; setq
) ; setq
) ; repeat
VLIST
) ; get-lwvlist
(defun GET
-PLVLIST
(EN
/ VLIST
) ) ; setq
(while (/= "SEQEND" (DXF
0 EN
)) ) ; while
VLIST
) ; get-plvlist
(defun WRITE
-IT
(VLST EN
/ NEWVLIST MSG3 FNAME
) VLST
) ;_ mapcar
MSG3 "Polyline vertex file"
;FNAME (getfiled MSG3 "" "txt" 1)
) ; setq
(WRITE-HEADER)
(WRITE-VERTICES NEWVLIST)
) ;_ write-it
(defun WRITE
-HEADER
(/ STR
) (setq STR
" POLYLINE VERTEX POINTS") ) ;_ setq
) ;_ write-header
(defun WRITE
-VERTICES
(NEWVLIST
/ XSTR YSTR ZSTR STR l
) l
"\nfro ground1 (1)/ for ground2 (2) < 1 > :"
)
)
("1")
)
)
(COMMAND "_layer" "_m" "ground1" "_c" "94" "" "") )
(COMMAND "_layer" "_m" "ground2" "_c" "10" "" "") )
)
STR
(strcat XSTR
(SPACES XSTR
) YSTR
(SPACES YSTR
) ZSTR
) ;_ strcat ) ; setq
; (write-line STR F1)
(command "style" "PMSF-TEXT 2" "Arial" "" "" "" "" "") httt
"0"
)
httt
"0"
)
) ; foreach
) ; write-vertices
(defun SPACES
(STR
/ FIELD NUM CHAR SPACE
) CHAR " "
SPACE ""
) ;_ setq
) ;_ spaces
(defun C:vd
() (SETTING
) (VERTEXT
) (RESETTING
) (princ)) ; c:nsl
(prompt "\nEnter VD to start")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; ;
; for ling sections ;
; ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(if (= S
"Function cancelled") (princ "\nVERTEXT - cancelled: ") )
(RESETTING)
(princ "SYSTEM VARIABLES have been reset\n") )
(defun SETV
(SYSTVAR NEWVAL
) )
(SETV "CMDECHO" 0)
(SETV "BLIPMODE" 0)
)
)
(RSETV "CMDECHO")
(RSETV "BLIPMODE")
)
(defun VERTEXT
(/ EN VLIST
) (if (= (DXF
0 EN
) "LWPOLYLINE") (setq VLIST
(GET
-LWVLIST EN
)) (setq VLIST
(GET
-PLVLIST EN
)) )
(WRITE-IT VLIST EN)
)
(defun GET
-EN
(/ NO
-ENT EN MSG1 MSG2
) EN NIL
MSG1 "\nselect a polyline: "
MSG2 "\ntry again !!!!!"
) ; setq
(or (= (DXF
0 EN
) "LWPOLYLINE") (= (DXF
0 EN
) "POLYLINE")) ; or
) ; and
) ; if
) ; while
EN
) ; get-en
(defun GET
-LWVLIST
(EN
/ ELIST NUM
-VERT VLIST
) VLIST NIL
) ; setq
) ; setq
) ; setq
) ; repeat
VLIST
) ; get-lwvlist
(defun GET
-PLVLIST
(EN
/ VLIST
) ) ; setq
(while (/= "SEQEND" (DXF
0 EN
)) ) ; while
VLIST
) ; get-plvlist
(defun WRITE
-IT
(VLST EN
/ NEWVLIST MSG3 FNAME
) VLST
) ;_ mapcar
MSG3 "Polyline vertex file"
;FNAME (getfiled MSG3 "" "txt" 1)
) ; setq
(WRITE-HEADER)
(WRITE-VERTICES NEWVLIST)
) ;_ write-it
(defun WRITE
-HEADER
(/ STR
) (setq STR
" POLYLINE VERTEX POINTS") ) ;_ setq
) ;_ write-header
(defun WRITE
-VERTICES
(NEWVLIST
/ XSTR YSTR ZSTR STR
) l
"\ngor ground (1)/ for ground (2) < 1 > :"
)
)
("1")
)
)
(COMMAND "_layer" "_m" "ground1" "_c" "94" "" "") )
(COMMAND "_layer" "_m" "ground2" "_c" "10" "" "") )
)
(setq gptx
(getpoint "\n point for dimensions for the begining ...: "))
YSTR
(rtos (/ (nth 1 ITEM
) 10) 2 2) ; διαιρω δια 10 STR
(strcat XSTR
(SPACES XSTR
) YSTR
(SPACES YSTR
) ZSTR
) ;_ strcat ) ; setq
; (write-line STR F1)
(command "style" "PMSF-TEXT 2" "Arial" "" "" "" "" "") httt
"0"
)
httt
"0"
)
) ; foreach
) ; write-vertices
(defun SPACES
(STR
/ FIELD NUM CHAR SPACE
) CHAR " "
SPACE ""
) ;_ setq
) ;_ spaces
(defun C:vv
() (SETTING
) (VERTEXT
) (RESETTING
) (princ)) ; c:nsl
(prompt "\nEnter VV to start")