А кто-нибудь программирует в Lisp?

[Кот Пушок]

Для AutoCAD?

A?

[Bob Stein]

Объясни, плиз, - что, почему, зачем вопрос

[Кот Пушок]

Объясни, плиз, - что, почему, зачем вопрос

Хочу узнать, есть ли кто на форуме, кто программирует в Lisp.

Ты программируешь в Lisp?

[Кот Пушок]

Понятно, нихто...

А такой вапрос.

если написанно в Lisp - кто-нить сможет, скажем, ошибку найтить в написанном, или подсказать, каг правельно напесать?

А?

[MariLi]

Понятно, нихто...

А такой вапрос.

если написанно в Lisp - кто-нить сможет, скажем, ошибку найтить в написанном, или подсказать, каг правельно напесать?

А?

через "и"

[Кот Пушок]

через "и"

xe-xe...

Вот, описал деталь:

(defun c:detail ( / p1 d1 d2 d3 s h )

(setq p1 (Getpoint "Select point: ")
d1 10.0
D2 5.0
d3 15.0
s 6.0
h 12.0
)
(Draw p1 d1 d2 d3 s h)
)
(prompt "Try_param, ")
(defun Draw (p1 d1 d2 d3 s h / p2 p3 p4 p5 p6 p7 x y det)
(setq
x (nth 0 p1)
y (nth 1 p1)
p2 (list x (+ y (/ d2 2.0)))
p3 (list x (+ y (/ d1 2.0)))
p4 (list (+ x s) (+ y (/ d1 2.0)))
p5 (list (+ x s) (+ y (/ d3 2.0)))
p6 (list (+ x h) (+ y (/ d3 2.0)))
p7 (list (+ x h) (+ y (/ d2 2.0)))
)
(COMMAND "_layer" "_n" "MH-Detail" "_c" "_yellow" "MH-Detail" "")
(command "_.osnap" "_none")
(command "_layer" "_s" "MH-Detail" "")
(command "_.pline" p2 "w" "0" "" p3 p4 p5 p6 p7 "c")
(setq det (entlast))
(command "_.mirror" det "" p1 "@1,0" "N")
(command "_.pline" p2 (list x (- y (/ d2 2.0))) "")
(command "_.pline" p7 (list (+ x h) (- y (/ d2 2.0))) "")
(command "_layer" "_n" "MH-Center" "_c" "115" "MH-Center" "_l" "Center" "MH-Center" "")
(command "_.layer" "_s" "MH-Center" "")
(command "_.line" (list (- x 10) y) (list (+ x h 10) y)"")
(command "_layer" "_n" "MH-Hatch" "_c" "252" "MH-Hatch" "_l" "continuous" "MH-Hatch" "")
(command "_layer" "_s" "MH-Hatch" "")
(command "_.bhatch" "p" "ansi31"
(/ (+ d3 h) 70.0)
"0"
(list (+ x (/ h 10.0)) (+ y (/ d2 2.0) (/ (- d1 d2) 4.0)))
(list (+ x (/ h 10.0)) (- y (/ d2 2.0) (/ (- d1 d2) 4.0)))
""
)
)
(prompt "Draw ")


Строка, выделенная красным, отключает привязки.
Для того, чтобы возвратить привязки, существует :

(command "_.osnap" "int,cen,end,ins" "")

Как её не втыкаю в текст описания детали - не работает, зараза, хучь убейся.

[Baba_Yaga]

xe-xe...

Вот, описал деталь:

(defun c:detail ( / p1 d1 d2 d3 s h )

(setq p1 (Getpoint "Select point: ")
d1 10.0
D2 5.0
d3 15.0
s 6.0
h 12.0
)
(Draw p1 d1 d2 d3 s h)
)
(prompt "Try_param, ")
(defun Draw (p1 d1 d2 d3 s h / p2 p3 p4 p5 p6 p7 x y det)
(setq
x (nth 0 p1)
y (nth 1 p1)
p2 (list x (+ y (/ d2 2.0)))
p3 (list x (+ y (/ d1 2.0)))
p4 (list (+ x s) (+ y (/ d1 2.0)))
p5 (list (+ x s) (+ y (/ d3 2.0)))
p6 (list (+ x h) (+ y (/ d3 2.0)))
p7 (list (+ x h) (+ y (/ d2 2.0)))
)
(COMMAND "_layer" "_n" "MH-Detail" "_c" "_yellow" "MH-Detail" "")
(command "_.osnap" "_none")
(command "_layer" "_s" "MH-Detail" "")
(command "_.pline" p2 "w" "0" "" p3 p4 p5 p6 p7 "c")
(setq det (entlast))
(command "_.mirror" det "" p1 "@1,0" "N")
(command "_.pline" p2 (list x (- y (/ d2 2.0))) "")
(command "_.pline" p7 (list (+ x h) (- y (/ d2 2.0))) "")
(command "_layer" "_n" "MH-Center" "_c" "115" "MH-Center" "_l" "Center" "MH-Center" "")
(command "_.layer" "_s" "MH-Center" "")
(command "_.line" (list (- x 10) y) (list (+ x h 10) y)"")
(command "_layer" "_n" "MH-Hatch" "_c" "252" "MH-Hatch" "_l" "continuous" "MH-Hatch" "")
(command "_layer" "_s" "MH-Hatch" "")
(command "_.bhatch" "p" "ansi31"
(/ (+ d3 h) 70.0)
"0"
(list (+ x (/ h 10.0)) (+ y (/ d2 2.0) (/ (- d1 d2) 4.0)))
(list (+ x (/ h 10.0)) (- y (/ d2 2.0) (/ (- d1 d2) 4.0)))
""
)
)
(prompt "Draw ")


Строка, выделенная красным, отключает привязки.
Для того, чтобы возвратить привязки, существует :

(command "_.osnap" "int,cen,end,ins" "")

Как её не втыкаю в текст описания детали - не работает, зараза, хучь убейся.

В этой строке с кавычками как то непонятно. Может в этом дело...

[MariLi]

В этой строке с кавычками как то непонятно. Может в этом дело...

точно не нужны последние кавычки!
http://aco.ifmo.ru/~nadinet/html/lectures/lect_7.html

[Кот Пушок]

В этой строке с кавычками как то непонятно. Может в этом дело...

Ща попробую.
Но в этом вот случае - все работает...

(defun c:head-frame-el ()
(COMMAND "_layer" "_n" "MH-Head-frame" "_c" "_yellow" "MH-Head-frame" "")
(command "_osnap" "_none")
(command "_layer" "_s" "MH-Head-frame" "")
(COMMAND "LINE" "0,21" "-22.2,21" "")
(COMMAND "LINE" "0,-21" "-12.1,-21" "")
(COMMAND "LINE" "0,21" "0,-21" "")
(COMMAND "LINE" "-0.575,21" "-0.575,-21" "")
(COMMAND "LINE" "-11.525,21" "-11.525,-21" "")
(COMMAND "LINE" "-12.1,21" "-12.1,-47" "")
(COMMAND "LINE" "-12.715,21" "-12.715,-47" "")
(COMMAND "LINE" "-21.585,21" "-21.585,-47" "")
(COMMAND "LINE" "-22.2,21" "-22.2,-47" "")
(COMMAND "LINE" "-22.2,2.09177849" "-71.29177849,-47" "")
(COMMAND "LINE" "-22.2,1.22203715" "-70.42203715,-47" "")
(COMMAND "LINE" "-22.2,-11.32203715" "-57.87796285,-47" "")
(COMMAND "LINE" "-22.2,-12.19177849" "-57.00822151,-47" "")
(COMMAND "RECTANG" "-11.525,9.43750584" "-0.575,9.81250584" "")
(COMMAND "RECTANG" "-21.585,9.43750584" "-12.715,9.81250584" "")
(COMMAND "RECTANG" "-11.525,-9.81250584" "-0.575,-9.43750584" "")
(COMMAND "RECTANG" "-21.585,-9.81250584" "-12.715,-9.43750584" "")
(COMMAND "RECTANG" "-76.525,-48" "-55.525,-47" "")
(COMMAND "RECTANG" "-23.15,-48" "-11.15,-47" "")
(command "_layer" "_n" "MH-Center" "_c" "115" "MH-Center" "_l" "Center" "MH-Center" "")
(command "_layer" "_s" "MH-Center" "")
(command "LINE" "11.375,23.64910240" "11.375,-23.64910240" "")
(COMMAND "LINE" "35.02410240,0" "-34.15118442,0" "")
(COMMAND "LINE" "-17.15000000,24" "-17.15,-51" "")
(COMMAND "LINE" "-15.02867966,2.12132034" "-68.15,-51" "")
(COMMAND "LINE" "-14.52,-46" "-14.52,-49" "")
(COMMAND "LINE" "-19.775,-46" "-19.775,-49" "")
(COMMAND "LINE" "-62.025,-46" "-62.025,-49" "")
(COMMAND "LINE" "-74.525,-46" "-74.525,-49" "")
(command "_layer" "_n" "MH-Frame-hidden" "_c" "55" "MH-Frame-hidden" "_l" "HIDDEN" "MH-Frame-hidden" "")
(command "_layer" "_s" "MH-Frame-hidden" "")
(COMMAND "CIRCLE" "-17.15,0" "3.0325" "")
(COMMAND "CIRCLE" "-17.15,0" "3.3125" "")
(command "_layer" "_s" "0" "")
(command "_osnap" "int,cen,end,ins" "")
)

[Кот Пушок]

точно не нужны последние кавычки!
http://aco.ifmo.ru/~nadinet/html/lectures/lect_7.html

Попробовал - нихрена не включает все равно.

Последние "") означают нажатие клавиши Enter.