得到xref的路径

citykunan · 发表于 2006-2-9 10:39

有没有办法可以用lisp得到一个xref的引用文件的路径？谢谢

龙龙仔 · 发表于 2006-2-9 12:23

(ENTGET (Tblobjname "block" "blkname"))

DXF码 1 外部参考路径名称

citykunan · 发表于 2006-2-9 12:44

本帖最后由作者于 2006-2-9 13:12:49 编辑

谢谢。：）再多问一句对于IMAGE的引用有什么办法提取其路径呢？DXF码中好像连图像的引用文件名也没有。

citykunan · 发表于 2006-2-9 13:30

我简单的编了一个。

(defun c:imm (/ im)

(setq im (car (entsel)))
(setq im (vlax-ename->vla-object im) )

(vla-get-ImageFile im)
)

不过我还是想知道能不能通过dxf取得image的路径和名称呢？

龙龙仔 · 发表于 2006-2-9 15:48

(cdr
(assoc
    1
    (entget
      (cdr
(assoc
   340
   (entget
     (cdr
       (assoc 330
       (entget (cdr (assoc 360 (entget (car (entsel))))))
       )
     )
   )
)
      )
    )
)
)

ljpnb · 发表于 2006-2-9 16:37

龙哥真得牛，居然能挖得这么深

citykunan · 发表于 2006-2-9 16:43

隐藏的这么深啊。龙版主果然是高手，这也知道。：）

无痕 · 发表于 2006-2-9 18:27

(vl-load-com)
(vla-get-ImageFile (vlax-ename->vla-object (car(entsel))))
->"C:\\Documents and Settings\\Administrator\\My Documents\\My Pictures\\3147214.jpg"

复制代码

xyp1964 · 发表于 2006-2-9 18:43

龙龙仔发表于2006-2-9 15:48:00(cdr(assoc1(entget(cdr(assoc340...

错误: 参数类型错误: lentityp nil

？

龙龙仔 · 发表于 2006-2-10 08:26

xyp1964发表于2006-2-9 18:43:00...

你没有点中那image!!才会出错!

账号		自动登录	找回密码
密码			注册