[GaD200900]

доступны в лиспе все параметры объекта - типа блок (но просто блок)
и имеется в виду содержащий один примитив
в динамическом не ясно как добраться до параметров блока

[VVA]

Сообщение от GaD200900 не ясно как добраться до параметров блока

1. подсчет динамических блоков там описана функция GetDynamicBlockPropertyList
2. LISP. Изменение свойств(а) динамических блоков.
3. Dynamic Block Functions

[GaD200900]

Спасибо, еще не проснулся, все в порядке но изменить свойство не могу

[VVA]

чтобы разговор был предметным,
нужно показать (приложить) блок

[Kirill_Ja]

Ого какая старая тема))

Есть дин. блок. Надо поменять ему программно Расстояние2 и угол.
Не разобрался в коде, приведенном выше.
Блок приложил

[VVA]

Kirill_Ja,

Код:

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

(defun SetDynamicBlockPropertyNameValue ( block prop value )

  ;;  Modifies the value of a Dynamic Block Property            ;;
;;------------------------------------------------------------;;
;;  Author: Lee Mac, Copyright © 2010 - www.lee-mac.com       ;;
;;------------------------------------------------------------;;
;;  Arguments:                                                ;;
;;  block - VLA Dynamic Block Reference Object                ;;
;;  prop  - Dynamic Block Property Name                       ;;
;;  value - New value for Property                            ;;
;;------------------------------------------------------------;;
;;  Returns: Value property was set to, else nil              ;;
;;------------------------------------------------------------;;
  
  ;; © Lee Mac 2010
  (vl-some
    (function
      (lambda ( _prop )
        (if (eq (strcase prop)(strcase (vla-get-propertyname _prop)))
          (progn
            (vla-put-value _prop
              (vlax-make-variant value
                (vlax-variant-type (vla-get-value _prop))
              )
            )
            value
          )
        )
      )
    )
    (vlax-invoke block 'GetDynamicBlockProperties)
  )
)
;;;Ф-ция переводит градусы в радианы
;;;( dtr a)
(defun DTR (a)(* pi (/ a 180.0)))

;;;Ф-ция переводит радианы в градусы
;;;( R2D a)
(defun RTD (a)(/ (* a 180.0) pi))

(defun C:TEST( / blk)
(vl-load-com)
(and
  (setq blk(car(entsel"\Select block")))
  (setq blk (vlax-ename->vla-object blk))
  (SetDynamicBlockPropertyNameValue blk "Расстояние2" 30)
  (SetDynamicBlockPropertyNameValue blk "Угол" (dtr 45))
  )
  )
(princ "\nДля примера набери команду TEST в командной строке")(princ)

[Kirill_Ja]

Здорово! Работает))

Спасибо. Постараюсь теперь разобраться как))

[wepp]

Сообщение от VVA Kirill_Ja, Код: [Выделить все] (defun SetDynamicBlockPropertyNameValue ( block prop value ) ;; Modifies the value of a Dynamic Block Property ;; ;;------------------------------------------------------------;; ;; Author: Lee Mac, Copyright © 2010 - www.lee-mac.com ;; ;;------------------------------------------------------------;; ;; Arguments: ;; ;; block - VLA Dynamic Block Reference Object ;; ;; prop - Dynamic Block Property Name ;; ;; value - New value for Property ;; ;;------------------------------------------------------------;; ;; Returns: Value property was set to, else nil ;; ;;------------------------------------------------------------;; (princ "\nДля примера набери команду TEST в командной строке")(princ)

Привет от археологов! Наконец-то нашёл работающий код для замены свойства блока. Под свои свойства уже поменял, но вот никак не могу избавиться от запроса блока. Попробовал выдергивать из других лиспов, но знаний не хватило. Хотелось приспособить к работе с командной строкой, чтобы впоследствии использовать со скриптами. Имя блока заранее известно, нужен формат "команда имя_блока". Кто-нибудь может помочь?

[Сергей812]

если идет запрос примитива в пространстве чертежа - то ищите функции типа "entsel" ("GetEntity" в случае ActiveX) в коде

[VVA]

Сообщение от wepp Имя блока заранее известно, нужен формат "команда имя_блока".

Динамические свойства меняются в конкретном вхождении блока. Ну и что, что имя заранее известно. Или у тебя в чертеже блок с конкретным именем вставлен только один раз?

[wepp]

Сообщение от Сергей812 если идет запрос примитива в пространстве чертежа - то ищите функции типа "entsel" ("GetEntity" в случае ActiveX) в коде

В существующем-то коде я его нашёл:

Код:

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

 (defun C:TEST( / blk)
(vl-load-com)
(and
  (setq blk(car(entsel"\Select block")))
  (setq blk (vlax-ename->vla-object blk))

Но вот на что его заменить, чтобы запрос был по имени блока - не нашёл.

Сообщение от VVA Динамические свойства меняются в конкретном вхождении блока. Ну и что, что имя заранее известно. Или у тебя в чертеже блок с конкретным именем вставлен только один раз?

Да, вставлен один раз. Впрочем, это блок формата листа, в перспективе может быть вставлен и на нескольких вкладках листов. Так что нужен код, который менял бы параметр во всех вхождениях блока в чертеже с этим именем.


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

Код:

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

 (defun myModifyBk ( lstProp / ss index cnt oBkRef oProps i j oSBReferenceProperty)
	(vl-load-com)
	(SETQ ss (SSGET "_L"))
	(setq index 0
	      cnt (sslength ss)
	)
	
	(while (< index cnt)
		(setq e (ssname ss index))
		(setq oBkRef (vlax-ename->vla-object e))
    
		(setq oProps (vlax-variant-value (vla-GetDynamicBlockProperties oBkRef)))

		(setq i (vlax-safearray-get-l-bound oProps 1))
		(while (<= i (vlax-safearray-get-u-bound oProps 1))
			(setq oSBReferenceProperty (vlax-safearray-get-element oProps i))
			(print (strcat (vla-get-PropertyName oSBReferenceProperty) "="))
			(princ (vlax-variant-value (vla-get-value oSBReferenceProperty)))
			(setq i (1+ i))
		)

		(setq j 0)
		(while (< j (length lstProp))
			(setq sProp (strcase (nth j lstProp)))
			(setPropValue oProps sProp (nth (+ 1 j) lstProp))
			(setq j (+ 2 j))
		) ;while < j (length lstProp)
		
		(setq index (1+ index))
	) ;while < index cnt


	(princ)
)

(defun setPropValue (oProps sProp Val / i oSBReferenceProperty sPName iFound)
	(setq i (vlax-safearray-get-l-bound oProps 1))
	(setq iFound 0)
	(while (and (<= i (vlax-safearray-get-u-bound oProps 1)) (= iFound 0))
		(setq oSBReferenceProperty (vlax-safearray-get-element oProps i))
		(setq sPName (vla-get-PropertyName oSBReferenceProperty))
		(if (= (strcase sPName) sProp)
			(progn
				(print (strcat "Old value of " sPName "="))
				(princ (vlax-variant-value (vla-get-value oSBReferenceProperty)))
				(vla-put-value oSBReferenceProperty 
					(vlax-make-variant Val
						(vlax-variant-type (vla-get-value oSBReferenceProperty))
					)
				)
				(print "New value=")
				(princ (vlax-variant-value (vla-get-value oSBReferenceProperty)))
				(setq iFound 1)
			)
		)

		(setq i (1+ i))
	)
	(princ)
)

;;;;DTR converts degrees to radians. 
(defun dtr (a)
	(* pi (/ a 180.0)) 
) 

;;RTD converts radians to degrees. 
(defun rtd (a)
	(/ (* a 180.0) pi) 
)
(myModifyBk (list "DynamicBlockParmatername" DynamicBlockValue))

[Сергей812]

VVA написал же выше - что работать надо с конкретной вставкой блока. Далее в коде

Код:

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

 (setq blk(car(entsel"\Select block"))) 
(setq blk (vlax-ename->vla-object blk)) 

вот как раз получаете конкретный объект-вставку блока. Соответственно, если хотите заменить на работу через имя блока на листах, то нужно сделать внешний цикл по листам, там перебирать во втором вложенном цикле коллекцию вставок блоков (не забываем про эффективное имя для динблоков), сравнивать каждую вставку на совпадение с указанным именем блока. И если совпало, то это будет как раз тот blk - который надо "скормить" коду, идущему после запроса блока у пользователя. А запрос блока исключить из кода.

[wepp]

Сообщение от Сергей812 VVA написал же выше - что работать надо с конкретной вставкой блока.

Он добавил потом "или", вот я и подумал, что можно обойтись без конкретной вставки.

Сообщение от Сергей812 Далее в коде Код: [Выделить все] (setq blk(car(entsel"\Select block"))) (setq blk (vlax-ename->vla-object blk))

Я уже после отправки сообщения увидел, что тема в разделе "Программирование"..=) Смутило, что выше было готовое решение, а не просто описание функций. Хотя вообще, я написал:

Попробовал выдергивать из других лиспов, но знаний не хватило.

Так что спасибо за информацию, но применить её не получится..
Offtop: Надо-надо уже садится и изучать лисп..

[Сергей812]

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

----- добавлено через ~15 мин. -----
рекомендую книгу "AutoLISP и Visual LISP в среде AutoCAD", по ней находите нужную функцию- а затем в инете примеры использования. В том же озоне она сейчас около 400р всего + доставка

[VVA]

Сообщение от wepp Но вот на что его заменить, чтобы запрос был по имени блока - не нашёл.

Сообщение от wepp Да, вставлен один раз. Впрочем, это блок формата листа, в перспективе может быть вставлен и на нескольких вкладках листов. Так что нужен код, который менял бы параметр во всех вхождениях блока в чертеже с этим именем.

Код:

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

(defun C:TEST1( / blk blk_list bname)
(vl-load-com)
  (setq bname "2_2_ЛЭП");_имя блока

(and
  (setq blk_list (dyn_block_list bname))
  (foreach blk blk_list
    (SetDynamicBlockPropertyNameValue blk "Расстояние2" 30)
    (SetDynamicBlockPropertyNameValue blk "Угол" (dtr 45))
    )
  )
  )
(defun dyn_block_list (bname)
  ;;; bname - имя блока
       (vl-remove-if-not
	 '(lambda (b1)
	    (eq (strcase (vla-get-EffectiveName b1)) (strcase bname))
	  ) ;_ конец lambda
	 (mapcar
	   'vlax-ename->vla-object
	   (mapcar
	     'cadr
	     (ssnamex
	       (ssget "_X"
		      (list (cons 0 "INSERT")
			    (cons 2 (strcat bname ",`*U*"))
		      ) ;_ конец list
	       ) ;_ конец ssget
	     ) ;_ конец ssnamex
	   ) ;_ конец mapcar
	 ) ;_ конец mapcar
       ) ;_ конец vl-remove-if-not
)
(defun SetDynamicBlockPropertyNameValue ( block prop value )

  ;;  Modifies the value of a Dynamic Block Property            ;;
;;------------------------------------------------------------;;
;;  Author: Lee Mac, Copyright © 2010 - www.lee-mac.com       ;;
;;------------------------------------------------------------;;
;;  Arguments:                                                ;;
;;  block - VLA Dynamic Block Reference Object                ;;
;;  prop  - Dynamic Block Property Name                       ;;
;;  value - New value for Property                            ;;
;;------------------------------------------------------------;;
;;  Returns: Value property was set to, else nil              ;;
;;------------------------------------------------------------;;
  
  ;; © Lee Mac 2010
  (vl-some
    (function
      (lambda ( _prop )
        (if (eq (strcase prop)(strcase (vla-get-propertyname _prop)))
          (progn
            (vla-put-value _prop
              (vlax-make-variant value
                (vlax-variant-type (vla-get-value _prop))
              )
            )
            value
          )
        )
      )
    )
    (vlax-invoke block 'GetDynamicBlockProperties)
  )
)
;;;Ф-ция переводит градусы в радианы
;;;( dtr a)
(defun DTR (a)(* pi (/ a 180.0)))

;;;Ф-ция переводит радианы в градусы
;;;( R2D a)
(defun RTD (a)(/ (* a 180.0) pi))
(princ "\nДля примера набери команду TEST1 в командной строке")(princ)

Пример dwg файла см. в #7 ЛЭП.dwg

[wepp]

Сообщение от Сергей812 автокад не умеет отображать напрямую динблоки, он сначала создает анонимное определение блока (с звездочкой) в выбранном пользователем варианте - а потом только делает вставку этого анонимного определения блока в чертеж. Т.е. за изменением параметра динамического блока на чертеже скрыто еще множество операций.

Вроде понятно, динблоки же появились позже обычных, поэтому такая реализация (для обратной совместимости?). Я тут видел анонимное определение блока, у которого были сохранены в свойствах определенные характеристики от вертикального приложения (Plant). Правда, сохранялись они только в рамках Plant, в голом Акаде пропадали.

Offtop:

Сообщение от Сергей812 рекомендую книгу "AutoLISP и Visual LISP в среде AutoCAD", по ней находите нужную функцию- а затем в инете примеры использования.

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

Сообщение от VVA Пример dwg файла см. в #7 ЛЭП.dwg

Всё сработало, спасибо!
Offtop: Вот глядя на то, как многим знатокам данного форума легко удаётся решать пользовательские задачки, всё ближе подхожу к самостоятельному освоению.