[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

_____________________________________________________________________________________________________________

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

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

ПОпробовал нечто типа

Код:

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

 (setq lst ((LAMBDA( / res ) (vlax-for item(vla-get-layers (vla-get-ActiveDocument(vlax-get-acad-object)))
(setq res (cons (vlax-vla-object->ename item) res)))res)))

Обнаружил прикольный момент: vla-get-name подставляет "?", а (cdr(assoc 2 (entget ...))) - "\U+2205108x4.0". Может, в эту сторону покопаться?

[skkkk]

Алексей, знаешь, я и проверять почему-то сразу даже не стал через (entget), подумал, что раз уж продвинутая объектная модель не умеет кодировки понимать, куда уж там... А вот тебе, бабушка, и автолиспов день!
В общем, не мудрствуя, обнаружилось, что конструкция

Код:

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

 (vla-get-Lock (vla-Item (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object))) (cdr (assoc 8 (entget (car (entsel)))))))

сработала без лишних вопросов. Как всегда спасибо чрезвычайное тебе, Алексей .
Offtop: А вы всё vla-vla-vla...

[gomer]

Сообщение от skkkk А вот тебе, бабушка, и автолиспов день!

а функцию tblsearch не знал да еще и забыл?

[sathalex]

Подскажите, что мне поправить в этом коде, чтоб высота текста была не 3, а 0.3 ? Спасибо.

Код:

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

 (defun c:date_MV( / dat tday tmon tyer strok pt pt1 old_cmd osm *error*) 
 (defun *error* (msg)(princ msg)(setvar "OSMODE" osm)) 
 (setq old_cmd  (getvar "CMDECHO") 
           osm  (getvar "OSMODE")) 
 (setvar "CMDECHO" 0) 
  
 (setq dat (itoa (fix(getvar "CDATE"))) 
      tday (substr dat 7 2) 
      tmon (substr dat 5 2) 
      tyer (substr dat 3 2) 
    strok (strcat "" tday "." tmon "." tyer "") 
        pt (getpoint "\nТочка вставки текста: ") 
 ) 
 (setq pt (list (+(car pt) 1.) (+(cadr pt) 1.))) 
 (setq pt1 (list (+(car pt) 8.) (+(cadr pt) 0.))) 
 (setvar "OSMODE" 0) 
(if (zerop (cdr (assoc 40 (tblsearch "STYLE" (getvar "TEXTSTYLE"))))) 
  (COMMAND "_TEXT" "_j" "_f" pt pt1 3.0 strok) ;_ нулевая высота текста Будет запрос высоты 
  (COMMAND "_TEXT" "_j" "_f" pt pt1 strok)     ;_ фиксированнная высота Запроса не будет 
  );_end of if
 ;;;Высота 3 ===== 
 (setq strok (entget(entlast))) 
 (setq strok (subst (cons 40 3.0)(assoc 40 strok) strok)) 
 (entmod strok) 
 ;;;======  
 (setvar "CMDECHO" old_cmd) 
 (setvar "OSMODE" osm) 
 (princ) 
)

[Vladimir_Sergeevich]

строки 19 и 23.
По идее можно только в 23, ибо там все равно исправит на нужный (cons 40 0.3)

[sathalex]

Сообщение от Vladimir_Sergeevich строки 19 и 23. По идее можно только в 23, ибо там все равно исправит на нужный (cons 40 0.3)

Спасибо. А как бы мне еще сделать чтоб вставлялось не текст, а мтекст?

[skkkk]

Сообщение от sathalex как бы мне еще сделать чтоб вставлялось не текст, а мтекст?

Посмотреть опции команды MTEXT, а лучше -MTEXT, например, здесь и прописать их в тех же строках, начинающихся с (command.... Опции - в кавычках, предваряя знаком подчеркивания (например, "_J"), а переменные (strok) - без кавычек. Возможно, придется чуток поэкспериментировать.

[kurstep]

Кто нибудь сталкивался с тем что при копировании через буфер обмена русского текста в редактор visual lisp иногда вместо символов текста выводятся знаки вопроса. Тут видимо дело в кодировке. Есть ли способ избавиться от этого?

[Сергей812]

Сообщение от kurstep Кто нибудь сталкивался с тем что при копировании через буфер обмена русского текста в редактор visual lisp иногда вместо символов текста выводятся знаки вопроса. Тут видимо дело в кодировке. Есть ли способ избавиться от этого?

перед копированием и в источнике, и в редакторе lisp перейдите на русский.. а потом лишь копируйте... такая же ерунда в редакторе VBA - думаю, поможет)

[Jerald]

Коллеги, не подскажите, как отключить предупреждение системы безопасности при автоподгрузке .lsp?

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

http://adn-cis.org/search.html?query=secure
http://adn-cis.org/acad2016-news.html
http://adn-cis.org/webinar-acad2016-news-report.html

[sathalex]

Сообщение от Jerald как отключить предупреждение системы безопасности при автоподгрузке .lsp?

Вот так...

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

Не советую поступать именно так.

[trushev]

Сообщение от Кулик Алексей aka kpblc Не советую поступать именно так.

А если так:
Включить в "Доверенное местоположение". (Настройки-Файлы). Путь с именем папки, где размещенны lisp-файлы (включая вложенные папки), завершить флешем с троеточием - \...

[mkung]

Удалено

[kacugu]

Offtop: удалил

[kacugu]

Offtop: удалил

[mkung]

Хранится ли в чертеже информация о том, в каком вертикальном приложении он был создан (Electrical, Civil 3D и т.д.)?
Если да - то где и как достать Лиспом?
Заранее благодарен.

[gomer]

Всех с праздничком!

[Neo]

помогите понять идеологию работы со списками. есть список вида (("1" "a" "b") ("1" "c" "d") ("2" "e" "f")), полученный в результате sql запроса. Как получить ассоциативный список вида: (("1" ("a" "b")("c" "d"))("2" ("e" "f"))).