[Мих]

Есть ли возможность создав в Excel таблицу с заданными параметрами динамических блоков импортировать значения в чертёж. Примерно так-есть блок А с динамическим параметром "длина" в чертеже куча таких А с параметром "длина" по умолчанию- при импорте данных "длинам" назначаются соответствующие значения из экселевской таблички.

[Дима_]

Можно. Как импортировать данные из excel - на форуме тем 50, примерно столько-же, по установке параметров дин. блоков.

[Мих]

Интересует решение конкретной задачи описанной в посте. Если можно ссылку?

[Олег (jr.)]

Можешь попробовать для начала, значения длин в столбце С
Библиотеку скачай отсюда:
http://forum.dwg.ru/showpost.php?p=8...postcount=1857
и загрузи ее перед выполнением

Код:

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

(defun C:XLDB(/ *error* adoc axss blockdata blkobj fname prop sset value x xlapp xlbook xlbooks xlsheet xlsheets)
  (defun *error* (msg)
    (cond ((not msg))
	  ((vl-position
	     msg
	     '("Function cancelled" "quit / exit abort" "console break")
	   )
	  )
	  ((princ (strcat "\nXLDB Command Error: " msg)))
    )
                
    (princ)
  )

;; by Peter Jamtgaard
  
;; Getting and putting the dynamic property values.

(defun GetDynamicProperties (objSelection lstProperties
                             /
                             ;|lstProperties|;
                             X
                            )
 (if (and (wcmatch (vla-get-objectname objSelection)
"AcDbBlockReference,AcDbMInsertBlock")
          (vlax-property-available-p objSelection "IsDynamicBlock")
          (= (vla-get-IsDynamicBlock objSelection) :vlax-true)
          (setq lstProperties (errortrap  '(vlax-safearray->list
                                            (variant-value

(vla-GetDynamicBlockProperties objSelection)
                                            )
                                           )
                              )
          )
     )
  (mapcar '(lambda (x)(list (vla-get-propertyname X) (vlax-get X
"value"))) lstProperties)
 )
)
  
  
(defun SetDbProp( block prop value)
  (foreach pr
	    (vlax-invoke block 'GetDynamicBlockProperties)
    (if (eq prop (vla-get-propertyname pr))
(errortrap  '(vla-put-value pr
              (vlax-make-variant value (vlax-variant-type (vla-get-value pr)))
            )
                              )
      
;;;    (vla-put-value pr
;;;              (vlax-make-variant value (vlax-variant-type (vla-get-value pr)))
;;;            )
    )
)
  )


    
(defun ErrorTrap (symFunction / objError result)  (if
(vl-catch-all-error-p
      (setq objError (vl-catch-all-apply
                     '(lambda (X)(set X (eval symFunction)))
                      (list 'result))))
  nil
  (if result result 'T)
 )
)
  

;; ---------------------------- * main part *  --------------------------;;
  
 (setvar "cmdecho" 0)
  
;| go to Excel |;
    (if	(setq fname (getfiled "Select or enter Excel file" "" "xls;xlsx" 16))

      (progn

	(setq xlapp (xlgetapp))

	(setq xlbooks (xlgetbooks xlapp))

	(setq xlbook (xlopenbook xlbooks fname))

	(setq xlbook (xlgetactivebook xlapp))

	(_set xlapp 'visible :vlax-true)

	(xlshout xlapp :vlax-false)

	(setq xlsheets (xlgetsheets xlbook))

	(setq xlsheet (xlgetsheet xlsheets 1))

	(setq xlsheet (xlactivate xlsheet))

	(setq blockdata (xlreadrange xlapp "A1:C12" nil nil nil))

	(xlshout xlapp :vlax-true)

	(xlbookclose xlbook nil)

	(xlquit xlapp)

	(xlcleanup
	  
	  (list  xlsheet xlsheets xlbook xlbooks xlapp))

	)
      
      )

  ;;------------------------------- go to Acad ------------------------------------;;

  
  (or adoc (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (princ "\nSelect Blocks to be updated: ")
(if (and (setq sset (ssget (list (cons 0 "insert"))))
	 (setq axss (vl-remove-if 'listp (mapcar 'cadr (ssnamex sset))))
	 )
  (progn
    (setq axss (mapcar '(lambda(x) (vlax-ename->vla-object x)) axss))
    (setq n 0)
    (foreach blkobj axss
    (if
      (GetDynamicProperties blkobj "Äëèíà")
      (progn
	
      (SetDbProp blkobj "Äëèíà" (caddr (nth n blockdata)));<-- значения длин в столбце "C"

      (setq n (1+ n))
       )
    )
  )
    )
  )
 
  (princ)
  )

~'o'~

[Мих]

Уважаемый Олег (jr.) , спасибо за участие, и решение вопроса. Не затруднит ли описать пошагово порядок действий?

[Олег (jr.)]

Сообщение от Мих спасибо за участие, и решение вопроса. Не затруднит ли описать пошагово порядок действий?

Извини, нет времени, разберись сам

[VVA]

Основная тема
Как на Lisp получить достук к операциям поиска, а также иметь возможность их изменять
Итоги
Программа заполнения Lookup-a динамических свойств блока из данных таблицы Excel
Программа для переписывания данных из Lookup-a в Excel

[Мих]

Это Lookup. Не то.

Олег (jr.) разобрался спасибо...