VLISP中插入图像的代码

newer

问题：
在AUTOCAD中如何用VLISP快速的插入图像？

解决方案：

Using Visual LISP, you can use the ActiveX Object model of AutoCAD. The
AcadModelSpace object has the method AddImage that makes it very easy to create
a new raster image entity.

The following code creates an image entity:


;; Insert a raster image using the
;; ActiveX inte**ce of AutoCAD
(defun c:insertimage ()
  (vl-load-com)
;; Get objects
(setq acadApp (vlax-get-acad-object)
    acadDoc (vla-get-ActiveDocument acadApp)
    mSpace    (vla-get-ModelSpace acadDoc)
)

;; Get some parameters for the new image
(setq name "c:/winnt/winnt256.bmp"
    pt (getpoint "\nSelect insert point: ")
    scale (getreal "\nEnter scale factor: ")
    rot   (getangle "\nEnter rotation angle: ")
)

;; Create a new raster image entity
(setq image-obj (vla-AddRaster mSpace name (vlax-3d-point pt) scale rot))
(setq image-ename (vlax-vla-object->ename image-obj))

;; image-obj is the newly created image entity ActiveX object.
;; image-ename contains the Lisp entity name of the new image.
;;
;; You can use further ActiveX methods/properties on image-obj
;; and the 'standard' Lisp functions on image-ename.

(princ "\nNew raster image entity:\n")
(princ (entget image-ename))

(princ)
)

wangxf888

一般都是用XR 学习下

xvjiex

感谢分享VLISP中插入图像的代码