[求助]如何返回所有加载的xref的名称？

jaminth

如何返回所有加载的xref的名称？

alin

(DEFUN XREFSlst()
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (setq blks (vla-get-blocks doc))
  (vlax-for blk blks
    (if (= (vla-get-isxref blk) :vlax-true)
      (setq xrefs (cons (vla-get-name blk) xrefs))))
  (reverse xrefs)
)

jaminth

alin,下面这几行lisp返回所有加载的xref的路径,为什么总提示:
错误: ActiveX 服务器返回错误: 未知名称: Path
如何解决?

2. (vlax-for blk (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
3.      (and (= (vla-get-isxref blk) :vlax-true)
4.    (setq lst (cons (vla-get-path blk) lst))
5.      )
6.    )

(vlax-for blk (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))      (and (= (vla-get-isxref blk) :vlax-true)    (setq lst (cons (vla-get-path blk) lst))      )    )

jaminth

还有就是再想问一个问题:

比如返回的路径为:

"d:\2007jobs\road\sub\01table.dwg"

"d:\2007jobs\road\main\02model.dwg"

怎么样才能取得最后一个（目录）文件夹的名称，即sub和main

alin

因为有的BLK没有PATH属性

jaminth

vla-get-Path 函数

功能

      取得文件、应用程序、或外部参考的路径。

语法及参数

	(vla-get-Path Object )
	Object	Application, Document, ExternalReference
		这个属性适用的对象
	Parent	字符串; 只读（ExternalReference对象时为只读)
		应用程序、文件或外部参考的路径

说明
    文件或应用程序的路径不含有文件名。

alin

(cadr (reverse (PARSE_IT "d:\\2007jobs\\road\\sub\\01table.dwg" "\\")))


; ????? ??: Bill Kramer
(defun Parse_It    (inStr ;Input string to parse
         Delim ;Delimeter character (or ascii code)
         / Res ;Result list buffer
         Inx ;Character location of delim in string
         InxP revious character location
)
 ;
 ; Verify DELIM is of the proper type
 ;
  (setq    Delim (if (= (type Delim) 'STR)
        (ASCII Delim) ;Convert character to integer
        (if (/= (type Delim) 'INT) ;is it integer?
          32 ;then use space
          (if (> 0 Delim 256)
            Delim
            32
          )
        )
          )
 ;
 ; Set up parameters for string search loop
 ;
    Inx   (VL-String-Position Delim inStr 0)
    InxP  -1
  )
 ;
  (while (and Inx (< Inx (strlen inStr)))
    (setq Res
           (cons (substr inStr (+ 2 InxP) (- Inx InxP 1))
             Res
           )
      InxP Inx
      Inx  (VL-String-Position Delim inStr (1+ InxP))
    )
  )
  (setq Res (cons (substr inStr (+ 2 InxP)) Res))
  (reverse Res)
)

jaminth

alin ,我找的资料在6楼，怎么解释呢？！为什么函数vla-get-Path 帮助文件本身写出可以取得外部参考的路径？！

alin

(vlax-for blk (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
      (if (= (vla-get-isxref blk) :vlax-true)
    (setq lst (cons (vla-get-path blk) lst))
      )
    )

caoyin

(vl-filename-base (vl-filename-directory filename))