Hello:
I have the following situation:
list_data_contact ("axe" "bf" 120 140 27 56 "sk1" "at" 36 65 78 90)
list_data_points ("tap" "dm" 134 432 "env" "zt" 32 11 "axe" "bf" 45 65 "bev" "tx" 32 21 "sk1" "at" 56 32)
The routine must be return from list_data_points:
List ("axe" "bf" 45 65 "sk1" "at" 56 32)
The following code not work totally:
(setq contad-1 0)
(repeat (length list_data_contact)
(setq continterno 0)
(setq data_contact (nth contad-1 list_data_contact))
(setq contact_part_name_a (nth continterno data_contact))
(setq feature_contact_name_a (nth (+ continterno 1) data_contact))
(setq contact_part_name_b (nth (+ continterno 6) data_contact))
(setq feature_contact_name_b (nth (+ continterno 7) data_contact))
(setq contad-2 0)
(repeat (length list_data_points)
(if (and
(= contact_part_name_a (nth contad-2 list_data_points))
(= (nth (+ continterno 1) data_contact) (nth (+ contad-2 1) list_data_points))
)
(progn
(princ contact_part_name_a)
(princ (nth (+ continterno 1) data_contact))
(princ "-")
(princ (nth contad-2 list_data_points))
(princ (nth (+ contad-2 1) list_data_points))
(setq first_point (nth (+ contad-2 2) list_data_points))
(setq contad3 0)
(repeat (length list_data_points)
(if (and
(= contact_part_name_b (nth contad3 list_data_points))
(= (nth (+ continterno 1) data_contact) (nth (+ contad3 1) list_data_points))
)
(princ "contact")
)
(setq contad3 (1+ contad3))
)
)
)
(setq contad-2 (+ contad-2 3))
)
(setq contad-1 (1+ contad-1))
)
Thanks,