[vladimirr_b]

Здравствуйте! Не могу понять почему не работает функция SSGET: при первом запуске кода программа выполняет задуманные операции, но при повторном запуске функция SSGET возвращает значение nil, хотя по ее аргументам она должна была возвратить набор. Господа программисты помогите пожалуйста разобраться почему так происходит.

Код:

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

 (defun naimen (p_b p_v / p1 p2 ss_1 k j name_ent1 vlaobj ent_f)
  (setq p1 (mapcar '+ p_b '(-124 19 0)))
  (setq p2 (mapcar '+ p_b '(-56 6 0)))

  (setq ss_1 nil)
  (setq ss_1 (ssget "_C" p1 p2))
  (setq k (sslength ss_1))
  (setq j 0)
  (while (< j k)
    (setq name_ent1 (ssname ss_1 j))
    (setq vlaobj (vlax-ename->vla-object name_ent1))
    (if	(= (vla-get-objectname vlaobj) "AcDbMText")
      (progn
	(setq txtstr (vlax-get-property vlaobj 'textstring))
	(setq ent_f	       
	       (vla-addtext model_space txtstr (vlax-3d-point p_v) 3.5)
	)
	(vlax-put-property ent_f 'layer "Òîíêàÿ")
      )
    )
    (setq j (+ 1 j))
  )
)

(vl-load-com)
(setq acad_object (vlax-get-acad-object))
(setq active_document (vla-get-activedocument acad_object))
(setq model_space (vla-get-modelspace active_document))


  (setq sp_1 (list '(4696.68 3985.62 0) '(5327.14 3985.62 0)
		   '(5782.28 3985.62 0) '(4696.68 3507.11 0)
		   '(5327.14 3507.11 0) '(5782.28 3507.11 0)
		   '(4696.68 3052.19 0) '(5327.14 3052.19 0)
		   '(5782.28 3052.19 0)))
  (setq p1 (getpoint "\nВыберите точку вставки списка листов: "))
(setq n 9)
(setq i 0)
  (while (< i n)
    (setq p_b (nth i sp_1))
    (setq i (+ i 1))  
    (setq p_v (polar p1 (- (/ pi 2)) (* i 10)))
    (naimen p_b p_v)
    
    )

[Кулик Алексей aka kpblc]

Проверяй, на экране показываются ли точки p1 и p2 на момент вызова (ssget "_C" ...).

[VVA]

Да, скорее всего точки не в видовом экране. Как это сделать и необходимые функции можно посмотреть здесь Как определить, что точка за пределами видимой области? VBA
Фрагмент кода

Код:

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

(defun naimen (p_b p_v / p1 p2 ss_1 k j name_ent1 vlaobj ent_f) 
(setq p1 (mapcar '+ p_b '(-124 19 0))) 
(setq p2 (mapcar '+ p_b '(-56 6 0))) 
(if(not(and (lib:IsPtInView p1) (lib:IsPtInView p2))) ;_!!!Точки p1 и p2 - в МСК
  (lib:Zoom2Lst (list p1 p2))
  )
(setq ss_1 nil) 
(setq ss_1 (ssget "_C" p1 p2))
....

[vladimirr_b]

Да, дело оказалось именно в экране. Большое спасибо за помощь!