[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

_____________________________________________________________________________________________________________

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

[Дима_]

Только не номера, а индекса - это важное отличие, итератор может быть индексирован через любые типы данных.

[Сергей812]

SetQ , Дима_ Спасибо. Примерно я догадывался по Item, что это доступ к коллекции. Но терзали смутные сомнения - нет ли какого-то приведения типов или еще подобного.

[Vladimir_Sergeevich]

Сообщение от wahir какой книге удобно сведены в таблицы dxf-коды примитивов с описаниями возможных значений?

по моему, в родной справке все хорошо описано (по крайней мере в той, что идет с акад 2010)

Сообщение от wahir конкретно сейчас меня интересует создание размеров.

Код:

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

 
(defun create-dim-rotated (pv pn pk adim / )
(entmakex (list
    (cons 0 "DIMENSION") ;*
    (cons 100 "AcDbEntity") ;*
    (cons 100 "AcDbDimension") ;*
    (cons 10 pv)   
    (cons 70 32) ;*
    (cons 51 adim)
    (cons 3 "2-100")
    (cons 100 "AcDbAlignedDimension") ;*
    (cons 13 pn)
    (cons 14 pk)
    (cons 50 adim)
    (cons 100 "AcDbRotatedDimension") ;*
   )
) ;_ end of entmakex
);end create-dim-rotated

pv pn pk - точки начало конца и положения размерной линии, adim - угол наклона в радианах

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

Это справедливо только при создании выровненного (Aligned) размера...

[Vladimir_Sergeevich]

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

з.ы. вспомнил про один вопрос, не так давно возникал...
Ситуация такая: надо примитиву задать толщину (370 группа). когда она "по слою" entget её вообще не выдает, соответственно subst её найти не может и entmod получает исходный список...
В таком случае надо дописывать проверку наличия данной группы и добавлять её другим способом? (я, что бы долго не думать, пошел через vla-put...)

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

Как материал для размышления (код сперт с "САПР на базе"):

Код:

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

 (defun _kpblc-ent-modify-autoregen (ent bit value ext_regen / ent_list old_dxf new_dxf layer_dxf70)
                                   ;|
*    Функция модификации указанного бита примитива
*    Параметры вызова:
*  entity  - примитив, полученный через (entsel), (entlast) etc
*  bit  - dxf-код, значение которого надо установить
*  value  - новое значение
*  regen  - выполнять или нет регенерацию примитива сразу. t/ nil
*    Примеры вызова:
(_kpblc-ent-modify-autoregen (entlast) 8 "0" t)  ; перенести последний примитив на слой 0
(_kpblc-ent-modify-autoregen (entsel) 62 10 nil)  ; установить выбранному примитиву цвет 10
*    Возвращаемое значение:
*  примитив с модифицированным dxf-списком. Примитив перерисовывается в
* зависимости от значения ключа ext_regen
|;
  (setq ent (_kpblc-conv-ent-to-ename ent))
  (if (not
        (and
          (or
            (= (strcase (cdr (assoc 0 (entget ent))) nil) "STYLE")
            (= (strcase (cdr (assoc 0 (entget ent))) nil) "DIMSTYLE")
            (= (strcase (cdr (assoc 0 (entget ent))) nil) "LAYER")
            ) ;_ end of or 
          (= bit 100)
          ) ;_ end of and 
        ) ;_ end of not 
    (progn
      (setq ent_list (entget ent)
            new_dxf  (cons bit
                           (if (and (= bit 62) (= (type value) 'str))
                             (if (= (strcase value) "BYLAYER")
                               256
                               0
                               ) ;_ end of if 
                             value
                             ) ;_ end of if 
                           ) ;_ end of cons 
            ) ;_ end of setq 
      (if (not (equal new_dxf (setq old_dxf (assoc bit ent_list))))
        (progn
          (entmod (if old_dxf
                    (subst new_dxf old_dxf ent_list)
                    (append ent_list (list new_dxf))
                    ) ;_ end of if 
                  ) ;_ end of entmod
          (if ent_regen
            (entupd ent)
            (redraw ent)
            ) ;_ end of if
          ) ;_ end of progn 
        ) ;_ end of if 
      ) ;_ end of progn 
    ) ;_ end of if 
  ent
  ) ;_ end of defun

Библиотечная функция

Код:

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

 (defun _kpblc-conv-ent-to-ename (ent_value / _lst)
                                ;|
*    Функция преобразования полученного значения в ename
*    Параметры вызова:
*  ent_value  значение, которое надо преобразовать в примитив. Может
*      быть именем примитива, vla-указателем или просто
*      списком.
*      Если не принадлежит ни одному из указанных типов,
*      возвращается nil
*    Примеры вызова:
(_kpblc-conv-ent-to-ename (entlast))
(_kpblc-conv-ent-to-ename (vlax-ename->vla-object (entlast)))
|;
  (cond
    ((= (type ent_value) 'vla-object)
     (vlax-vla-object->ename ent_value)
     )
    ((= (type ent_value) 'ename) ent_value)
    ((and (= (type ent_value) 'str) (handent ent_value) (entget (handent ent_value)))
     (handent ent_value)
     )
    ((and (= (type ent_value) 'str) (handent ent_value) (tblobjname "style" ent_value))
     (tblobjname "style" ent_value)
     )
    ((and (= (type ent_value) 'str) (handent ent_value) (tblobjname "dimstyle" ent_value))
     (tblobjname "dimstyle" ent_value)
     )
    ((and (= (type ent_value) 'str) (handent ent_value) (tblobjname "block" ent_value))
     (tblobjname "block" ent_value)
     )
    ((and (= (type ent_value) 'list) (cdr (assoc -1 ent_value))) (cdr (assoc -1 ent_value)))
    (t nil)
    ) ;_ end of cond
  ) ;_ end of defun

[wahir]

с созданием размеров через entmake вроде разобрался, не смог понять только одно - как выбрать аннотативный масштаб для размера? в dxf-reference не могу нужных кодов найти, вроде перенес максимум значений из заранее созданного размера, но всё равно не выходит.

Код:

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

 (entmake (list
	   '(0 . "DIMENSION")
	   '(100 . "AcDbEntity")
	   '(67 . 0)
	   '(410 . "Model")
	   '(8 . "$Размеры")
	   '(100 . "AcDbDimension")
	   '(280 . 0)
	   (cons 10 (polar '(0.0 0.0 0.0) 1 (- (/ ds 2))))
	   '(70 . 35)
	   '(71 . 5)
	   '(72 . 1)
	   '(210 0.0 0.0 1.0)
	   '(3 . "Annotative$3")
	   '(100 . "AcDbDiametricDimension")
	   (cons 15 (polar '(0.0 0.0 0.0) 1 (/ ds 2)))
	 );end list
);end entmake

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

Голову ломать немного лениво: http://autolisp.ru/2011/03/17/howto-...tyle-or-block/

[wahir]

Сообщение от Кулик Алексей aka kpblc Голову ломать немного лениво: http://autolisp.ru/2011/03/17/howto-...tyle-or-block/

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

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

Создаешь стиль и потом устанавливаешь ему аннотативность, или размер - и потом уже аннотативность для объекта. Какая в принципе разница?

[Сергей812]

Вроде простой вопрос - но не могу понять логики. Вот тестовый код вставки описаний блоков из другого чертежа:

Код:

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

 (defun sys-InsertDescriptionBlock ( aNameBlock aNameSourceFile / )
	; Если в текущем чертеже нет описания данного блока
  	( if (= (tblsearch "BLOCK" aNameBlock) nil)
		( progn
			; Если существует указанный файл с описаниями блоков
	  		( if (/= (findfile aNameSourceFile) nil)
				; Вставляем все определения блоков из указанного файла
		  		( vl-cmdf "_-INSERT" aNameSourceFile )
				( vl-cmdf )
			)
		)
	)
)

почему, несмотря на наличие имитации отмены ввода ( vl-cmdf ) продолжает запрашивать точку вставки ?

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

Offtop: Сто лет уже так не поступал...
Может, дело в отсутствующем progn ?

[skkkk]

Offtop:

Сообщение от Кулик Алексей aka kpblc Offtop: Сто лет уже так не поступал...

Не понял, о чем это ты?

[Сергей812]

Сообщение от Кулик Алексей aka kpblc Offtop: Сто лет уже так не поступал... Может, дело в отсутствующем progn ?

Точно Спасибо большое. Ну только начал изучать Lisp как альтернативу NetApi - поэтому использую те решения, которые понимаю в данный момент )

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

Сообщение от skkkk Offtop: Не понял, о чем это ты?

Я копирую описания блоков через ObjectDBX - как-то мне такой подход больше понравился.

[kakt00z]

а мне больше так нравится :
(setq tmpblk (vla-InsertBlock #modspace (vlax-3d-point '(0 0 0)) $filepath 0.001 0.001 0.001 0))
с последующим удалением

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

В таком случае "тащится" многовато мусора.

[kakt00z]

ну это смотря что в том файле, у меня это вроде темплейта со стилями текста -> размеров, мультилидеров, таблиц, может быть слоев, типов линий и т.п.

[Frigate]

Приветствую!

ПРошу подсказать пути решения.
Если последним объектом в чертеже является блок с атрибутами, к примеру, "AN_1", и его запоминаем по ENTLAST, добавляем новые объекты в чертеж, а потом "вдруг" обнаруживаем появление дополнительных объектов - атрибутов последнего блока ("AN_1"). Как с этим бороться?
Пока придумал такое - вставлять любой текстовый объект, после выполнения программы его удалять.

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

А этот блок вставляется руками или программно? Если программно, то получить указатель именно на него вообще не вопрос.