[hydushko]

Код:

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

  (defun prog1 ()
  (vl-load-com)
  (setq	obj1
	 (vla-addline
	   (vla-get-modelspace
	     (vla-get-activedocument (vlax-get-acad-object))
	   ) ;_ end of vla-get-ModelSpace
	   (vlax-3d-point a3)
	   (vlax-3d-point a5)
	 ) ;_ end of vla-addline
  )
  (setq	obj2
	 (vla-addcircle
	   (vla-get-modelspace
	     (vla-get-activedocument (vlax-get-acad-object))
	   ) ;_ end of vla-get-modelspace
	   (vlax-3d-point '(0. 0. 0.))
	   _2
	 )
  )
  (setq temp (vla-intersectWith obj1 obj2 acExtendThisEntity))
  (setq a6 (vlax-safearray->list (vlax-variant-value temp)))
)
;;;  (setq n1 (getreal "\n Введите внутренюю среду 1\n"))
;;;  (setq n2 (getreal "\n Введите внутренюю среду 2\n")) 
  (setq a1 (distance '(-450 100) '(-450 -100)))
  (setq a2 (/ a1 3))
  (setq a3 (polar '(-450 100) -1.5708 a2))
  (setq a4 (angle '(-450 0) '(-150 0)))
  (setq a5 (polar a3 a4 1000))
  (command "_line" a3 a5 "")
  (setq boom (entlast))
  (prog1)
 (entdel boom)
  (setq a7 (car a6))
  (setq a8 (cdr a6))
  (setq a9 (car a8))
  (setq b0 (list a7 a9))

вроде всё по правилам а не работает подскажите почему? хотя пишет отметку примитива
<Entity name: 7ffff90dac0>

[Krieger]

Да вроде удаляет. Просто между (setq boom (entlast)) и (entdel boom) у тебя стоит функция (prog1) которая вычерчивает точно такой же отрезок, у которого будет другой Entity name.