[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

_____________________________________________________________________________________________________________

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

[Ingpro]

Сообщение от koMon (vla-put-activedimstyle (vla-get-activedocument (vlax-get-acad-object)) (vla-item (vla-get-dimstyles (vla-get-activedocument (vlax-get-acad-object))) "_01_100" ) )

Yes, that's what need! koMon, thanks!
А можно это сделать с помощью commаnd?
(setvar "DIMSTYLE" "_01_100"); не устанавливает!, только выводит имя текущего размерного стиля

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

А зачем команда, если программно работает?

[Ingpro]

Сообщение от Кулик Алексей aka kpblc А зачем команда, если программно работает?

У меня есть лисп

Код:

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

 (defun C:Syst_Var ( ) ; установки System Variable 
(vl-load-com) 
(setvar "celweight" -1) 
(setvar "CELTYPE" "bylayer") 
(setvar "cecolor" "bylayer")
(setvar 'textsize 25)
............................
............................

Хотелось бы туда добавить строку в таком стиле для DIMSTYLE...
А код из поста #4900 можно добавить в чистом виде или нужны дополнительные установки?

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

1. Да, можно
2. В твоем лиспе как минимум нет меток начала / конца отмены
3. Сравни свои несколько штук setvar'ов, и, к примеру:

Код:

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

 (foreach item 
  '(("celweight" . -1)
    ("celtype" . "ByLayer")
    ("cecolor" . "ByLayer")
    ("textsixe" . 25.)
    ("clayer" . "0")
   )
  (setvar (car item) (cdr item))
)

----- добавлено через 39 сек. -----
Если что - такое форматирование выдала VSCode + AutoLisp Extension

[Ingpro]

Сообщение от Кулик Алексей aka kpblc 2. В твоем лиспе как минимум нет меток начала / конца отмены

это не понятно...

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

Сообщение от Ingpro это не понятно...

https://autolisp.ru/2009/09/20/howto_undo/

[Ingpro]

В этом коде точка вставки текста уходит в начало ПСК, а мне нужно в указанную точку, что нужно исправить, please

Код:

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

 (defun c:count-insert-txt-WP ()
  (setq pl (car (entsel "\nВыберите границу (полилинию): ")))
  (if pl
    (progn
      (setq points (mapcar 'cdr
                           (vl-remove-if-not
                             '(lambda (x) (= (car x) 10))
                             (entget pl)
                           )
                  )
      )
      (setq count (sslength (ssget "_wp" points)))

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

          (entmakex
        (list
         '(0 . "TEXT")                     
         (cons 10 pt)                     
         '(40 . 250.0)                     
         '(7 . "STANDARD")                 
         (cons 1 (strcat (itoa count)))    
         '(50 . 0.0)                       
         '(71 . 0)                         
         '(72 . 1)                        
         '(73 . 0)                         
        )
      )

        (prompt (strcat "\nНайдено объектов: " (itoa count)))
    )
    (prompt "\nНе выбрана полилиния.")
  )
  (princ)
)

или можно как-то поэлегантнее с vla?

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

DXF Reference + https://autolisp.ru/2010/04/06/text-...trib-entities/

[Ingpro]

Чё-то не улавливаю суть, с точкой вставки в указанную точку?..
dxf text 10 First alignment point (in OCS) DXF: X value; APP: 3D point
надо изменить эту строку (cons 10 pt)?
или добавить (cons 11 ...), а чего туда писать?

[koMon]

(entmakex
(list
'(0 . "TEXT")
(cons 10 (trans pt 1 0))
'(40 . 250.0)
'(7 . "STANDARD")
(cons 1 (itoa count))
'(50 . 0.0)
; '(71 . 0)
; '(72 . 1)
; '(73 . 0)
)
)

[Ingpro]

Сообщение от koMon (entmakex (list '(0 . "TEXT") (cons 10 (trans pt 1 0)) '(40 . 250.0) '(7 . "STANDARD") (cons 1 (itoa count)) '(50 . 0.0) ; '(71 . 0) ; '(72 . 1) ; '(73 . 0) ) )

Yes! Вставляет текст в указанную точку!
"Вызывает антирес
И такой ишо разрез:"
где про это красиво написано, что эта строка должна выглядеть именно так (cons 10 (trans pt 1 0)?

[name02]

Сообщение от Ingpro где про это красиво написано, что эта строка должна выглядеть именно так (cons 10 (trans pt 1 0)?

Про то, что группа 10 - DXF Reference для объектов типа TEXT
(trans pt 1 0) - преобразование координат - см. справку по функции

[Ingpro]

А может кто-нибудь попробовать запустить у себя код из поста #4907?
В блокноте нормально отображается, а в командной строке и в подсказках на экране вот такая фигнематика:

Выберите границу (полилинию):
Укажите точку для вставки текста:
Найдено объектов:

Выберите границу (полилинию):
Укажите точку для вставки текста:
Найдено объектов:

Кодировка UTF-8
пробы с другими кодировками ничего не дают, что можно ещё попробовать???
Другие коды нормально отображаются...

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

Да гидрит твою налево!...

Сообщение от Ingpro Кодировка UTF-8

А должна быть ANSI, сколько раз уж говорить-то!

Сообщение от Ingpro пробы с другими кодировками ничего не дают, что можно ещё попробовать???

Либо повторно скопировать код и сохранить в кодировке ANSI, либо заменить кодировку. в 99% случаев срабатывает технология: открыть, выделить все, скопировать, сменить кодировку, вставить, сохранить

[Ingpro]

Сообщение от Кулик Алексей aka kpblc Либо повторно скопировать код и сохранить в кодировке ANSI, либо заменить кодировку. в 99% случаев срабатывает технология: открыть, выделить все, скопировать, сменить кодировку, вставить, сохранить

Не-а
Если ANSI в блокноте, то нормальный вид превращается в Выберите границу (полилинию):

Если по аглицки, то understand...
Select the contour (polyline:
Specify a point to insert the text:
Objects found:
Но вопрос про кодировку завис...

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

Ты внимательно прочитал? Скопировать нормальный вид, сменить кодировку, вставить поверх. В Notepad++ прекрасно работает.

[Ingpro]

Сообщение от Кулик Алексей aka kpblc Скопировать нормальный вид, сменить кодировку, вставить поверх. В Notepad++ прекрасно работает.

А в AutoCADе после этого пробовали?
Выбираю ANSI в блокноте и нормальные слова превращаются в ... смысл это копировать?

[name02]

Так надо преобразовать в ANSI

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

Сообщение от Ingpro А в AutoCADе после этого пробовали? Выбираю ANSI в блокноте и нормальные слова превращаются в ... смысл это копировать?

Пробовал, работает.

[Ingpro]

Сообщение от name02 Так надо преобразовать в ANSI

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