[Red Nova]

Со школы не ладится у меня с программированием. Все предметы щелкал, а на экзамене по информатике (Visual foxpro) программку типа суммирования столбцов списал у соседа (это уже в университете).
Не смотря на эте намерен научится писать программы для Автокада на лиспе, скачал книгу Хювенена, несколько примеров создания программ, но после получасового “смотрения” таких книг мое мышление явно притормаживает.
Решил пойти другим путем.
Нашел самый короткий лисп из моей коллекции, и прошу программистов с этого форума пошагово объяснить какой символ что означает. Надеюсь на вашу помощь.

Код:

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

(defun c:make-blocks-explodeable (/ adoc)
  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-startundomark
  (vlax-for blk_def (vla-get-blocks adoc)
    (if (and (equal (vla-get-isxref blk_def) :vlax-false)
             (equal (vla-get-islayout blk_def) :vlax-false)
             ) ;_ end of and
      (vl-catch-all-apply '(lambda () (vla-put-explodable blk_def :vlax-true)))
      ) ;_ end of if
    ) ;_ end of vlax-for
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

_____________________________________________________________________________________________________________

Прошло много лет и топик теперь представляет из себя площадку для обучения азов программирования для многих начинающих.
Так что начинающие лиспогрызы приветствуются .

[alex8888]

ShaggyDoc,
спасибо за ответ.

1. Ну а с механикловскими командами (начинаются с AM...) имеет смысл программировать? Или там тоже такие же "обертки"?
2. Можно ли при вводе запрашиваемого числа ввести буквенный символ, чтобы произошло ветвление программы, типа если вместо числа пользователь нажал "S" (например), то программа запросила бы ввести дополнительное число?

Примерно так:

(initget 1 "S")
(setq p1 (getpoint "\nВведите точку или [Stuffe]:"))

(if (= p1 "S")
(setq p2 (getpoint "\nВведите точку 2"))

); end if

;далее тело основной функции

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

1. Сугубо ИМХО: команды вертикальных решений дрессировке поддаются весьма слабо.
2. См. ключи initget (конкретнее - биты).

[ShaggyDoc]

alex8888, вряд ли стоит связываться с вертикальными решениями. Там многое зависит от того, как "оформлена" команда. Там ведь не только свои дополнительные команды, но и свои объекты, отсутствующие в AutoCAD создаются.

Если у этой системы есть документированный интерфейс для программирования, тогда можно попробовать. Однако не изучив общих азов это заведомо бесполезно.

[alex8888]

ShaggyDoc, Кулик Алексей aka kpblc,
спасибо за объяснение.

В целом же чистый астокад и механикал сильно отличаются в плане программирования? Например, программы из ветки http://forum.dwg.ru/showthread.php?t=5887&page=4 по отрисовке объемных тел ни одна не пошла. Ошибки пишет разные. В основном, не нравятся какие-нибудь команды, например, _.view. Если введу _.-view, то проходит выполнение дальше, но при этом требует ввода локализованных параметров, английские берет, но определять их вслепую надо (подсказки нет).

Как можно "заставить" lisp-программу выполнить команду, записанную в другом лисп-файле? Не хочу изобретать велосипед, если есть возможность воспользоваться уже готовыми библиотеками из Ру-када, да и самому тоже хотелось бы немного пооптимизировать и не набирать в каждой программе один и тот же текст. Мысль подгружать их все при загрузке автокада не проходит - в Ру-каде слишком много функций, да и не известно на 100%, что понадобится.

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

По стандартным командам: вообще-то они все должны работать. По "заставить выполнить другой lisp" - а что там сложного? Загрузить оба лиспа, и в первом вызывать функцию, определенную во втором. Ничего сложного...
P.S. Эта технология в книге "САПР на базе..." описана очень подробно, насколько я помню.
P.P.S. Сейчас уже всерьез задумываюсь о написании лиспа, который будет выдавать всю "подноготную" какой-либо lisp-функции...

[alex8888]

Эта технология в книге "САПР на базе..." описана очень подробно, насколько я помню

Изучаю потихоньку, пока наверное до этого пункта не дошел, а так очень полезная книга. Правда приходится все лиспы переделывать - ну не принимает мой кад русский язык, хоть тресни - в лучшем случае иероглифы, в худшем одни знаки вопроса. В винде поддержка русского стоит, все остальное читается нормально, а в каде - никак

Сейчас уже всерьез задумываюсь о написании лиспа, который будет выдавать всю "подноготную" какой-либо lisp-функции

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

Загрузить оба лиспа, и в первом вызывать функцию, определенную во втором

А если этих лиспов не два, а сотни две? Есть способ, автоматически загружаемый нужный лисп, если в выполняемом встречается функция из него? Или как то прописать?

Прошу прощения за назойливость

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

Способ есть. В "Готовых программах" посмотри - там был вариант загрузки всех приложений из указанного каталога.
P.S. Насчет "подноготной"... Тот вариант, который я задумал, недостаточно универсальный - некоторые ограничения накладываются (в частности, к именам функций, которые надо отслеживать).

[VVA]

В винде поддержка русского стоит, все остальное читается нормально, а в каде - никак

Попробуй поменять номера кодовых страниц

REGEDIT4 [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage] "1250"="c_1251.nls" "1251"="c_1251.nls" "1252"="c_1251.nls" "1253"="c_1251.nls" "1254"="c_1251.nls" "1255"="c_1251.nls" "437"="c_866.nls" [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes] "Arial,0"="Arial,204" "Arial Cyr,0"="Arial,204" "Comic Sans MS,0"="Comic Sans MS,204" "Courier,0"="Courier New,204" "Courier,204"="Courier New,204" "Courier New Cyr,0"="Courier New,204" "Fixedsys,0"="Fixedsys,204" "Helv,0"="MS Sans Serif,204" "MS Sans Serif,0"="MS Sans Serif,204" "MS Serif,0"="MS Serif,204" "Small Fonts,0"="Small Fonts,204" "Tahoma,0"="Tahoma,204" "Times New Roman,0"="Times New Roman,204" "Times New Roman Cyr,0"="Times New Roman,204" "Tms Rmn,0"="MS Serif,204" "Verdana,0"="Verdana,204" "Arial CE,238"="Arial,204" "Arial CYR,204"="Arial,204" "Courier New CE,238"="Courier New,204" "Courier New CYR,204"="Courier New,204" "Times New Roman CE,238"="Times New Roman,204" "Times New Roman CYR,204"="Times New Roman,204" "Times New Roman Cyr,0"="Times New Roman,204" "System,0"="System,204" "Fixedsys,0"="Fixedsys,204" "Small Fonts,0"="Small Fonts,204"

[alex8888]

Кулик Алексей aka kpblc, ShaggyDoc,

вот наваял:

(defun clate (/ *error* oldosm oldlay pl_1 pl_2 pl_3 pl_4 pl_o pl_h pl_v pl_L3 pl_L5 pl_B6 pl_5 pl_6 pl_7)
;************funktion error********************

(defun *error*(msg)
(princ msg) ;text bei error
(if oldosm (setvar "OSMODE" oldosm)) ;if oldosm - zadano -> oldosm=oldosm
(if oldlay (setvar "CLAYER" oldlay)) ;if layer gewechselt -> zurьck
); end of *error*


;*****************Parametry privjazki********************

(setq oldosm (getvar "osmode"))
(setvar "osmode" 0)
(setq oldlay (getvar "clayer"))

;*****************Input Znachenij***********************
(vl-load-com) ; Не знаю - надо ли? далее будет команда vl-cmdf

(initget 7)
(setq pl_L (getreal "\nLдnge: ")) ;get Lдnge
(initget 7)
(setq pl_B (getreal "\nBreite: ")) ;get Breite

(setq pl_1 (getpoint "\nInput Start Point: ")) ;lower left point

;****************Raschet********************************

(setq pl_2 (polar pl_1 0 pl_L)) ;lower right point
(setq pl_3 (polar pl_2 (/ pi 2.0) pl_B)) ;upper right point
(setq pl_4 (polar pl_3 pi pl_L)) ;upper left point
(setq pl_o (polar pl_1 (/ pi 4.0) (* 10.0 (sqrt 2.0)))) ;point fьr offset

;****************Ramen**********************************
(command "_.pline" pl_1 pl_2 pl_3 pl_4 "_c" "") ;draw rectangle
(setq pl_rahmen (entlast)) ;save rectangle


;****************Postroenie offset**********************
Как сделать, чтобы при отсутствии layer "SF-RAHMEN" он был бы создан?
(command "_.chprop" "_last" "" "_layer" "SF-RAHMEN" "_c" "_bylayer" "");change layer+color
(vl-cmdf "_.offset" 10 pl_rahmen pl_o "") ;offset

;***************Bemassung*****************************

(setq pl_h (list (+ (car pl_4) (/ pl_L 2.0))(+ (cadr pl_4) 40)))
(setq pl_v (list (- (car pl_1) 40)(+ (cadr pl_1)(/ pl_B 2.0))))
(vl-cmdf "_.layer" "_s" "AM_5" "")
(command "_.dimlinear" pl_4 pl_3 pl_h)
(command "_.dimlinear" pl_1 pl_4 pl_v)

(princ)
;**************Zurьck peremennye***********************

(setvar "osmode" oldosm)
(setvar "clayer" oldlay)

);end defun


VVA
,
а основной язык (немецкий) у меня не накроется? Ведь только связка русский-английский или немецкий-английский работают. Поддержка русского у меня стоит, но для юникода первым идет немецкий, если ставлю русский - все умляуты (д,ц,ь,Я) пропадают. Если только для меня, то особо не напрягает, а вот если для документации?

[VVA]

[quote=alex8888;389383],
Когда публикуешь код, ставь птичку "Отключить смайлы в тексте" в "Дополнительных опциях"

Код:

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

; .....
;****************Postroenie offset**********************  
;;;    Как сделать, чтобы при отсутствии layer "SF-RAHMEN" он был бы создан?
  (if (null (tblsearch "layer" "SF-RAHMEN"))
    (command "_.-LAYER" "_N" "SF-RAHMEN" ""))
  (command "_.chprop" "_last" "" "_layer" "SF-RAHMEN" "_c" "_bylayer" "");change layer+color
; .....

[Eximius]

Как создать именованную систему координат, если в текущем файле рисунка вообще нет таких систем координат?
Желательно через функцию entmakex.
Какие (по минимуму) dxf коды нужны для создания именованной ucs?
Как получить координаты текущей системы координат относительно мировой?

[VVA]

Как получить координаты текущей системы координат относительно мировой?

Команда: _setvar Имя переменной или [?]: ? Список переменных для вывода <*>: ucs* UCSAXISANG 90 UCSBASE "" UCSFOLLOW 0 UCSICON 1 UCSNAME "" (только чтение) UCSORG 0.0000,0.0000,0.0000 (только чтение) UCSORTHO 1 UCSVIEW 1 UCSVP 1 UCSXDIR 1.0000,0.0000,0.0000 (только чтение) UCSYDIR 0.0000,1.0000,0.0000 (только чтение)

А так же переменная WORLDUCS

[alex8888]

VVA,
спасибо, понял.
Насчет кодовых страниц вопрос пока открытый (У меня виста 64х бизнес немецкая).

Кулик Алексей aka kpblc,

Способ есть. В "Готовых программах" посмотри - там был вариант загрузки всех приложений из указанного каталога.

в готовых программах не нашел, можно прямую ссылочку?

[VVA]

alex8888, Ну так экспортировать сущестующие значения реестра, импортировать и посмотреть, если что вернуть назад.
По идее в этой части

REGEDIT4 [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Contro l\Nls\CodePage] "1250"="c_1251.nls" "1251"="c_1251.nls" "1252"="c_1251.nls"

ни на что не должно повлиять

в готовых программах не нашел, можно прямую ссылочку?

Алексей немного промахнулся. Не в готовых программах, а в библиотеке функций
DwgRuLispLib: Команда. Загрузка lisp файлов из указанной папки

[alex8888]

Спасибо, ребята. Вы отвечаете быстрее, чем я "перевариваю"

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

Offtop: VVA, вот и тебя "размножили"

[alex8888]

Offtop: VVA, вот и тебя "размножили"

Прошу прощения, впредь буду сдержанней в эмоциях.


VVA,
попробовал поменять кодовые страницы - результат:
1. исчезли все умляуты, вместо них русские буквы;
2. в автокаде как были иероглифы и знаки вопроса, так и остались.
То есть, системные установки кодовых страниц еа автокад не влияют. Где то спрятано глубже.

[Eximius]

VVA, спасибо что отвечаете на все вопросы которые я тут задал.
И ещё чуть-чуть:
У Кулик'a Алексея aka kpblca, в видео vlideworks он в теле функции defun создаёт ещё одну функцию типа defun. Из видео мне не понятно зачем, и как она будет работать.
В каких случаях удобно создавать такие:

Код:

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

(defun abc ()
  (defun def () .....)
  ........
)

комбинации?

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

Ну это локальные функции. Особенно удобно, если надо переопределять обработчик ошибок именно внутри какой-то своей функции. Ну или рекурсию, например, применить...

[Juss_00]

Взялся за Лисп. Читаю эту тему с начала. Если кого не затруднит, назовите посты или ссылки на описание функций на русском языке. Или быть может есть в Автолисп справка как родная но на русском?

п.с. понимаю что вопросы уже тут шумевшие не раз. Если что удалите мой пост, но получив в личку ответ был бы признателен.