[Scorpio_1986]

Я написал lisp с использованием функции ssget:

Код:

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

(defun sozdytipl ()
(command 
"_lweight"
"0.18" "_color" 
"ByLayer"
"_pline"
(setq p (polar (polar sp raspl180 180) raspl90 120))
(polar p raspl90 130)
""
(setq yt1 (ssget "_L"))
"_pline"
(setq p (polar (polar sp raspl (+ sh 180)) raspl90 120))
(polar p raspl90 130)
""
(setq yt2 (ssget "_L"))
) ;_ end of command
);_ end of defun

LISP выполняется до функции ssget потом останавливается, при нажатии мышки в произвольном месте выполняется до следующего ssget. В чем причина такого поведения? Как это исправить?

[VictorHunter]

Замени (ssget "_L") на (entlast) - вдруг сработает.

[Scorpio_1986]

Сообщение от VictorHunter Замени (ssget "_L") на (entlast) - вдруг сработает.

При использовании (entlast) проблема сохраняется.

[VVA]

Scorpio_1986, Надо четко отделять мух от котлет (в нашем случае команды и операции). Отрисовали полилинию, закончили команду,выполнили операцию, вызвали команду, отрисовали полилинию и т.д.

Код:

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

(defun sozdytipl ()
(command 
"_lweight"
"0.18" "_color" 
"ByLayer"
"_pline"
(setq p (polar (polar sp raspl180 180) raspl90 120))
(polar p raspl90 130)
""
);_ end of command
(setq yt1 (entlast))
(command   
"_pline"
(setq p (polar (polar sp raspl (+ sh 180)) raspl90 120))
(polar p raspl90 130)
""
);_ end of command
(setq yt2 (entlast))
);_ end of defun

PS. Когда-нибудь наступишь на грабли №1 (osnap)

[Scorpio_1986]

VVA примного вам благодарен! Работает все прекрасно! Сложно изучать LISP самостоятельно хорошо что есть этот форум.