Npdpk.ru

Стройжурнал НПДПК
2 просмотров
Рейтинг статьи
1 звезда2 звезды3 звезды4 звезды5 звезд
Загрузка...

Лисп автокад построение откосов

Visual LISP ¸ µ€µ‚‹ °´°‚°†¸¸ AutoCAD

Text of Visual LISP ¸ µ€µ‚‹.

681.3.06 AutoCAD Autodesk, , , , , . AutoLISP, DIESEL, DCL Visual LISP. — ActiveX. . AutoCAD 2000 AutoCAD 2000L

. .Visual LISP AutoCAD. .: -, 2001.-576 : .ISBN 5-94157-020-1

. . , 2001 , «-«, 2001 02429 24.07.00. 22.03.01. 70×100 Vie. . . . . 46,44. 5000 . 155. «-«, 198005, -, ., 29. , , 77.99.1.953..950.3.99 01.03.1999 . . , 198005, -, ., 29.

1. AutoCAD1.1. 1.2. 1.3. 1.4. 1.5. 1.6. 1.7. 1.8. acad.pgp AutoCAD AutoCAD AutoCAD

17 1920 25 31 41 44 47 48 51 53 53 54 55 56 57 57 59 59 60 61 61 61 64 64 64 65 65 66 66 67 67 67

2. AutoLISP 2.1. AutoLISP 2.1.1. 2.1.2. setq 2.1.3. 2.2. 2.2.1. 2.2.2. 2.2.3. 2.2.4. load 2.2.5. vl-load-all 2.3. AutoCAD AutoLISP 2.3.1. command 2.3.2. vl-cmdf. 2.4. 2.4.1. + 2.4.2. 2.4.3. * 2.4.4. / 2.4.5. /+ 2.4.6. / 2.4.7.

2.5. 2.5.1. = 2.5.2. / = 2.5.3. = 2.5.7. and. 2.5.8. or 2.5.9. not 2.5.10. null 2.5.11. // 2.5.12. progn 2.5.13. cond 2.5.14. minusp 2.5.15. zerop 2.5.16. numberp 2.5.17. listp 2.5.18. vl-consp 2.5.19. atom 2.5.20. vl-symbolp 2.5.21. boundp 2.5.22. eq 2.5.23. equal 2.5.24. while 2.5.25. repeat 2.6. 2.6.1. fix.. 2.6.2. 2.6.3. max 2.6.4. min 2.6.5. gcd 2.6.6. angle 2.6.7. distance 2.6.8. sqrt 2.6.9. sin 2.6.10. cos 2.6.11. atan 2.6.12. 2.6.13. expt 2.6.14. log 2.6.15. logand 2.6.16. logior 2.6.17. Ish 2.6.18. Boole 2.6.19. inters 2.6.20. polar 2.6.21. textbox 2.6.22. vports 2.6.23. vl-symbol-value 2.6.24. set. 68 68 68 69 69 70 70 71 71 72 72 73 73 74 76 76 76 77 77 78 78 78 79 79 79 80 81 81 82 82 83 83 83 84 84 84 85 85 85 86 86 86 87 87 88 89 89 90 90 92 93

2.7. 2.7.1. type 2.7.2. float 2.7.3. itoa 2.7.4. rtos 2.7.5. atoi 2.7.6. atof. 2.7.7. angtof 2.7.8. angtos 2.7.9. distof 2.7.10. trans 2.7.11. cvunit 2.8. 2.8.1. chr. 2.8.2. ascii 2.8.3. read v 2.8.4. strcase 2.8.5. strcat 2.8.6. strlen 2.8.7. substr 2.8.8. wcmatch 2.8.9. vl-string->list 2.8.10. vl-list->string 2.8.11. vl-string-elt 2.8.12. vl-string-left-trim 2.8.13. vl-string-right-trim 2.8.14. vl-string-trim 2.8.15. vl-string-mismatch 2.8.16. vl-string-position 2.8.17. vl-string-search 2.8.18. vl-string-subst 2.8.19. vl-string-translate 2.8.20. vl-symbol-name 2.8.21. ( ending) 2.8.22. ( strcaser) 2.9. 2.9.1. list 2.9.2. append 2.9.3. nth 2.9.4. reverse 2.9.5. car. 2.9.6. cdr. 2.9.7. caar, cadrw 2.9.8. cons 2.9.9. vl-list* 2.9.10. member 2.9.11. assoc 2.9.12. apply 2.9.13. mapcar 2.9.14. vl-every 2.9.15. foreach 93 93 94 94 95 96 96 96 97 98 98 100 101 101 101 102 103 103 104 104 105 106 106 107 107 107 108 108 108 109 109 110 110 111 111 112 112 113 114 114 114 115 116 116 117 118 118 119 119 120

2.9.16. eval 2.9.17. quote 2.9.18. acad_strlsort 2.9.19. last 2.9.20. subst 2.9.21. length 2.9.22. vl-list-length 2.9.23. vl-member-if. 2.9.24. vl-member-if-not 2.9.25. vl-position 2.9.26. vl-remove 2.9.27. vl-remove-if. 2.9.28. vl-remove-if-not 2.9.29. vl-some 2.9.30. vl-sort 2.9.31. vl-sort-i 2.9.32. vl-catch-all-apply 2.9.33. vl-catch-all-error-message 2.9.34. vl-catch-all-error-p 2.10. 2.10.1. initget 2.10.2. getfcword 2.10.3. getint 2.10.4. getreal. 2.10.5. getdist 2.10.6. getangle 2.10.7. getorient 2.10.8. getpoint 2.10.9. getcorner 2.10.10. getstring 2.10.11. getvar. 2.10.12. setvar 2.10.13. getenv 2.10.14. setenv 2.10.15. getc/g 2.10.16. setcfg 2.10.17. getcname 2.10.18. getfiled 2.10.19. acadcolordlg 2.11. , 2.11.1. flndfile 2.11.2. open 2.11.3. close 2.11.4. read-line 2.11.5. write-line 2.11.6. princ 2.11.7. phnl 2.11.8. print 2.11.9. read-char. 2.11.10. write-char 2.11.11. prompt 120 120 121 121 121 121 122 122 123 123 123 124 124 125 125 126 126 127 127 127 128 130 131 132 132 132 133 133 134 134 134 135 135 136 136 136 136 137 138 139 139 140 140 141 141 141 142 142 142 143 143

2.11.12. alert 2.11.13. terpri 2.11.14. vl-directory-ftles 2.11.15. vl-flle-copy 2.11.16. vl-file-delete 2.11.17. vl-file-directory>-p 2.11.18. vl-file-rename 2.11.19. vl-file-size 2.11.20. vl-file-systime 2.11.21. vl-filename-base 2.11.22. vl-filename-directory 2.11.23. vl-fdename-extension 2.11.24. vl-filename-mktemp 2.11.25. vl-princ-to-string 2.11.26. vl-prini-to-string 2.11.27. 2.12. AutoCAD 2.12.1. entlast 2.12.2. entnext 2.12.3. entsel 2.12.4. entdel 2.12.5. entget 2.12.6. entmake 2.12.7. entmakex 2.12.8. entmod 2.12.9. entupd 2.12.10. handent 2.12.11. nentsel 2.12.12. nentselp 2.12.13. 2.12.14. ssget 2.12.15. ssadd 2.12.16. ssdel. 2.12.17. sslength 2.12.18. ssmemb 2.12.19. ssname 2.12.20. ssnamex 2.12.21. sssetftrst 2.12.22. ssgetfirst 2.12.23. AutoCAD 2.13. 2.13.1. 2.13.2. tblsearch 2.13.3. tblnext 2.13.4. tblobjname 2.13.5. 2.13.6. setview 2.13.7. snvalid 2.14. , 2.14.1. 2.14.2. regapp 143 144 144 145 146 146 146 147 147 148 148 148 149 150 150 151 152 153 153 154 155 155 157 157 158 158 158 158 159 160 160 162 163 163 163 164 164 166 167 167 170 170 170 171 171 172 172 174 175 175 177

Читать еще:  Лисп для автокада откос

2.14.3. 2.14.4. xdsize 2.14.5. xdroom 2.15. , — 2.15.1. 2.15.2. namedobjdict 2.15.3. dictsearch 2.15.4. dictnext 2.15.5. dictadd 2.15.6. dictremove 2.15.7. dictrename 2.15.8. layoutlist 2.15.9. — 2.16. 2.16.1. lambda 2.16.2. defun 2.16.3. AutoCAD 2.16.4. defun-q 2.16.5. defun-q-list-ref. 2.16.6. defim-q-list-set. 2.16.7. function 2.16.8. vlisp-compile 2.16.9. exit 2.16.10. quit 2.16.11. *error*. 2.16.12. vl-acad-defun 2.16.13. vl-acad-undefun 2.16.14. vl-exit-with-error. 2.16.15. vl-exit-with-value 2.16.16. atoms-family 2.16.17. trace 2.16.18. untrace 2.17. , Windows 2.17.1. ver 2.17.2. 2.17.3. alloc 2.17.4. expand 2.17.5. ^ 2.17.6. vl-registry-read 2.17.7. vl-registry-write 2.17.8. vl-registry-delete 2.17.9. vl-registry-descendents 2.17.10. arx 2.17.11. arxload 2.17.12. arxunload 2.17.13. autoload. 2.17.14. autoarxload 2.17.15. vl-arx-import 2.17.16. vl-doc-export. 2.17.17. vl-doc-import 177 178 179 179 179 180 180 181 183 184 184 185 185 187 188 188 192 192 194 194 195 195 196 196 196 197 198 198 198 199 199 200 200 201 201 201 202 202 202 203 203 204 204 205 205 206 206 207 207 207

2.17.18. vl-list-exported-functions 2.17.19. vl-list-loaded-vlx 2.17.20. vl-vlx-loaded-p 2.17.21. vl-unload-vlx 2.17.22. vl-get-resource 2.17.23. vl-vbaload. 2.17.24. vl-vbarun 2.17.25. vl-bb-set 2.17.26. vl-bb-ref 2.17.27. vl-doc-set 2.17.28. vl-doc-ref. 2.17.29. vl-load-all 2.17.30. vl-propagate 2.17.31. 2.17.32. 2.17.33. 2.18. 2.18.1. osnap 2.18.2. redraw 2.18.3. graphscr 2.18.4. textscr 2.18.5. textpage 2.18.6. grtext 2.18.7. grdraw 2.18.8. grvecs 2.18.9. grclear 2.18.10. grread 2.18.11. initdia 2.18.12. tablet 2.19. 2.19.1. acad.lsp 2.19.2. acaddoc.lsp 2.19.3. ACADLSPASDOC 2.19.4. sr.startup 3. Visual LJSP 3.1. Visual LISP 3.1.1. 3.1.2. 3.1.3. 3.1.4. 3.1.5. 3.1.6. 3.1.7. 3.1.8. 3.2. Visual LISP 3.2.1. 3.2.2. 3.2.3. 3.2.4. 3.2.5. 208 209 209 210 210 211 211 211 212 213 213 214 214 215 217 218 219 219 220 221 221 221 221 224 224 225 225 228 229 230 230 231 232 232 233 234 234 235 236 237 244 246 250 251 251 251 252 252 253 254

10 3.3. Visual LISP 3.3.1. 3.3.2. 3.4. 3.4.1. 3.4.2. 3.4.3. VLX- 3.4.4. 4. 4.1. 4.1.1. 4.1.2. 4.2. 4.2.1. 4.2.2. 4.3. AutoLISP, 4.3.1. menugroup 4.3.2. menucmd 4.4. 4.4.1. : 4.4.2. 4.4.3. 4.5. 4.5.1. 4.5.2. 4.5.3. 4.5.4. 4.5.5. 4.5.6. 4.5.7. 4.5.8. 4.5.9. 4.5.10. 4.6. 4.6.1. 4.6.2. 4.6.3. 4.6.4. 4.7. 4.7.1. 4.7.2. 4.8. 4.9. 4.10. 4.10.1. 4.10.2. 4.10.3. 4.10.4. 4.11. 4.11.1. 4.11.2.

254 255 255 256 257 259 262 267 269 269 270 271 273 275 277 279 279 280 282 283 284 286 287 287 288 288 289 289 290 290 290 291 292 293 293 295 297 298 299 299 301 301 302 302 302 305 305 308 309 310 310

4.12. HELPSTRINGS 4.13. ACCELERATORS 4.14. DIESEL 4.14.1. 4.14.2. 4.14.3. , 4.14.4. 4.14.5. DIESEL AutoLISP 4.15. MNL- 5. 5.1. DCL 5.1.1. 5.1.2. 5.2. 5.2.1. ioadjiialog 5.2.2. unloadjiialog 5.2.3. new dialog 5.2.4. startdialog 5.2.5. done jiialog 5.2.6. term jiialog 5.2.7. 5.3. 5.3.1. 5.3.2. 5.3.3. 5.3.4. 5.3.5. 5.3.6. 5.4. , 5.4.1. actionjile 5.4.2. modejile 5.4.3. set tile 5.4.4. getjile 5.4.5. getjjttr 5.4.6. clientjJatajile 5.4.7. 5.5. , 5.5.1. startJist 5.5.2. addjist 5.5.3. endjist 5.6. , 5.6.1. startjmage 5.6.2. endjmage 5.6.3. fdljmage 5.6.4. slidejmage 5.6.5. vector image 5.6.6. dimxjMe 5.6.7. dimyjile 5.7. 5.7.1.

Читать еще:  Каким цветом покрасить дверные откосы

1J_ 312 313 314 314 314 315 315 316 316 320 320 320 324 328 328 328 329 329 330 330 330 331 332 336 342 344 345 346 347 348 349 350 354 355 355 355 357 357 357 358 358 358 359 359 360 360 361 361 361 361

12 5.7.2. 5.7.3. 6. 6.J. HELP- Windows 6.1.1. HELP- 6.1.2. CNT- 6.1.3. help 6.1.4. WIN- 6.1.5. WIN- startapp 6.2. HTML- 6.2.1. HTML- CNT- -. 6.2.2. HTML- 6.2.3. HTML- startapp 6.3. AutoCAD 6.3.1. acad_helpdlg 6.4. — 6.4.1. setfunhelp 6.4.2. setfunhelp 7. ActiveX 7.1. AutoLISP .1. .2. vl-load-com .3. .4. vlax-get-acad-object .5. vla-get-activedocument .6. vla-get-modelspace .7. vla-get-paperspace .8. ActiveX .9. .10. VLA- .11. iax-ename->vla-object .12. vlax-vla-object->ename .13. .14. .15. vlax-make-variant J 6 . vlax-variant-type .17. vlax-variant-vahte .18. vlax-variant-change-t

Как начертить линию с отступом в AutoCADе?

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

Я черчу кабельную трасу с отступом от стены на 1 мм (100 единиц в 100-м масштабе). Чтобы проделать данное действие раньше я пользовался в основном двумя способами.

  • Рисовал линию по контуру стены, а затем перемещал на расстояние 100 единиц. Концы линии затем доводил.
  • Использовал функцию смещение.

Данные способы позволяют добиться требуемого результата, но на них тратится достаточно много времени.

Я попросил друга сделать что-то подобное, т.к. я не знаю языка программирования Lisp, который и написал для меня небольшое приложение, за что ему огромное спасибо:)

Что позволяет новая функция?

Новая функция для AutoCADа, написанная на Lisp, позволяет значительно сократить количество манипуляций при черчении линии с отступом 1мм. При необходимости можно задать другой отступ или сделать его динамическим. Так как я использую постоянный отступ, чтобы не делать лишнее движение, я остановился на постоянном значении. Эту функцию очень удобно использовать при выполнении плана освещения, поскольку там каждая группа имеет отдельную линию и красивее будет смотреться чертеж, если все линии имеют одинаковый отступ друг от друга.

Теперь расскажу, как это приложение интегрировать в AutoCAD.

  1. Скачиваем архив с приложением по ссылке parline .
  2. Загружаем ParLine.LSP и ParLine1.LSP в AutoCAD. Сервис->AutoLISP->Приложения->Выбираем файлы ParLine.LSP и ParLine1.LSP.

В принципе уже можно пользоваться новой функций. Вызвать ее можно из командной строки, написав ParLine или ParLine1. Но это не совсем удобно.

Заходим в Сервис->Адаптация->Интерфейс.

  • Создаем новую панель.
  • Создаем две новые команды.
  • Прописываем макросы команд ParLine и ParLine1.
  • По желанию можно нарисовать значки как у меня или лучше:)

На картинке показано куда надо кликать.

Создаем свою палитру в AutoCADe

Как это работает?

  1. Выбираем созданную нами линию, также как и обычную линию.
  2. Указываем точки по маршруту линии. Для наглядности временно прорисовываются точки.
  3. Нажимает ENTER. Линия нарисована, временные точки пропадают.

В результате получим линии с отступом 1мм.

Еще важная особенность. В зависимости от того, где нужно начертить линию (слева, справа, сверху-вниз, снизу-вверх) выбирается одна из двух, созданных нами линий. На практике нужно попробовать и запомнитьJ Зеленую и красную линии, как у меня на картинке, можно начертить разными кнопками, все зависит от куда мы будет начинать чертить.

Вот и все. Я надеюсь,Вам это тоже пригодится.

Инструменты для AutoCAD

Продолжаем публиковать полезные инструменты для AutoCAD, облегчающие рутинную работу и ускоряющие процесс обработки геодезических измерений, от подготовки исходных данных для работы в поле, полевых геодезических измерений, до создания готового результата в AutoCAD в виде топографического плана, исполнительной схемы или чертежа, расчёта объёмов работ, контроля геометрических параметров.

Один хороший человек взял и собрал все наиболее часто используемые в AutoCAD или Civil3D геодезистами инструменты в один пакет «MenuGEO». Menugeo — набор панелей, инструментальных палитр и макросов (LISP, VBA) для облегчения работы по созданию в AutoCAD чертежей, выполнение расчётов и различных преобразований. Кратко, основные инструменты, которые входят в menugeo:

  • работа с примитивами чертежа (полилиния, 3d-полилиния, отрезки, точки, блоки и т.п.);
  • автоматизация операций импорта-экспорта объектов чертежа во внешние форматы (текстовые файлы, таблицы, файлы геодезических приборов);
  • обработка результатов геодезических измерений (расчёты площадей, объёмов, отклонений геометрических параметров от проектных, построение профилей и сечений);
  • оформление результатов геодезических измерений (картограмма объёмов земляных работ, отклонения размеров, подготовка листов чертежей, вставка стандартных форматов листов и заполнение штампов и т.п.).
Читать еще:  Что такое обратное отношение крутизны откоса

Полный перечень всех функций довольно объёмный и содержится в файле описания, обновления menugeo AutoCAD и Civil3D выходят довольно часто, публикуются на сайте geodesist. Процесс установки menugeo довольно несложный, и был описан ранее.

Рассмотрим несколько наиболее важных функций из menugeo.

1. Импорт-экспорт объектов чертежа AutoCAD для подготовки разбивочных материалов и загрузки результатов геодезических измерений (электронный тахеометр или спутниковое геодезическое оборудование).

На панели инструментов для удобства выведены 2 кнопки:

импортируем данные полевых измерений (могут быть например в форматах *.txt, *.sdr *.gsi и другие):

выбираем необходимые параметры (формат, разделители, в какие объекты чертежа осуществлять импорт):

результат импорта например может быть таким, если выбрать точки в качестве объектов чертежа:

экспортируем объекты чертежа AutoCAD в текстовый файл для загрузки в геодезическое оборудование (так же например форматы *.txt, *.sdr *.gsi), указываем куда сохранить:

выбираем объекты чертежа:

2. построение продольного профиля в AutoCAD по данным съёмки.

инструмент «быстрый профиль»:

выбираем (или рисуем) полилинию, настраиваем необходимые параметры построения профиля:

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

AutoLISP и Visual LISP в среде AutoCAD PDF

Посоветуйте книгу друзьям! Друзьям – скидка 10%, вам – рубли

Эта и ещё 2 книги за 299 ₽

Книга является руководством разработчика LSP-, FAS– и VLX-приложений, функционирующих в среде графического процессора AutoCAD версий 2005 и 2006. Содержит полную информацию по языкам AutoLISP и Visual LISP. Освещает вопросы COM-связи с внешними приложениями, программной адаптации интерфейса, создания справочных систем. Впервые на русском языке полностью описаны и пояснены на примерах методы и свойства объектной модели AutoCAD, используемой в технологии ActiveX.

Для программистов и разработчиков приложений в среде AutoCAD.

(Компакт-диск прилагается только к печатному изданию.)

  • Возрастное ограничение: 0+
  • Дата выхода на ЛитРес: 02 июля 2014
  • Дата написания: 2006
  • Объем: 959 стр.
  • ISBN: 5-94157-738-9
  • Общий размер: 6 MB
  • Общее кол-во страниц: 959
  • Размер страницы:
  • Правообладатель: БХВ-Петербург

С этой книгой читают

Отзывы 2

Прекрасная, и наилучшая «Библия»-Энциклопедия для вступивших в секту продвинутых Автокадчиков. У меня такая была давно в живом виде, как только увидела свет, я с ней не расставался! И засыпал, и на кухне.. И сдесь сразу же приобрел, как увидел. Она не устаревающая! Дело в том, что основа объектной модели АвтоКада неизменна. Добавляются только всё новые и новые функции и команды, реже объекты. Но они опираются на незыблемый фундамент классической объектной модели и способов работы с этими объектами. Книга была выпущена на тот момент, когда актуальными были версии AutoCAD 2005 и 2006. Только-только появился такой класс, как реакторы. С помощью неё я, без ложной скромности, стал Гуру Автокада. Можно даже не уметь толком чертить в АвтоКаде, но поняв принцип его строения с помощью этой, без преувеличения, Мега-книги – и всё открывается, как для Нео в Матрице. Но этим надо заболеть, в хорошем смысле. Когда я начал программировать под Автокад на Лиспе– я наконец-то понял, что значит– Любимая Работа. Мне, как Менделееву, во сне интуитивно приходили решения. И в этом заслуга именно этой книги. В ней собрано и очень удобно упорядочено всё то, что ранее было только на сухом английском, и по крупицам. И даже на сегодняшний день она актуальна. Большой поклон автору-первопроходцу Полещуку и его соратникам за колоссальный труд во имя развития САПР в русскоязычной среде!

голоса
Рейтинг статьи
Ссылка на основную публикацию
ВсеИнструменты
Adblock
detector