Hello every one
this a part of code and this inside a cond function
I've a list with name ColumnB and i need to make
if member in columnB equal any item of the list
(
(member ColumnB '("ACROW FRAME-P"
"Shore Brace Frame (H) (plan) 6221177009366"
"CUPLOCK PLAN"
"beam bracket"
"cant. bracket(Plan)1"))
(progn
(insert-spigot-jack-plate "Base Jack" jack_total jack_calc)
(insert-spigot-jack-plate "Base Plate" plate_total plate_calc)
(insert-spigot-jack-plate "U-Head Jack" U_Head_total U_Head_calc )
)
)
Solved! Go to Solution.
Solved by ec-cad. Go to Solution.
Something like this might do it.
(setq FLAG 0); Init Flag value ; add this somewhere above, in loop
; START of Cond
(
(member ColumnB '("ACROW FRAME-P"
"Shore Brace Frame (H) (plan) 6221177009366"
"CUPLOCK PLAN"
"beam bracket"
"cant. bracket(Plan)1"))
(progn
;; ADD
(if (= FLAG 0)
(progn
(insert-spigot-jack-plate "Base Jack" jack_total jack_calc)
(insert-spigot-jack-plate "Base Plate" plate_total plate_calc)
(insert-spigot-jack-plate "U-Head Jack" U_Head_total U_Head_calc )
(setq FLAG 1)
); progn
); if
;; END OF ADD
)
)
;; END of Cond
ECCAD
Sent you a PM on it. Your latest code fragment is attached, along with a test drawing.
Seems to work now. Look for "<---" comments, showing what I changed.
ECCAD
Good, glad to hear that !
I know you need more data types to add, should be a huge program once completed.
You (could) save those portions you are not using (outside) the main program, cut/paste
back in when needed. Just a suggestion.
And, make 'specific' functions to call the sorting routines.
One sample would be to put the 'new' Table startup into a seperate function, and call it.
ECCAD
Can't find what you're looking for? Ask the community or share your knowledge.