[silic]

Прошу помощи, у самого ничего не выходит =( Собсна сам студен, надо сделать лабу в AutoLISP, который вижу второй раз в жизни (первый на лабе). Должно получиться следующее lab5.dwg

Вот код (что получилось =( )

Код:

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

 (defun c:corbel ( / O1 Cyl1 O2 Cyl2 O3 Cyl3 Cyl123 Cyl1234 o4 Cyl4 Box1 Box2 Box3 CylBox CylN1 CylN2 CylN3) 
	
(setq O1 '(0 0 0))
(command "_Cylinder" O1 "50" "15")
(setq Cyl1 (entlast))
(setq O2 '(0 0 15))
(command "_Cylinder" O2 "40" "10")
(setq Cyl2 (entlast))
(setq O3 '(0 0 25))
(command "_Cylinder" O3 "50" "15")
(setq Cyl3 (entlast))
(command "_Union" Cyl1 Cyl2 Cyl3"")
(setq Cyl123 (entlast))

(setq O4 '(0 0 0))
(command "_Cylinder" O4 "30" "40")
(setq Cyl4 (entlast))
(command "_Subtract" Cyl123 "" Cyl4 "")
(setq Cyl1234 (entlast))


(command "_Box" "-10,0,0" "_Length" "20" "33.5" "40")
(setq Box1 (entlast))
(command "_Subtract" Cyl1234 "" Box1 "")
(setq CylBox (entlast))

(command "_Box" "-80,-30,0" "_Length" "160" "-25" "-20")
(setq Box2 (entlast))

(command "_Box" "-25,-30,0" "_Length" "50" "-25" "-50")
(setq Box3 (entlast))

(command "_Cylinder" "0,10,0" "30" "25")
(setq CylN2 (entlast))
(command "_rotate3d" CylN2 "" "_Xaxis" "0,0,-30" "90")
(setq CylN3 (entlast))

(command "_Intersect" "CylN3" "Box3") ;тут вся и загвоздка

(command "_Cylinder" "0,10,0" "15" "25")
(setq CylN1 (entlast))
(command "_rotate3d" CylN1 "" "_Xaxis" "0,0,-30" "90")

;(command "_rotate3d" CylBox "" "_Xaxis" "0,0,0" "90")

)

[Donhuan]

Код:

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

(command "_Intersect" CylN3 Box3 "") ;тут вся и загвоздка

[silic]

Благодарю. Ещё вопрос.. Где посмотреть прототипы функций, чтоб больше вопросов не возникало?? (хэлп автокада на русском как и сам кад.. прототипов там не нашел =( )

[Donhuan]

В хелпе по идее должен быть раздел AutoLISP Reference (описание lisp включая нужную тебе функцию (command) правда на английском).
Можешь здесь еще глянуть:
http://forum.dwg.ru/showthread.php?t...EB%E8%F1%EF%F3