[Apelsinov]

Подскажите, как загрузить имеющийся профиль в акад с помощью лиспа? С проверкой на наличие этого профиля.

[Alaspher]

Вот набор функций сделаный для ruCAD:

Код:

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

(defun ru-menu-set-profile (name force)
  (setq name (strcase name))
  (if (and (numberp
	     (vl-position name (mapcar 'strcase (ru-menu-get-profiles-names)))
	   ) ;_ end of numberp
	   (or force
	       (/= name (strcase (ru-menu-get-profile-activename)))
	   ) ;_ end of or
      ) ;_ end of and
    (vla-put-activeprofile (ru-menu-get-profiles) name)
  ) ;_ end of if
) ;_ end of defun

(defun ru-menu-get-profile-activename ()
  (vla-get-ActiveProfile (ru-menu-get-profiles))
) ;_ end of defun

(defun ru-menu-get-profiles-names ( / tmp)
  (vla-GetAllProfileNames (ru-menu-get-profiles) 'tmp)
  (vlax-safearray->list tmp)
) ;_ end of defun

(defun ru-menu-new-profile (name / profs)
  (setq profs (ru-menu-get-profiles))
  (vla-CopyProfile profs (vla-get-ActiveProfile profs) name)
  (vla-put-ActiveProfile profs name)
) ;_ end of defun

(defun ru-menu-get-profiles ()
  (vla-get-profiles
    (vla-get-preferences (vlax-get-acad-object))
  ) ;_ end of vla-get-Profiles
) ;_ end of defun

Вызов:

Код:

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

(ru-menu-set-profile <имя профиля> <игнорировать активный>)

включить имеющийся
или

Код:

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

(ru-menu-new-profile <имя профиля>)

создать новый

Если что-нибудь из функций "недоложил" - скажи.

[Apelsinov]

>Alaspher, Большое спасибо!
Все есть, все работает. Это то что было нужно.