[Elma]

Добрый день, нашла когда-то на этом форуме лисп-функцию исполнения команды slice (которая называется продвинутый нож), пытаюсь ее использовать но в ответ текстовое окно автокада выдает следующее:

Код:

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

Команда: (getmain1)
; ошибка: слишком мало аргументов

Вот сам код лиспа:

Код:

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

(defun getmain1(pt) 

(setvar "OSMODE" 0) 
(setq pt (list (car pt1) (cadr pt1) (+ 100 (caddr pt1)))) 
(princ pt) 
) 
;; 
(defun C:PR_Slice () 
(setq sele (ssget)) 
(setq os (getvar "OSMODE")) 
(princ "\n") 
(command "slice" sele "" 
(setq pt1 (getpoint '"\nВведите первую точку оси: ")) 
(setq pt2 (getpoint pt1 "\nВведите вторую точку оси: ")) 
(setq pt3 (getmain1 pt1)) 
(getpoint "\nОстанки: ") 
) 
(setvar "OSMODE" os) 
)

сама я не пишу эти лиспы, а пытаюсь их использовать -
может быть кто-нибудь знает в чем моя ошибка и как ее исправить.

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

А почему вызывается getmainl, когда по идее надо вызывать команду pr_slice ?

[Павлов Андрей]

Здравствуйте .
В приведенном вверху коде не хватает закрывающей скобки в самом конце .

[Makswell]

Elma, сделай хотя бы так:

Код:

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

(defun C:PR_Slice (/ getmain1 *error* sele os pt1 pt2 pt3)
  (defun *error* (msg)
    (setvar "OSMODE" os)
    (princ msg)
  )
  (defun getmain1 (pt)
    (setvar "OSMODE" 0)
    (setq pt (list (car pt) (cadr pt) (+ 100 (caddr pt))))
    (princ pt)
  )
  (setq	os   (getvar "OSMODE")
	sele (ssget)
  )
  (princ "\n")
  (command "_slice"
	   sele
	   ""
	   (setq pt1 (getpoint '"\nВведите первую точку оси: "))
	   (setq pt2 (getpoint pt1 "\nВведите вторую точку оси: "))
	   (setq pt3 (getmain1 pt1))
	   (getpoint "\nОстанки: ")
  )
  (setvar "OSMODE" os)
  (princ)
)

После загрузки запускать из ком. строки командой PR_Slice

[Elma]

Спасибо Makswell, ваш код помог.
Если вводить pr_slice при старом коде то все равно возникала ошибка, старый код не работает.