[Redya]

День добрый. Вообщем пришёл к другу, а у него AC2007ru. Вообщем пытался я подгрузить файл SQ.lsp, но кад его почему то не видит. что делать? или я идиот?

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

Абзац. Что за лисп? Где код? Как подгружал?

[Redya]

ну да, я с похмелья малёк. сервис - приложения - и в окне хотел выбрать файл SQ.lsp, который лежит на рабочем столе, но его какбе нет там. Дома проблем нет с этим (AC2007eng).

Код:

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

(defun c:sq (/ adoc ent pt get-objectid-x86-x64)

  ;;--------------------------------------------------------
  ;; Функция получает строковое представление ObjectID
  ;; вне зависимости от того AutoCAD x86 или x64
  ;; Источник: https://discussion.autodesk.com/forums/message.jspa?messageID=6172961
  ;; http://forum.dwg.ru/showpost.php?p=566244&postcount=8
  ;;--------------------------------------------------------
  (defun get-objectid-x86-x64 (obj / util)
    (setq util (vla-get-utility (vla-get-activedocument (vlax-get-acad-object))))
    (if (= (type obj) 'ename)
      (setq obj (vlax-ename->vla-object obj))
      ) ;_ end of if
    (if (= (type obj) 'vla-object)
      (if (> (vl-string-search "x64" (getvar "platform")) 0)
        (vlax-invoke-method util "GetObjectIdString" obj :vlax-false)
        (rtos (vla-get-objectid obj) 2 0)
        ) ;_ end of if
      ) ;_ end of if
    ) ;_ end of defun

  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-StartUndoMark
  (if
    (and (= (type (setq ent
                         (vl-catch-all-apply
                           '(lambda () (car (entsel "\nУкажите полилинию <Отмена> : ")))
                           ) ;_ end of vl-catch-all-apply
                        ) ;_ end of setq
                  ) ;_ end of type
            'ename
            ) ;_ end of =
         (= (cdr (assoc 0 (entget ent))) "LWPOLYLINE")
         (/= (logand (cdr (assoc 70 (entget ent))) 129) 0)
         (= (type (setq pt (vl-catch-all-apply
                             '(lambda () (getpoint "\nТочка вставки <Отмена> : "))
                             ) ;_ end of vl-catch-all-apply
                        ) ;_ end of setq
                  ) ;_ end of type
            ) ;_ end of =
         ) ;_ end of and
    (progn
     (vla-addmtext
       (vla-objectidtoobject
         adoc
         (vla-get-ownerid (setq ent (vlax-ename->vla-object ent)))
         ) ;_ end of vla-ObjectIDToObject
       (vlax-3d-point pt)
       0.
       (strcat "%<\\AcObjProp Object(%<\\_ObjId "
               (vl-princ-to-string (get-objectid-x86-x64 ent))
               ">%).Area \\f \"%lu6%qf1%ct8[1e-006]\">%"
               ) ;_ end of strcat
       ) ;_ end of vla-addmtext
     (command "_.updatefield")
    )
     ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

[Alan]

Сообщение от Redya ну да, я с похмелья малёк. сервис - приложения - и в окне хотел выбрать файл SQ.lsp, который лежит на рабочем столе, но его какбе нет там. Дома проблем нет с этим (AC2007eng).

Помещай файлы в доступные папки и будет тебе счастье.
P.S.И не храни НИКОГДА файлы на рабочем столе... ЯТД

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

Так, может, на рабочем столе не сам лисп, а ярлык к нему?

[Redya]

Сообщение от Alan Помещай файлы в доступные папки и будет тебе счастье. P.S.И не храни НИКОГДА файлы на рабочем столе... ЯТД

Да тут для дела то 5-ти минутного надо, потом никто этим пользоваться не будет, но сам факт меня заинтересовал, что кад не видит. Я не пепрвый раз пользуюсь lisp'ом.

Сообщение от Кулик Алексей aka kpblc Так, может, на рабочем столе не сам лисп, а ярлык к нему?

нет, я создавал файл обычный текстовый на рабочем столе, вставлял код туда, менял расширение на .lsp и всё. Так всегда работало. Тут стоит win XP, и вроде он не адекватный. Может быть из-за этого?

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

Нда, расширение менял? А в настройках проводника указано "показывать расширения зарегистрированных файлов" или нет?

[Redya]

Сообщение от Кулик Алексей aka kpblc Нда, расширение менял? А в настройках проводника указано "показывать расширения зарегистрированных файлов" или нет?

Нет, не менял, а на какое? И где эти настроёки? Никогда к подобному причастен не был

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

Смотри здесь:

[Redya]

Как поменять логин на Идиот?

[VVA]

Redya, На будущее. Лисп можно подргужать драг-энд-дропом. Берешь файл за шкирку в проводнике, тянешь в окно Автокада и там отпускаешь левую клавишу мыши.