[Holon]

Как правильно произвести вставку "*.jpg" програмно, в Helpe есть пример для VBA, а для LISP-а нет, вот пример для VBA

Код:

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

Sub Ch10_AttachingARaster()
    Dim insertionPoint(0 To 2) As Double
    Dim scalefactor As Double
    Dim rotationAngle As Double
    Dim imageName As String
    Dim rasterObj As AcadRasterImage
    imageName = "C:/Program Files/AutoCAD Directory/sample/watch.jpg'
insertionPoint(0) = 5
insertionPoint(1) = 5
insertionPoint(2) = 0
scalefactor = 2
rotationAngle = 0

  On Error GoTo ERRORHANDLER
   ' Attach the raster image in model space
  Set rasterObj = ThisDrawing.ModelSpace.AddRaster _
        (imageName, insertionPoint, _
               scalefactor, rotationAngle)
   ZoomAll
   Exit Sub
ERRORHANDLER:
    MsgBox Err.Description
End Sub

Вот мое представление кода, но он неработает, где-то ошибка в синтаксисе:

Код:

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

(defun c:im (/
	     imageName
	     insertionPoint
	     scalefactor
	     rotationAngle
	     )
  (vl-load-com)
  (setq
    imageName(strcat"C:\\Documents and Settings\\My Documents\\My Pictures\\tool.jpg") 
    insertionPoint (list 0 0)
    scalefactor 0
    rotationAngle 0
   );_setq 
  (vl-cmdf
 "_imageattach"
 imageName
 insertionPoint
 scalefactor
 rotationAngle
 )
  );_defun

[Alaspher]

Пример должен выглядеть примерно так:

Код:

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

(defun c:im (/ imagename insertionpoint model rotationangle scalefactor)
  (vl-load-com)
  (setq imagename      "C:\\Documents and Settings\\<имя профиля>\\My Documents\\My Pictures\\tool.jpg"
        model          (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))
        insertionpoint (vlax-3d-point (list 0 0))
        scalefactor    1
        rotationangle  0
  )
  (vla-addraster model imagename insertionpoint scalefactor rotationangle)
)

[Holon]

Большее спасибо