[olga87]

Здравствуйте Уважаемые программисты!
Подскажите пожалуйста, как упростить код ниже, чтобы не повторять одно действие 3 раза: сейчас за одну процедуру добавляется один путь, а путей три. Как сделать добавление нескольких путей с проверкой за одно действие?
Заранее спасибо!

Код:

[Выделить все]

;;Пути доступа к вспомогательным файлам
  (setq suppdir "C:\\Путь1")
  (if (not (vl-string-search (strcase suppdir) (strcase (getenv "ACAD"))))
    (setenv "ACAD" (strcat (vl-string-right-trim ";" (getenv "ACAD")) ";" suppdir))
  )
  (setq suppdir nil)
  (setq suppdir "C:\\Путь2")
  (if (not (vl-string-search (strcase suppdir) (strcase (getenv "ACAD"))))
    (setenv "ACAD" (strcat (vl-string-right-trim ";" (getenv "ACAD")) ";" suppdir))
  )
  (setq suppdir nil)
  (setq suppdir "C:\\Путь3")
  (if (not (vl-string-search (strcase suppdir) (strcase (getenv "ACAD"))))
    (setenv "ACAD" (strcat (vl-string-right-trim ";" (getenv "ACAD")) ";" suppdir))
  )
  (setq suppdir nil)

[Кулик Алексей aka kpblc]

foreach и вперед

[koMon]

Код:

[Выделить все]

  
(setenv "ACAD" (strcat (setq set_suppdir (getenv "ACAD"))
 						(apply 'strcat (mapcar '(lambda (add_suppdir) (if (not (vl-string-search (strcase add_suppdir) (strcase set_suppdir)))
 																	   			(strcat add_suppdir ";")
 																				""
 												   					   )
 								  				 )
 								  				'("c:\\Путь1" "c:\\Путь2" "c:\\Путь3")
 										)
 						)
				)
)

[olga87]

Спасибо!