[игорёк]

Подскажите почему не работает макрос? Вроде все правильно, но вставлять не хочет. Блоки проверял, находит...

Код:

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

(defun c:ins_bl () 
 (setq bl_path nil)
  (vl-load-com)
  (setq acad_apl (vlax-get-acad-object))
  (setq actdoc (vla-get-ActiveDocument acad_apl))
  (setq model_spase (vla-get-modelspace actdoc))
  (setq bl_name (strcat (getstring "Укажите имя блока  :") ".dwg"))
  (setq bl_path (findfile bl_name))
  ;(alert bl_path)
  (if bl_path
    (progn
      (vla-InsertBlock
	(vlax-3d-point
	  (getpoint )
	)
	bl_path	;путь
	1 	;масштаб по x
 	1 	;масштаб по y
	1 	;масштаб по z
	0.0  	;угол поворота
      )
    )
    (progn
      (alert "Фаил ненайден")
    )
  )
  (princ)
)

[fixo]

Единственно что видно сразу - пропущен model_space
в выражении:

Код:

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

(vla-InsertBlock model_spase ;<-куда вставляем?
   (vlax-3d-point 
     (getpoint ) 
   ) 
   bl_path  
   1    
    1    
   1    
   0.0     
      )

~'J'~