[baaba]

Запутался как правильно отключать привязку.

Вариант 1, встроено в функцию:

Код:

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

(defun c:mkprism (/ ptlst)
	(command "_.UNDO" "_begin") 
	(setq ptlst (gtpnt))
	(mksol ptlst)
	(command "_.UNDO" "_end")
)

(defun gtpnt () (list
	(getpoint "\n Enter first point")
	(getpoint "\n Enter second point")
	(getpoint "\n Enter third point")))

(defun mksol (ptlst)
	(setq old_osnap (getvar "OSMODE")) 
	(setvar "OSMODE" 0)
	(command "_.PLINE")
	(mapcar 'command (mapcar '(lambda (x) (cons (car x) (list (cadr x)))) ptlst))
	(command "close")
	(command "_.region" "l" "")
	(command "_.extrude" "l" "" 7400 "")
	(command "_.slice" "l" "" (car ptlst) (cadr ptlst) (caddr ptlst)
		(cons (car (car ptlst)) (list (cadr (car ptlst)))))
	(setvar "OSMODE" old_osnap))

Вариант 2, встроено в основную функцию:

Код:

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

(defun c:mkprism (/ ptlst)
	(command "_.UNDO" "_begin") 
	(setq ptlst (gtpnt))
        (setq old_osnap (getvar "OSMODE")) 
	(setvar "OSMODE" 0)
	(mksol ptlst)
	(command "_.UNDO" "_end")
)

(defun gtpnt () (list
	(getpoint "\n Enter first point")
	(getpoint "\n Enter second point")
	(getpoint "\n Enter third point")))

(defun mksol (ptlst)
	(command "_.PLINE")
	(mapcar 'command (mapcar '(lambda (x) (cons (car x) (list (cadr x)))) ptlst))
	(command "close")
	(command "_.region" "l" "")
	(command "_.extrude" "l" "" 7400 "")
	(command "_.slice" "l" "" (car ptlst) (cadr ptlst) (caddr ptlst)
		(cons (car (car ptlst)) (list (cadr (car ptlst))))))

Оба варианта не работают
==========================================
проблема решилась, заменил "l" (последний выбранный примитив) на выражение:

Код:

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

(entlast)

Вот:

http://pastebin.com/vAkm2dYF

[CB]

Можно например так:

Код:

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

(defun C:test( / sys-var) 
(setq sys-var (mapcar 'getvar '("cecolor" "cmdecho" "OSMODE")))
  (setvar "cmdecho" 0)
  (setvar "OSMODE" 0)
.....................................

(mapcar 'setvar '("cecolor" "cmdecho" "OSMODE") sys-var)
(princ)
)

[Дима_]

Сообщение от baaba Запутался как правильно отключать привязку.

Чем скорее Вы научетесь ее не отключать - тем "правильнее" будет.

[E-degtyarev]

Если я применяю командные методы, то леплю "_non", где требуется, а правильнее следовать совету Димы_.

[baaba]

>CB
спасибо за пример.
>Дима_
Дело оказалось не в привязке, внимательнее читайте.
>E-degtyarev
За _non спасибо! М. б. пригодится

[VVA]

Сообщение от baaba проблема решилась, заменил "l" (последний выбранный примитив) на выражение:

В опицях команд так же нужно использовать нижнее подчеркивание

Код:

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

(command "_close")
(command "_.region" "_L" "")

и т.д
Читай 1-й абзац

[baaba]

Сообщение от VVA В опицях команд так же нужно использовать нижнее подчеркивание

Спасибо! Я поленился, если честно :-\