[Zaghim]

Друзья подскажите, как можно переделать этот код так, что бы не было Defun'ов

Код:

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

(defun spoint ()
  
  (setq b (cons 10 (inter bp1 ug dpoi)))
  (setq w (nth 1 b))
  (if (/= w nil)
    (setq a (cdr b))
    (setq a nil)
  )  

)
(defun inter (bp1 ug dpoi / ss)
  (If (setq
    ss (ssget "_F" (list bp1 (polar bp1 ug dpoi)))
       )
     (cadr (cadddr (car (ssnamex ss))))
  )
)

[Дима_]

заменить defun на defun-q, либо (setq XXX lambda ()...), но более интересный вопрос ЗАЧЕМ?

[Zaghim]

А можно пример в студию?
Долгая история) Думаю, что когда открываю второй файл при работе с прогой там не должно быть дефанов. Если интересно тема - открытие чертежа.

[TararykovDG]

Zaghim, тогда напиши во втором файле так

Код:

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

(if (car (cons 10 (if (setq ss (ssget "_F" (list bp1 (polar bp1 ug dpoi)))) (cadr (cadddr (car (ssnamex ss)))))))
  (setq a (cdr b))
  (setq a nil)
  )

[ShaggyDoc]

Сообщение от Zaghim А можно пример в студию? Долгая история) Думаю, что когда открываю второй файл при работе с прогой там не должно быть дефанов. Если интересно тема - открытие чертежа.

Почему "думаю"? Конечно, в любом файле можно написать "просто код". Но это будет означать, что все переменные, встречающиеся по ходу, будут считаться глобальными. Последствия этого могут быть непредсказуемыми.

[Zaghim]

В общем это не помогло...пздц полный

[Makswell]

Сообщение от ShaggyDoc Но это будет означать, что все переменные, встречающиеся по ходу, будут считаться глобальными

В принципе можно и локально (код 1 без дефанов).

Код:

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

((lambda (/ pt1 pt2 b ss a)
   (setq pt1 (getpoint)
	 pt2 (getpoint pt1)
	 b   (cons 10
		   (if (setq ss (ssget "_F" (list pt1 pt2)))
		     (cadr (cadddr (car (ssnamex ss))))
		     nil
		   )
	     )
   )
   (if (nth 1 b)
     (setq a (cdr b))
     (setq a nil)
   )
 )
)

[ShaggyDoc]

В принципе можно и локально (код 1 без дефанов).

Кому "дефан" страшен "лямбда" вовсе напугает. Конечно можно, Дима в #2 сразу и lambda показал, но тоже спросил - зачем?

[Profan]

Вот еще пример:

Код:

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

(apply '(lambda ()
   (setvar "cmdecho" 0)
   (princ "\n Динамическая команда ПОКАЖИ.")
   (princ "\n Выберите МАСШТАБ по скользящей шкале МЫШЬЮ...")
   (command "_DVIEW" "_all" "" "_Z" pause "_X")
   (princ "  Конец.")
   (princ)

)
'()
)

[Li6-D]

Насколько понял, надо написать код для нахождения первого пересечения секущей линии с объектами.
Если пересекается - вернуть точку пересечения* с добавленным кодом 10 впереди, если нет - nil.
Любые переменные, созданные в выражении с помощью setq, defun и пр., должны быть локальными.

Код:

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

((lambda (p) (if p (cons 10 (cadar (cdddar (ssnamex p))))))
 ((lambda (p) (ssget "_F" (list p (getpoint p "\n2-я точка секущей: "))))
  (getpoint "\n1-я точка секущей: ")
))

Впрочем, тут обошлось без defun и даже setq... Это требовалось?
*в экранных координатах...

[Zaghim]

Да. Всем спасибо... надо разбираться с этой лямбдой, нифига не понимаю принцип ее работы пока...

[Li6-D]

Сообщение от Zaghim ... надо разбираться с этой лямбдой, нифига не понимаю принцип ее работы пока...

Может это: http://autolisp.ru/2009/09/16/lambda-functions/

[Дима_]

Сообщение от Zaghim Да. Всем спасибо... надо разбираться с этой лямбдой, нифига не понимаю принцип ее работы пока...

Что-то модно стало см. пост №4 http://forum.dwg.ru/showthread.php?t=58568

[Zaghim]

И не говори. Ладно всем большое спасибо!