[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

_____________________________________________________________________________________________________________

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

[Shoorup]

Тогда какие варианты для защиты от удаления из чертежа (блока или набора примитивов, группы)? Как я понимаю нужно вести счетчик количества листов в чертеже, и примитивы надо както обозначить что это лист и по отдельности их удалять не надо. Можно еще анонимные блоки попробовать... но не хочется перемудрить...

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

Делай MINSERT-блок (вопросы защиты чертежей на форуме были).

[Shoorup]

тут под "защитой" понимается не удалить половину листа например. Т.е. чтобы при добавлении например листа программой точно было посчитано что в чертеже 6 листов а не 5,5 А за PICKSTYLE спасибо - учтем. Я уже проверил "блок" из группы на рядовом пользователе - по частям у него удалить не получилось.

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

Я говорю - делаешь MINSERT-блок. Можно даже анонимный. Вставляешь его, меняешь атрибуты. Потом при вставке следующего получаешь все вхождения соответствующих MINSERT-блоков, считываешь оттуда данные.

[Shoorup]

уже тренируюсь создавать группу... но наверно блоки вставлять было бы попроще Но мы же не ищем легких путей.
Пока план такой:
0. делаем кнопку по нажатию на которой выполняется программа по вставке листа в пространство модели
1. Рисую рамку vl-cmdf
2. Заношу нарисованные объекты в группу, присваиваю группе имя, описание.
это уже реализовал
3. при следующем нажатии (как и при первом) проверяем сколько групп с именем (шаблон) уже вставлено.
4. По описанию прибавляем к координатам поправки и вставляем следующие листы
5. создаем видовой экран в пространстве листа и по поправкам координат даем ему размеры + настраиваем лист - это для меня самое сложное наверно будет...

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

Если хочется совсем заморочиться, то вот еще вариант:

1. Создается анонимный блок, содержащий всю рамку. В описание блока (например, в словарь) засовываются данные, позволяющие определить - что это за блок и что он требует дополнительной обработки
2. Блок вставляется как MINSERT с количеством строк и столбцов равным 1
3. Проверяются все вхождения MINSERT-блоков (точнее, анонимных блоков), в описании которых есть данные, определенные в п.1.
4. С блоков считываются данные о номерах листов и общем количестве листов.
5. Вызывается диалог, позволяющий заполнить атрибуты этого самого блока

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

[Shoorup]

Все понял кроме атрибутов. А зачем они? Какбы штамп я не планирую в рамку. А дополнительную информацию в атрибутах хранить мне кажется незачем.
В любом случае доделаю - выложу исходник посмеятся
Программа действительно специфичная... врядли кому пригодится, но я точно уверен, что в наш отдел она очень нужна. У нас 90% чертежей это формат А3. Другие форматы выполняются в специальственных программах где создание видового экрана этого листа не требуется. А те что делаем чертежи могут содержать от 1 до 150 листов А3 в одном чертеже. Создавать руками для каждого листа даже копируя видовой экран это долго. А тут и потренеруюсь и польза будет


Объясните мне пожалуйста вот такую штуку. Почему если поменять первую строку со второй получим разные результаты?

Код:

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

 (vl-cmdf "_.rectang" "Ширина" "1" "" '(20 5) '(415 292))
(vl-cmdf "_.rectang" "Ширина" "0" "" '(0 0)  '(420 297))

[Дима_]

Сообщение от Shoorup Объясните мне пожалуйста вот такую штуку. Почему если поменять первую строку со второй получим разные результаты?

Ищи по слову привязки...

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

http://autolisp.ru/2013/12/19/comman...utre-troubles/

[Shoorup]

Дима_, Кулик Алексей aka kpblc, спасибо! Граблями по лбу получил

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

Касаемо слова "Ширина" в команде: http://autolisp.ru/2010/03/04/localization/

[Shoorup]

Кулик Алексей aka kpblc, я начал тему перечитывать потиху. Правило №1,2 VVA уже учу Но я и так про них знал, просто пользуюсь только локализованым AutoCADом да и программка не планируется за пределы.
Лучше поясните мне плиз как работает osnapcoord на примере. Справку почитал и по форуму тоже полистал. Эту переменную тоже сохраняют зачемто, но я не пойму даже как она работает и на что может повлиять при выполнении lisp.

[Nike]

Уважаемые товарищи программисты! Помогите подправить программку, пожалуйста! Самому ума не хватило

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

Код:

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

 (defun c:widedit (/ aDoc x attent uwd option tag blk bn)
;;;	pBe 11JN2013	;;;
 (vl-load-com)
 (setq aDoc (vla-get-ActiveDocument (vlax-get-acad-object))) 
 (if (and (setq x (car (nentsel "\nSelect attribute: ")))
 	  (eq "ATTRIB" (cdr (assoc 0 (entget x))))
	  (setq attent (vlax-ename->vla-object x))
          (princ (strcat "\nCurrent Width is <" (rtos (vla-get-scalefactor attent) 2)"> "))
    	  (setq uwd (getreal "\nEnter new width:  "))) 
  (progn	          
	(initget "Y N")
	(setq option (cond
	               ((getkword "\nApply width to all Attribute of the same block? [Yes/no] <N>: "))
                       ( "N" ))) 
	(if (eq option "N")
          	(vla-put-scalefactor attent uwd)
                (progn
                  (setq tag (vla-get-tagstring attent))
                  (setq Blk (vla-ObjectIdToObject aDoc
					(vla-get-OwnerId  attent))
                        Bn  (vla-get-effectivename blk))
                  (vlax-for itm (vla-item (vla-get-blocks aDoc) bn)
                    	(if (and (eq (vla-get-objectname itm) "AcDbAttributeDefinition")
                    		 (eq (vla-get-tagstring itm) tag))
                          		(vla-put-scalefactor itm uwd)))
		(vlax-for layout (vla-get-layouts aDoc)
		    (vlax-for i (vla-get-block layout)
		      (if (and
		            (eq (vla-get-objectname i) "AcDbBlockReference")
		            (eq (Vla-get-hasAttributes i) :Vlax-true)
		            (eq (vla-get-effectivename i) bn)
		          )
		        (foreach itm  (vlax-invoke i 'GetAttributes)
		                  (if (eq (vla-get-tagstring itm) tag)
		                      (vla-put-scalefactor itm uwd))
		          	)
		          )
		      	)
		      )
                  )
          )
    )
   (vl-some
         '(lambda (j) (if (null (eval (car j))) (princ (cadr j))
              )) 
         '((x "\n<<None Selected>>")
           (attent "\n<<Selected object not an Attribute>>")
           (uwd "\n<<No Width value>>"))
         )
   )
  (princ)

)

[mankurt]

Подскажите, существует ли способ удалить из selection set, содержащего vla- объекты, какой-либо элемент "начисто", чтобы он позднее не нашелся при обращении к этому selection set?
Я пробовал удалять методом vla-delete, но во модели остается упоминание об объекте. Далее в процессе циклического перебора программа натыкается на удаленный элемент и возвращает ошибку.
Проверить на vlax-erased-p не удается, так как указатель на удаленный элемент selection set нельзя получить.

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

Ничего не понял. Объект физически удаляется или его надо просто "выкинуть" из результата, возвращаемого ssget?

[mankurt]

Сообщение от Кулик Алексей aka kpblc Ничего не понял. Объект физически удаляется или его надо просто "выкинуть" из результата, возвращаемого ssget?

Элементы selection set (бергштрихи-полилинии) проверяются, содержатся ли они внутри замкнутых контуров строений, если содержатся, то удаляются из чертежа физически.
Надо сделать так, чтобы при последующей проверке для других контуров, удаленный бергштрих "не отсвечивал", т.к. в selection set он все равно присутствует.

Selection set формируется методом
(vla-Select berg_ss acSelectionSetAll nil nil filter_code filter_value)

[Дима_]

Сообщение от mankurt Далее в процессе циклического перебора программа натыкается на удаленный элемент и возвращает ошибку.

Скорее это ошибка в алгоритме - объект физически удалили, а ссылку на него оставили - вот и ругается. Из под автолиспа, я предпочитаю не работать напрямую с selectionset а перегнать в список (и если надо - потом обратно), хоть в принципе функция для удаления элемента из коллекции есть - ssdel.
p/s/ проверяйте последовательность команд - скорее всего Вы "попались" на ловушки переменных значений.

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

Кажется, так:

Код:

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

  (vlax-for item berg_ss
    (if (_is-ent-inside bound item)
      (vla-erase item)
      ) ;_ end of if
    )

[Алена92]

Здравствуйте!

Начала (учить '(lisp)), уже не терпиться написать программы, которые сократят количество кликов в разы на моей работе: возник вопрос.

Восстанавливаю 3D из 2D чертежей.
У меня есть штриховка, есть кнопка с коммандой восстановить контур штриховки _.HATCHGENERATEBOUNDARY
Иногда контур приходится редактировать.
Из полученного контура я кнопочкой создаю область (клик по кнопке создать область, затем выбираю контур)
После этого иногда бывает нужно преобразовывать область в поверхность, чтобы можно было обрезать лишнее.
Потом вытягиваю, вращаю и пр.

Собственно вопрос - как передавать полученный из штриховки контур функции автокада по созданию области? А затем область передавать функции по преобразованию в поверхность?

использую (vl-cmdf ...)

Спасибо за помощь!

[Дима_]

Сообщение от Алена92 использую (vl-cmdf ...)

это зря он в понимании простой, но работать с ним сложно (геморно). По основному воросу - попробуй (entlast)