[DFooz]

Наверняка я где-то ошибся, но данный код у меня почему-то выдаёт всегда nil

Код:

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

(defun c:norm (/ obj)
	(vl-load-com)
	(setq adoc (vla-get-activedocument (vlax-get-acad-object))
				amod (vla-get-ModelSpace adoc)
	)			

	(setq e1 (entsel "\nВыберите кривую: "))
	(vla-startundomark adoc)
	(vla-endundomark adoc)
) ;end defun

Если же убрать (vla-endundomark) и (vla-startundomark), то всё нормально. Почему так?

[Profan]

А вот так:

Код:

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

(defun c:norm (/ obj) 
   (vl-load-com) 
   (setq adoc (vla-get-activedocument (vlax-get-acad-object)) 
            amod (vla-get-ModelSpace adoc) 
   )          

   (setq e1 (entsel "\nВыберите кривую: ")) 
   (vla-startundomark adoc) 
   (vla-endundomark adoc)
(princ)
)

не выдает nil. :P

[DFooz]

т.е. он нормально считывал кривую? :roll: Почему тогда nil писал, а не название или тип кривой?

[Profan]

Так это вот эта строка выдавала nil

Код:

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

(vla-endundomark adoc)

Посмотри в командной строке

Код:

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

!e1

[DFooz]

ааа, понятно. Спасибо. :!:
Просто в основном коде я несколькоу ошибок сделал, поэтому прога и не работала. Я и подумал на этот кусочек кода.

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

Еще один момент. Если надо после выполнения функции вернуть какое-то значение, да и память загрязнять глобальными переменными не хочется, не используй с: перед именем.