[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

_____________________________________________________________________________________________________________

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

[Michael!]

Спасибо!
Вариант Димы со вставкой и последующим стиранием мне больше всего понравился изза его простоты. да и мне нужно только тексты вставлять так.
Еще раз спасибо всем откликнувшимся.

[Eghor123]

Сообщение от VVA Дальше Tools (Сервис) -> Load text in editor (Загрузить текст в редактор) (или Ctrl+Alt+E)

вот хоть убейте - нет такого. Акад 2012. консоль vlide - хз. как ей пользоваться?

[VVA]

Сообщение от Eghor123 консоль vlide - хз. как ей пользоваться

В интернете достаточно много про это уже написано
Полезности в редакторе VLIDE
Среда Visual LISP

[Eghor123]

VVA, спасибо. будем посмотреть)

[Eghor123]

Основываясь на коде от Кулик Алексей aka kpblc, написал такую вещь. вроде работает. у меня есть вопрос - если я делаю obj локальной переменной, и строку, выделенную синим, пишу без условного оператора if, то команда работает только один раз (как я понял - (vla-get-ActiveSelectionSet actdoc) не может быть выполнено второй раз, после первого выполнения команды). а в чем проблема - я не понимаю...

а вообще - это одно из моих первых творений, и явно далеко не совершенное. так что критика могла бы мне помочь в дальнейшем)))

еще - можно ли в фильтр выбора поставить effectivename, и как это сделать?

Код:

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

(defun c:test ( / actdoc  i n x1 x2 ent1 ent prop value value1)


(vl-load-com)

(setq actdoc (vla-get-activedocument (vlax-get-acad-object)))
(if (not obj) 
    (setq obj (vla-get-ActiveSelectionSet actdoc))
) ;_ end of if
(vla-clear obj)

(vla-selectOnScreen obj
  (vlax-safearray-fill (vlax-make-safearray vlax-vbinteger '(0 . 0)) '(0))
  (vlax-safearray-fill (vlax-make-safearray vlax-vbvariant '(0 . 0)) '("INSERT")))

(setq i -1
      n 1)
(setq n (vla-get-count obj))

(vla-startundomark actdoc) ;_ end of vla-StartUndoMark



(repeat n
        (setq ent (vla-item obj (setq i (1+ i))))

(if (= (vla-get-effectivename ent) "сварка")
    (progn
        (setq x1 (vlax-safearray->list (vlax-variant-value (vla-get-insertionpoint ent))))
        (setq x2 (polar x1 (/ pi 2) 10))


        (setq ent1
                   (vla-mirror ent (vlax-3d-point x1) (vlax-3d-point x2))
        );_ end of setq

       (vla-delete ent)

       (setq prop 
                  (car (vl-remove-if-not
                         '(lambda (x)
                            (= (strcase (vla-get-propertyname x))
                               (strcase "Отраженное состояние2")
                            ) ;_ end of =
                          ) ;_ end of lambda
                          (vlax-safearray->list
                            (vlax-variant-value
                              (vla-getdynamicblockproperties ent1)
                            ) ;_ end of vlax-variant-value
                          ) ;_ end of vlax-safearray->list
                        ) ;_ end of vl-remove-if-not
                  ) ;_ end of car
       ) ;_ end of setq

       (setq value
                   (vlax-variant-value (vla-get-value prop))
       ) ;_ end of setq 

       (if (= value 0)
           (setq value1 1)
           (setq value1 0)
       ) ;_ end of if 

       (vla-put-value prop                                        
                      (vlax-make-variant value1                                     
                                         (vlax-variant-type (vla-get-value prop))  
                      ) ;_ end of vlax-make-variant
       ) ;_ end of vla-put-value

       (vla-update ent1)   
) ;_ end of progn                          
) ;_ end of if
) ;_ end of repeat

(vla-endundomark actdoc)

(princ "\nВсе блоки обработаны")
(princ)
) ;_ end of defun

[VVA]

Сообщение от Eghor123 только один раз (как я понял - (vla-get-ActiveSelectionSet actdoc) не может быть выполнено второй раз, после первого выполнения команды)

почитай тему ssget и vla-get-ActiveSelectionSet особенно пост #7. Может поможет

[Eghor123]

VVA, не помогла. да и шут с ним. через ssget сдалал.

Вот можно ли фильтр по effectivename сделать? чтоб в набор попадали только нужные блоки, а не все??. работает впринципе и так. просто интересно, может еще и понадобится где)

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

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

[Eghor123]

что такое болото?

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

theswamp.org. Для просмотра кодов на этом ресурсе требуется регистрация,

[Eghor123]

так работает

Код:

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

(setq temp (vlax-make-safearray vlax-vbObject '(0 . 2)))
(vlax-safearray-put-element temp 0 arc1)
(vlax-safearray-put-element temp 1 arc2)
(vlax-safearray-put-element temp 2 arc3)

а как сделать так:

Код:

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

(setq temp (vlax-safearray-fill (vlax-make-safearray vlax-vbObject '(0 . 2))

?

[Дима_]

Ну было б не плохо, чтоб ты объянил что нужно-то получить - если vla массив то в твоем случае

Код:

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

 (vlax-safearray-fill (vlax-make-safearray vlax-vbObject '(0 . 2)) (list arc1 arc2 arc3))

[Олег (jr.)]

Сообщение от Eghor123 VVA, не помогла. да и шут с ним. через ssget сдалал. Вот можно ли фильтр по effectivename сделать? чтоб в набор попадали только нужные блоки, а не все??. работает впринципе и так. просто интересно, может еще и понадобится где)

Нет, нельзя
Но можно укоротить путь выбора используя такую маску фильтра:
(ssget (list (cons 0 "insert")(cons 2 "`U*,MyDynamicBlockName"))
обрати внимание в начале стоит наклонная кавычка, а не прямая, U* означает
анонимный блок
Теперь в наборе только твои блоки "MyDynamicBlockName" плюс анонимные,
и остается только по ходу проверить соответствует ли свойство effectivename
имени твоего блока

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

Только, наверное, все же
(ssget (list (cons 0 "insert")(cons 2 "`*U*,MyDynamicBlockName"))
??

[VVA]

Сообщение от Олег (jr.) Нет, нельзя Но можно укоротить путь выбора используя такую маску фильтра: (ssget (list (cons 0 "insert")(cons 2 "`U*,MyDynamicBlockName")) обрати внимание в начале стоит наклонная кавычка, а не прямая, U* означает анонимный блок Теперь в наборе только твои блоки "MyDynamicBlockName" плюс анонимные, и остается только по ходу проверить соответствует ли свойство effectivename имени твоего блока

Чистым ssget см. #1730, а с небольшой добавочкой можно
Пример вызова

Код:

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

 (SSSETFIRST nil (GetBlockSelection "EFFECTIVE_BLOCK_NAME"))
;;;Где EFFECTIVE_BLOCK_NAME - имя блока

Код:

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

(defun GetBlockSelection ( name )
    (ssget "_X"
        (list
           '(0 . "INSERT")
            (cons 2
                (apply 'strcat
                    (cons name
                        (mapcar
                            (function (lambda ( x ) (strcat ",`" x)))
                            (LM:GetAnonymousReferences name)
                        )
                    )
                )
            )
        )
    )
)

;;--------------=={ Get Anonymous References }==--------------;;
;;                                                            ;;
;;  Returns the names of all anonymous references of a block. ;;
;;------------------------------------------------------------;;
;;  Author: Lee Mac, Copyright © 2011 - www.lee-mac.com       ;;
;;------------------------------------------------------------;;
;;  Arguments:                                                ;;
;;  name - block name for which to return anon. references    ;;
;;------------------------------------------------------------;;
;;  Returns:  List of Anonymous Block names, else nil if none ;;
;;------------------------------------------------------------;;

(defun LM:GetAnonymousReferences ( name / ano def lst rec ref )
    (setq name (strcase name))
    (while (setq def (tblnext "BLOCK" (null def)))
        (if
            (and
                (= 1 (logand 1 (cdr (assoc 70 def))))
                (setq rec
                    (entget
                        (cdr
                            (assoc 330
                                (entget
                                    (tblobjname "BLOCK"
                                        (setq ano (cdr (assoc 2 def)))
                                    )
                                )
                            )
                        )
                    )
                )
            )
            (while
                (and
                    (not (member ano lst))
                    (setq ref (assoc 331 rec))
                )
                (if
                    (and
                        (entget (cdr ref))
                        (eq name (strcase (LM:EffectiveName (cdr ref))))
                    )
                    (setq lst (cons ano lst))
                )
                (setq rec (cdr (member (assoc 331 rec) rec)))
            )
        )
    )
    (reverse lst)
)
                        
;;----------------=={ Effective Block Name }==----------------;;
;;                                                            ;;
;;  Returns the effective name of a block.                    ;;
;;------------------------------------------------------------;;
;;  Author: Lee Mac, Copyright © 2011 - www.lee-mac.com       ;;
;;------------------------------------------------------------;;
;;  Arguments:                                                ;;
;;  blockentity - Block Reference Entity name                 ;;
;;------------------------------------------------------------;;
;;  Returns:  True block name as per the block definition     ;;
;;------------------------------------------------------------;;

(defun LM:EffectiveName ( blockentity / name repbtag )
    (if (wcmatch (setq name (cdr (assoc 2 (entget blockentity)))) "`**")
        (if
            (and
                (setq repbtag
                    (cdadr
                        (assoc -3
                            (entget
                                (cdr
                                    (assoc 330
                                        (entget (tblobjname "BLOCK" name))
                                    )
                                )
                               '("AcDbBlockRepBTag")
                            )
                        )
                    )
                )
                (setq repbtag (handent (cdr (assoc 1005 repbtag))))
            )
            (setq name (cdr (assoc 2 (entget repbtag))))
        )
    )
    name
)

[Eghor123]

Дима_, ну да. создать vla массив и заполнить его. не хватает мне знаний пока. я первый код написал с месяц назад всего.
спасибо работает.

VVA, что значит преффикс LM: ?

[VVA]

Сообщение от Eghor123 VVA, что значит преффикс LM: ?

Lee Mac

[La Persona]

Доброго времени суток! Дабы не захламлять форум лишней темой, спрошу тут.
Необходимо создать несколько списков:

Код:

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

 
(setq list_1 (list coord_ku_1 measure_num_1)
      list_2 (list coord_ku_2 measure_num_2)
      .......
      list_n (list coord_ku_n measure_num_n)
)

Проблема в том, что заранее число n неизвестно, оно задается непосредственно в начале программы через диалоговое окно DCL. Как создать n-ное количество списков с однотипными именами "list_n"?

[Дима_]

Сообщение от La Persona Как создать n-ное количество массивов с однотипными именами "list_n"

Поверьте на слово подход Вы пытаетесь "неверный" прикрутить - не надо плодить однотипные переменные - складывайте все "одинаковое" в список - причем если обрабатывать все равно все - то в простой, если выборочно - то в ассоциативный, лучше по уникальному ключу.

[La Persona]

Сообщение от Дима_ Поверьте на слово подход Вы пытаетесь "неверный" прикрутить - не надо плодить однотипные переменные - складывайте все "одинаковое" в список - причем если обрабатывать все равно все - то в простой, если выборочно - то в ассоциативный, лучше по уникальному ключу.

Спасибо за хорошую идею ) Как-то не сообразил сам