[swkx]

Вопрос о применении _INSERT поднимался столько раз, что даже неудобно начинать опять, но и пересмотреть все сообщения тоже нереально))
Поэтому напомните, плиз, почему ввод с командной строки
_-insert и (vl-cmdf "_-insert") даёт одинаковые результаты, а
_insert и (vl-cmdf "_insert") разные:в 1-м случае выдается диалоговое окно, во 2-м ввод имени блока и параметров предлагается с ком. строки ?
AutoCAD 2009.

[ShaggyDoc]

Сообщение от swkx ShaggyDoc, Разумеется, приведённый код подразумевает только "правильное" поведение пользователя. Рассматривалась же принципиальная возможность с помощью (vl-cmdf "_insert" ...) добиться нужного результата. Кстати, в вышеупомянутой книге в качестве одного из способов предлагается использовать вставку блока в невидимую зону экрана и затем манипуляции с _CHANGE. Я так и не понял, в чем преимущество этого метода ? Или он как раз и позволяет отследить все телодвижения пользователя ? Или этот метод был актуален только в ранних версиях Автокада и сейчас про него можно забыть ?

Разумеется, с vl-cmdf, которая в отличие от command возвращает результат, цикл можно организовать.

Раньше vl-cmdf не было, приходилось извращаться. С CHANGE нет никакого преимущества, это была вынужденная мера. Не было так же замечательного семейства vl-catch

Ну зачем так категорично - что мешает через grread прорисовывать блок (хоть двухмерный, хоть трехмерный) - по левой кнопке его вставлять (и возращать соответственно ename/vla вставки), а по правой менять (через меню иль еще как) различные параметры (масштаб, угол поворота и пр). По ESC вернуть соответствующий символ (типа nil или 'esc) - для возможности обработки из вне.

Да дурь только наша мешает. Все попроще хотим. По крестьянски. Ну, попробуй сам сделать. Прорисовать через grread реальный блок. Можно с лямбдами и без переменных.

Если ShaggyDoc тоже выскажется и ответит то же самое, то я буду считать, что день прожил не зря

Так я в #26 уже писал - команды работают в текущей ПСК. Это делает их универсальными, в этом их преимущество. Когда не работали в 3D, это было не столь заметно и "командными" методами стали брезговать. Объектные методы, наоборот, требуют точек в МСК.

PS. Кстати, блоки и с отрицательными масштабами и с неравными могут быть.

[swkx]

Большое человеческое спасибо! Не шучу.

Сообщение от ShaggyDoc Все попроще хотим.

Разумеется, и это правильно!

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

Цитирую:

Сообщение от ShaggyDoc >Кулик Алексей aka kpblc Все эти функции вполне нормальные. Но есть "нюансы, значить". 1. 3D и произвольная ПСК обязательны для мультивставки. Проверь, это не больно. 2. Впреди BricsCAD. Что там и как с объектами - не исследовано. Судя по глюкам в самом Автокаде, там будет не лучше. 3. DBX хорош, если есть он. А если нет (Brics со товарищи), то стратегическая функция выпадает.<...>

[swkx]

Другими словами:

«Товарищи, для вставки блоков пользуйтесь командой _INSERT, предназначенной для вставки блоков, герметично упакованной в обёртку из VL-CATH !»

[ShaggyDoc]

Сообщение от swkx Другими словами: «Товарищи, для вставки блоков пользуйтесь командой _INSERT, предназначенной для вставки блоков, герметично упакованной в обёртку из VL-CATH !»

Не совсем так.

Во-первых, тут не все "товарищи". Всякие тута ходют.

Во-вторых, команду надо использовать при интерактивной вставке блоков. Если блоки вставляются программно, без запроса пользовательского ввода, лучше использовать объектный метод vla-insertblock. Разумеется, правильно его используя, т.е. передавая координаты в МСК, а угол поворота в радианах. Объектный метод работает намного быстрее, а программно часто вставляются сразу много блоков - какая-нибудь "штриховка" блоками или разбивка трассы.

Обертка из vl-catch никогда не повредит, но надо избегать её вложенности. Достигается это тем, что она используется в низкоуровневых функциях (вставки блока, любого get-ввода), но очень ограниченно - на уровне программы. Если критичные места защищены, то в программе особо и защищать нечего.

[swkx]

Сообщение от ShaggyDoc Во-вторых, команду надо использовать при интерактивной вставке блоков

Да, конечно, я в данной теме подразумевал исключительно интерактивную вставку.

Сообщение от ShaggyDoc Во-первых, тут не все "товарищи"...

Ну, это ты зря Этом форум (в отличие от SQL.RU, например) отличается исключительной корректностью участников. Пожалуй, могу только одного кадра припомнить, который был крайне удивлён обилием весьма ценных и при этом совершенно бесплатных советов.

[ShaggyDoc]

отличается исключительной корректностью участников

А я не про корректность. Может, тут "судари" есть или "господа". "Панове" заходят.

Я лично предпочитаю - "коллеги" для подобных форумов. Но это шутка была.

[swkx]

Сообщение от ShaggyDoc А я не про корректность.

Да я понял, но если "судари", "господа" и "панове" не требуют к себе именно такого обращения, значит, они нам "товарищи" ! В буквальном понимании

[Nike]

тут еще и "собутыльники" есть

[swkx]

Сообщение от Nike тут еще и "собутыльники" есть

Это даже не обсуждается! "Друзей" не трогать !!

[Дима_]

Сообщение от ShaggyDoc Ну, попробуй сам сделать. Прорисовать через grread реальный блок. Можно с лямбдами и без переменных.

Прошу Вас не давите на больное (лямбды) - это по второй части вопроса, по первой - так пойдет:

Код:

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

(vl-load-com)
(defun my-insert (name)
  ((lambda (f-rec doc)(f-rec name))
   (lambda (name)
     ((lambda (x)
        (vla-endundomark doc)
        (if x
            (f-rec name)
            "Это штатный выход - можно сделать и не по ESC"))
      (progn
       (vla-startundomark doc)
       (vis-ins-bl name 1 1 1 0))))
   (vla-get-activedocument(vlax-get-acad-object))))
  
(defun vis-ins-bl (name x y z ang)
  ((lambda (get-m make-ref model f-rec) (f-rec (get-m) x y z ang 'move))
   (lambda () (vl-catch-all-apply 'grread '(T 8)))
   (lambda (pt-or x y z ang)
     (vla-insertblock model
        (vlax-3d-point ((lambda (pt)
                         ((lambda (os-pt)
                           (if os-pt (trans os-pt 1 0) pt))
                         (osnap pt-or "_end,_mid"))); вот здесь по идее должна формироватся строка на основании привязок - лень искать формат и перемнные - пока забил просто, но суть ясна
                       (trans pt-or 1 0 T)))
                       name x y z ang))
   (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))
   (lambda (key x y z ang action)
     (if (vl-catch-all-error-p key) 
         nil;exit
         (if (and (not (listp (cadr key)))
                  (not (= (car key) 25)))
             (f-rec (get-m) x y z ang action); здесь можно добавить обработку данных с клавиатуры
             (if (= (car key) 5)
                 ((lambda (obj newkey)
                    (vla-delete obj)
                    (cond ((vl-catch-all-error-p newkey) nil);exit
                          ((= action 'move)
                           (f-rec newkey x y z ang action))
                          ((= action 'scale)
                           ((lambda (sc)
                              (f-rec newkey (* x sc) (* y sc) (* z sc) ang action))
                            (if (listp (cadr newkey))
                                (if (> (caadr key)
                                       (caadr newkey))
                                    1.1
                                    0.99)
                                1)))
                          ((= action 'rotate)
                           (f-rec (cons (car newkey) (cdr key))
                                  x y z
                                  (if (listp (cadr newkey)) (angle (cadr key) (cadr newkey)) ang)
                                  action))))
                  (make-ref (cadr key) x y z ang)
                  (get-m))
                 (if (= (car key) 3)
                     (make-ref (cadr key) x y z ang)
                     (f-rec (get-m) x y z ang (cdr (assoc action '((move . scale); здесь можно приукрасить меню, сделать изменение орбиты, привязок и всего прочего
                                                                   (scale . rotate)
                                                                   (rotate . move))))))))))))

Про добавление "красивостей" - коментарии в коде. Управление esc - выход (штатный), левая кнопка - вставить блок, правая переключение на изменение размера и угла поворота.
p.s. - сейчас исправил небольшую ошибку (добавил еще 1 trans для правильной привязки видов).

[swkx]

Дима_,
Вполне красиво, но для меня сложно и непонятно
Раз тема не закрылась, решил выложить простой пример, который и побудил её создать:

Код:

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

; Вызов: (test-insblock-multi)
; В текущем чертеже должны быть определены блоки "blok1", "blok2"

(defun test-insblock-multi ()

(setvar "CMDECHO" 0)

(setq filenamedia "dia.dcl"
	  glob-multiinsOK "0"
	  glob-optionOK "0"
	  glob-blokname ""
	  dlg_res 1)

(makedialog filenamedia "Test insblock")

(while (= dlg_res 1)
	(loaddialog filenamedia)
	(if (tblsearch "BLOCK" glob-blokname)
		(cond
			((and (= glob-optionOK "0") (= glob-multiinsOK "0"))

				(if (= dlg_res 1)
				 	(progn
						(princ "\nТочка вставки:")
						(vl-cmdf "_insert" glob-blokname)
					 	(if (vl-cmdf pause)
							(progn
								(vl-cmdf "1" "1")
								(princ "\nУгол поворота:")
								(vl-cmdf pause)
							 	(princ "\n")
							)
						); if
					); progn
				); if

			)

			((and (= glob-optionOK "0") (= glob-multiinsOK "1"))

				(if (= dlg_res 1)
					(progn
						(princ "\nТочка вставки (ESC - прервать):")
						(while
							(vl-cmdf "_insert" glob-blokname pause 1 1 pause)
						)
					); progn
				); if

			)
			
			((= glob-optionOK "1")

				(setq dlg_res 2)

			 	(vl-cmdf "_insert" glob-blokname '(0 0) 1 1 0)
			 	(vl-cmdf "_erase" (entlast) "")
			 	(initdia)
			 	(vl-cmdf "_insert")

			)
		); cond
		(alert (strcat "Блок " glob-blokname " не найден"))
	)
); while

(unload_dialog dcl_id)	

)

(defun loaddialog (filenamedia / )

	(if (< (setq dcl_id (load_dialog filenamedia)) 0) (exit))
	(if (not (new_dialog "dia" dcl_id)) (exit))

	(setq lst (list
				  (list "Блок №1" "blok1")
				  (list "Блок №2" "blok2")
				  (list "Блок №3" "blok3")
			  )
	)

	(start_list "s1")
	(foreach el lst
		(add_list (car el))
	)
	(end_list)
	
	(action_tile "s1"
		(strcat
			"(setq glob-blokname (cadr (nth (atoi $value) lst)))"
			"(set_tile \"descr\" glob-blokname)"
			"(mode_tile \"accept\" 0)"
		)
	)	

	(action_tile "multiins"	
		(strcat
			"(set_tile \"option\" \"0\")"
			"(setq glob-optionOK \"0\")"
			"(setq glob-multiinsOK $value)"
		)
	)

	(action_tile "option"	
		(strcat
			"(set_tile \"multiins\" \"0\")"
			"(setq glob-multiinsOK \"0\")"
			"(setq glob-optionOK $value)"
		)
	)
	
	(action_tile "accept" "(done_dialog 1)")
	(mode_tile "accept" 1)
	
	(action_tile "cancel" "(done_dialog 0)")
	
	(setq dlg_res (start_dialog))

); defun loaddialog

(defun makedialog (filenamedia diacaption /  )
	
	(setq fo (open filenamedia "w"))
		(princ (strcat "dia : dialog { label=\"" diacaption "\";" "\n") fo)

		(princ (strcat ":list_box {key=\"s1\";height=10;width=10;}" "\n") fo)
		(princ (strcat ":edit_box {key=\"descr\";}" "\n") fo)
		(princ (strcat "spacer_1;" "\n") fo)
		(princ (strcat ":toggle { label = \"Мультивставка\"; key = \"multiins\"; value=\"0\";}" "\n") fo)
		(princ (strcat ":toggle { label = \"Задавать все опции\"; key = \"option\"; value=\"0\";}" "\n") fo)
		(princ (strcat "spacer_1;" "\n") fo)
		(princ (strcat "ok_cancel;" "\n") fo)

		(princ (strcat "}" "\n") fo)
	(close fo)  
	
); end defun

Собственно, у меня не получилось добиться повторного вызова стартового диалогового окна при включенной опции "Задавать все опции"

[Дима_]

Сообщение от swkx Вполне красиво, но для меня сложно и непонятно

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

[Лиспер]

Дима_, а если вставка блока производится в листе? И вот еще - попробуй (скажу честно, твой код я не разобрал - знаний мало) сначала повесить блок на курсор, а потом уже запрашивать углы поворота, масштабы и т.п.
И вот еще. Насколько я понял, ты постоянно вставляешь блок - удаляешь блок. Это по меньшей мере опасно: каждое вхождение блока получает уникальный хэндл, количество которых, конечно, велико, но не бесконечно.

[Дима_]

Сообщение от Лиспер Дима_, а если вставка блока производится в листе? И вот еще - попробуй (скажу честно, твой код я не разобрал - знаний мало) сначала повесить блок на курсор, а потом уже запрашивать углы поворота, масштабы и т.п. И вот еще. Насколько я понял, ты постоянно вставляешь блок - удаляешь блок. Это по меньшей мере опасно: каждое вхождение блока получает уникальный хэндл, количество которых, конечно, велико, но не бесконечно.

1. Надо брать активное пространство и "впендюривать" его в место там где определяется модель (ну поленился я).
2. (повесить блок на курсор...) - непонял какие углы - блок всегда на курсоре - щелкаешь правой кнопкой мыши - он маштабируются, еще раз - крутится, далее - по кругу.
3. Ну можно и таскать - тут рекурсия более 20 тыс не даст нарисовать - вылетит по переполнению стека (по моим прикидкам это около 30 минут с учетом что каждую секунду user как автомат калашникова делает десять "дерганий") - "Не выдоишь за день - устанет рука (с)".

[Лиспер]

Дима_, а где это видно, что для масштабирования надо выполнить правый клик? И потом, масштабирование как-то странно производится (ИМХО): непонятно от какой точки отсчиыватется коэффициент; нет (пока нет) возможности ввести точное значение коэффициента. Я не могу снять и предоставить видео, но сам попробуй протестировать свою функцию.

Сообщение от Дима_ рекурсия более 20 тыс не даст нарисовать - вылетит по переполнению стека

Вопрос не в переполнении стека, кстати, а в переполнении счетчика хэндлов. Как только AutoCAD пересекает эту границу, поведение файла становится труднопредсказуемым: может создать блок, но не даст его вставить. Или полилнию не отрисует (причем часть сделает, а часть откажется напрочь). Не, лекарство, конечно есть - _.wblock, но поди объясни это всем и каждому...

[Дима_]

Сообщение от Лиспер Вопрос не в переполнении стека, кстати, а в переполнении счетчика хэндлов.

Я же говорю - их больше чем 20 тыс не будет (а если с практической стороны смотреть - то в разы меньше). Я - там где это возможно и не очень ресурсоемко - предпочитаю "пересоздавать" объекты - а вдуг мы захотим их еще как-то изменять? Привычка это из-за "частенькой" разработки программ для создания чего-либо параметрического - изменились параметры - надо (реакторами или еще как) изменить и объект - если делать редактиование существующего - то как минимум надо писать дополнительную процедуру+ учитывать что там уже "наменяно" до того - разрастется она до безобразия - проще запомнить что создал - старое стереть новое создать - или не миновать ошибок. Допустим создается ящик - есть параметр масштаб - ты его изменил (сделал меньше на 10 процентов), а чтоб сделать обратно - уже надо не на 10 процентов увеличивать т.к. 100-10% = 90, а 90+10%=99 - и это только с одной деталью и одним параметром, а если их много...
P.S. в данном виде можно таскать 1 объект - без проблем, программа демонстрационная (принципиальной возможности сделать - надобавлять, можно чего угодно).

нет (пока нет) возможности ввести точное значение коэффициента.

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

[swkx]

Попробую ещё раз озвучить проблему: пост #52

[Лиспер]

Я бы подумывал об использовании временного выхода из диалога. Вполне реализуемо.
Единственное "но": я бы заменил, наверное, первую функцию на

Код:

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

 (defun test-insblock-multi ()

  (setvar "CMDECHO" 0)

  (setq filenamedia "dia.dcl"
        glob-multiinsok "0"
        glob-optionok "0"
        glob-blokname ""
        dlg_res 1
        ) ;_ end of setq

  (makedialog filenamedia "Test insblock")

  (while (= dlg_res 1)
    (loaddialog filenamedia)
    (if (tblsearch "BLOCK" glob-blokname)
      (cond
        ((and (= glob-optionok "0") (= glob-multiinsok "0"))

         (if (= dlg_res 1)
           (progn
             (princ "\nТочка вставки:")
             (vl-cmdf "_insert" glob-blokname)
             (if (vl-cmdf pause)
               (progn
                 (vl-cmdf "1" "1")
                 (princ "\nУгол поворота:")
                 (vl-cmdf pause)
                 (princ "\n")
                 ) ;_ end of progn
               ) ; if
             ) ; progn
           ) ; if

         )

        ((and (= glob-optionok "0") (= glob-multiinsok "1"))

         (if (= dlg_res 1)
           (progn
             (princ "\nТочка вставки (ESC - прервать):")
             (while
               (vl-cmdf "_insert" glob-blokname pause 1 1 pause)
               ) ;_ end of while
             ) ; progn
           ) ; if

         )

        ((= glob-optionok "1")

         (setq dlg_res 2)

         (vl-cmdf "_insert" glob-blokname '(0 0) 1 1 0)
         (vl-cmdf "_erase" (entlast) "")
         (initdia)
         (vl-cmdf "_insert")
         (while (/= (getvar "cmdactive") 0)
           (command pause)
           ) ;_ end of while
         )
        ) ; cond
      (alert (strcat "Блок " glob-blokname " не найден"))
      ) ;_ end of if
    )   ; while

  (unload_dialog dcl_id)

  )

[swkx]

Черт возьми, всё просто оказалось.
Лиспер, спасибо!

Сообщение от Лиспер Я бы подумывал об использовании временного выхода из диалога.

А вот это я не очень понял. Диалог и так постоянно закрывается и загружается опять. Проясни, плиз.