[ilka_t]

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

[den001]

VBA-решение подойдет? Если да, то пропрошу поподробнее (а то чтой-то давно я не писал ничего)

[ilka_t]

то такое VBA не знаю, но если будет работать то пойдет

Суть такая есть много текста однострочного, и из него надо сделать атрибут = исходному тексту, и приетом желательно что бы можно было в начале задать название "TAG"

[den001]

VBA - это Visual Basic for Application, другой язык программирования. И немного по-другому внедряется в ACAD.
То есть просто создать вместо текста атрибут с таким же значением, не входящий в состав блока? А смысл?
И что, одно имя атрибута для всех текстовых объектов, или для каждого свое?

[den001]

Ну вот оно, в первом приближении. По минимальной схеме.
Выбираете текст, задаете имя атрибута (одно на всех), текст становится атрибутом. Если чего не так - поправим.
[ATTACH]1169153574.rar[/ATTACH]

[VVA]

> ilka_t А напрямую текст в Эксел почему не хочешь?

[fixo]

Сообщение от ilka_t то такое VBA не знаю, но если будет работать то пойдет Суть такая есть много текста однострочного, и из него надо сделать атрибут = исходному тексту, и приетом желательно что бы можно было в начале задать название "TAG"

Шедевр от мастеров кисти:

Код:

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

;  by Bell, R. Robert 
(defun C:T2A (/ EntN Ent Tag Pmpt)
(while (not (setq EntN (entsel "\nSelect text: "))))
(if (and
(setq Ent (entget (car EntN)))
(= "TEXT" (cdr (assoc 0 Ent)))
(while (or
(not Tag)
(= "" Tag)
) ;_ closes or
(setq Tag (getstring "\nEnter attribute tag name: "))
) ;_ closes while
(setq Pmpt (getstring "\nEnter attribute prompt: "))
) ;_ closes and
(progn
(entmake
(list
(cons 0 "ATTDEF")
(cons 100 "AcDbEntity")
(assoc 67 Ent) ; model/paperspace
(assoc 410 Ent) ; tab name
(assoc 8 Ent) ; layer name
(cons 100 "AcDbText")
(assoc 10 Ent) ; 1st alignment point
(assoc 40 Ent) ; text height
(assoc 1 Ent) ; attribute value
(assoc 50 Ent) ; text rotation
(assoc 41 Ent) ; relative X scale factor
(assoc 51 Ent) ; oblique angle
(assoc 7 Ent) ; text style name
(assoc 71 Ent) ; text generation flags
(assoc 72 Ent) ; horizontal text justification
(assoc 11 Ent) ; 2nd alignment point
(assoc 210 Ent) ; extrusion direction
(cons 100 "AcDbAttributeDefinition")
(cons 3 Pmpt) ; attribute prompt
(cons 2 Tag) ; attribute tag
(cons 70 0) ; attribute flags (force to normal)
(cons 73 0) ; field length (currently not used)
(cons 74 (cdr (assoc 73 Ent))) ; vertical text justification
) ;_ closes list
) ;_ closes entmake
(entdel (car EntN)) ; delete text
) ;_ closes progn
) ;_ closes if
(princ) ; clean exit
) ;_ closes defun

[den001]

Э-ге-ге-ге-ге-эээй! А заказчик-то где?

[Лентяй]

Эх, тряхнуть стариной, что ли?

Код:

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

(defun C:T2Attr ( / adoc util obj prp csp tag attr)
  (setq adoc (vla-get-ActiveDocument (vlax-get-acad-object))
	util (vla-get-utility adoc))
  (vla-getEntity util 'obj nil "Select Text to Convert: ")
  (if (= (vla-get-ObjectName obj) "AcDbText") (progn
      (setq prp (mapcar '(lambda (x) (vlax-get-property obj x)) '(Height InsertionPoint TextString Layer Alignment StyleName ScaleFactor))
	    csp (vla-ObjectIDToObject adoc (vla-get-OwnerID obj))
	    tag (vla-getString util :vlax-false "Enter Tag Text: ")
	    attr (vla-addAttribute csp (car prp) acAttributeModePreset "" (cadr prp) tag (caddr prp)))
      (vla-delete obj)      
      (mapcar '(lambda (x y) (vlax-put-property attr x y)) '(Layer Alignment StyleName ScaleFactor) (cdddr prp)));progn
    (alert "This Is Not a Text"));if
);end

Одно только непонятно - а на хрена нужен одиноко торчащий позорным кукишем в своем пространстве, ни в один блок не вствленный атрибут? Ведь в этом случае не будет видно даже его значения, один только ярлык (tag)

[T-Yoke]

Гуру Lisp, подскажите как набор атрибутов из файла (3 атрибута в виде текстовых строк до 240 символов в каждой) вставить в определенную ячейку Excel-файла. Естественно каждый атрибут в свою ячейу. Чертеж в Автокаде2004-2006 MSoffice 2003.
И главное! На некоторых машинах стоит OpenOffice2.0.4. Можно ли таким же макаром и с ними работать?

[sergb_lg]

для OpenOffice Да можно. На этом сайте где-то модуль лежит.

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

Лежит, только он в fas компилирован. Исходников нет.