Перейти к содержанию
Сергей newbie

Лисп, работающий в автокаде не работает в нанокаде

Рекомендуемые сообщения

Был лисп, успешно работающий в автокаде (позволял быстро создавать блоки с автоназванием)

 

;;; АвтоБлок c датой и временем создания

(defun C:аuto_blok_data ( / обб твс дата время имяблок)

(setq обб (ssget))

(if обб

(progn

(initget 7)

(setq твс (getpoint "\nУкажите точку вставки: "))

(setq дата (itoa (fix (getvar "cdate"))))

(princ "\nТекущая дата: ") (prin1 дата)

(setq время (itoa (fix (* 1e6 (- (getvar "cdate") (fix (getvar "cdate")))))))

(princ "\nТекущее время: ") (prin1 время)

(setq имяблок (strcat дата "_" время))

(vl-cmdf "_-BLOCK" имяблок твс обб "")

(princ "\nСоздан блок. Имя блока:") (prin1 имяблок)

(vl-cmdf "_INSERT" имяблок твс "1" "1" "0")

) ; progn

(princ "\nНичего не выбрано.")

) ; if

(princ)

)

 

В нанокаде он не работает. Может кто-нибудь подкорректировать его, чтобы он в нанокаде заработал?

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

а не заменить ли нам "vl-cmdf " на "command" в двух местах.

lisp заработает, но там с форматированием даты еще что то не то.

++++++++++++++

;;; АвтоБлок c датой и временем создания
(defun C:аuto_blok_data ( / обб твс дата время имяблок)
(setq обб (ssget))
(if обб
(progn
(initget 7)
(setq твс (getpoint "\nУкажите точку вставки: "))
(setq дата (itoa (fix (getvar "cdate"))))
(princ "\nТекущая дата: ") (prin1 дата)
(setq время (itoa (fix (* 1e6 (- (getvar "cdate") (fix (getvar "cdate")))))))
(princ "\nТекущее время: ") (prin1 время)
(setq имяблок (strcat дата "_" время))
(command "_-BLOCK" имяблок твс обб "")
(princ "\nСоздан блок. Имя блока:") (prin1 имяблок)
(command "_INSERT" имяблок твс "1" "1" "0")
) ; progn
(princ "\nНичего не выбрано.")
) ; if
(princ)
)

Изменено пользователем Ivanco

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

а у меня в нанокад спдс 7 при попытке подгрузить лисп вот что выскакивает:

ошибка: неверный синтаксис DEFUN: (C: UTO_BLOK_DATA (/ ОББ ТВС Д Т ВРЕ Я И ЯБЛОК) (SETQ ОББ (SSGET)) (IF ОББ (PROGN (INITGET 7) (SETQ ТВС (GETPOINT "\nУкажите точку вставки: ")) (SETQ Д Т (ITOA (FIX (GETVAR "cdate")))) (PRINC "\nТекущая дата: ") (PRIN1 Д Т) (SETQ ВРЕ Я (ITOA (FIX (* 1.0e+006 (- (GETVAR "cdate") (FIX (GETVAR "cdate"))))))) (PRINC "\nТекущее время: ") (PRIN1 ВРЕ Я) (SETQ И ЯБЛОК (STRCAT Д Т "_" ВРЕ Я)) (COMMAND "_-BLOCK" И ЯБЛОК ТВС ОББ "") (PRINC "\nСоздан блок. Имя блока:") (PRIN1 И ЯБЛОК) (COMMAND "_INSERT" И ЯБЛОК ТВС "1" "1" "0")) (PRINC "\nНичего не выбрано.")) (PRINC))

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
а у меня в нанокад спдс 7 при попытке подгрузить лисп вот что выскакивает:

нано СПДС 7 x64 win10 , загружаю : Сервис-Приложения-Загрузка приложения - все ОК.

эмм..

- может с кодировкой чего , "UTF-8" выставьте в редакторе.

- или скопировали не весь код..

Изменено пользователем Ivanco

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить в этой теме...

×   Вставлено с форматированием.   Восстановить форматирование

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

Загрузка...

×
×
  • Создать...