图像名称

giskumar · 发表于 2022-7-6 09:51:42

大家好，

我使用MAPISERT命令将图像附着到autocad。
当我选择图像时，我想读取图像的名称和扩展名。
有什么办法吗。

谢谢
库马尔。

MSasu · 发表于 2022-7-6 10:11:51

不确定AutoCAD Map–但对于插入普通AutoCAD中的光栅图像，可以使用以下代码：

(vl-load-com)
(setq theImage
     (cdr (assoc 1 (entget (cdr (assoc 340 (entget (car (entsel)))))))))
(setq thePath      (vl-filename-directory theImage)
     theExtension (vl-filename-extension theImage))

当做
米尔恰

Tyke · 发表于 2022-7-6 10:24:19

当您在屏幕上选择图像时，您应该在属性窗口中看到其名称。如果您打开了“快速属性”，您将在那里看到名称。

giskumar · 发表于 2022-7-6 10:36:02

这对我真的很有帮助。

谢谢大家。

MSasu · 发表于 2022-7-6 10:45:39

听起来不错！不客气！

当做
米尔恰

BlackBox · 发表于 2022-7-6 10:58:58

（entget nil）？

也许这是一个更可行的解决方案：

copy


(defun c:FOO (/ e v)
 (vl-load-com)
 (if (and (setq e (car (entsel "\n  >>  Select an Image: ")))
          (= "IMAGE" (cdr (assoc 0 (entget e)))))
   (prompt
     (strcat
       "\n  >>  Image Name  >>  "
       (vla-get-name (setq v (vlax-ename->vla-object e)))
       "\n  >>  Image Ext.  >>  "
       (vl-filename-extension (vla-get-imagefile v)))))
 (princ))

[编程交流] 图像名称

发表回复

精选推荐