[kserg]

Как (через entget ?) для вставленной в чертеж формы (SHAPE) определить имя shx-файла ее библиотеки?
Спасибо.

[kserg]

Предположим, хотя бы вытащу через entget имя формы. Тогда как получить списки форм, загруженных в рисунок? Т.е. типа
"файл_форм-1.shx" - ("имя_формы11" "имя_форма12" ....)
"файл_форм-2.shx" - ("имя_формы21" "имя_форма22" ....)
...........
Это возможно?

[Александр Ривилис]

ObjectARX тебе в руки. И вот эта ссылка: http://www.caduser.ru/forum/index.ph...#message185655

[kserg]

> Александр Ривилис
Спасибо, но это (ObjectARX) нам не по зубам.

А по-простому, по рабоче-крестьянски что-то накропал. Тупо, грубо, некрасиво и противно, мыргая, но всеж работает (по крайней мере в AutoCAD2005):

Код:

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

(setq LfPatch (getvar "logfilepath")
      DwgPref (getvar "dwgprefix"))
(setvar "logfilepath" DwgPref)
(setq LfName (getvar "logfilename")
      QaFlag (getvar "qaflags"))
(setvar "qaflags" 2)
(vl-cmdf "_.LOGFILEON" "_.SHAPE" "?" "*" "_.LOGFILEOFF")
(graphscr)
(setvar "qaflags" QaFlag)
(setvar "logfilepath" LfPatch)
(setq LfNameFind (findfile LfName)
      LfName nil
      LfPatch nil
      DwgPref nil
      QaFlag nil
      Descriptor (open LfNameFind "r")
      LfLine (read-line Descriptor))
(while LfLine
  (cond
    ((= LfLine "")
      (if ShapesFile
       (setq ShapesFile (append ShapesFile (list NamesShapes))
             LsLoadShapes (append LsLoadShapes (list ShapesFile))
             ShapesFile nil NamesShapes nil)
      )
    )
    ((= (strcase (substr LfLine (- (strlen LfLine) 3))) ".SHX")
      (setq ShapesFile (list
        (substr LfLine (+ (vl-string-search " " LfLine) 2))))
    )
    (ShapesFile
      (while (wcmatch LfLine "~ ")
        (setq LfLine (vl-string-left-trim " " LfLine)
              PozSpace (vl-string-search " " LfLine)
              NameShape (substr LfLine 1 PozSpace)
              NamesShapes (append NamesShapes (list NameShape))
              LfLine (substr LfLine (1+ PozSpace)))
      )
    )
    (t nil))
  (setq LfLine (read-line Descriptor))
)
(close Descriptor)
(setq Descriptor nil
      PozSpace nil
      NameShape nil)
(vl-file-delete LfNameFind)
(setq LfNameFind nil)
(princ LsLoadShapes)

Выдает список LsLoadShapes типа (("Имя_1файла_shx" ("форма11" "форма12" ...)) ("Имя_2файла_shx" ("форма21" "форма22" ...)) ...)