> 1 <

Автор Сообщение

dmalsh

Members


Статус

1 сообщений

Где: Israel
Род занятий:
Возраст:

#344   2009-04-17 13:24 GMT+3 часа(ов)      
Есть кусок кода:
 
(defun C:MAKEPANEL (/ kA kB kC kD kt tkA tkB tkC tkD)
 
(SETQ kA 500)
(SETQ kB 1000)
(SETQ kC 40)
(SETQ kD 20)
(SETQ kt 2)
 
(setq kD (- kD kt))
(setq kC (- kC (* 2 kt)))
(setq kB (- kB (* 2 kt) (* 2 kD)))
(setq kA (- kA (* 2 kt) (* 2 kD)))
 
(setq tkA (rtos kA 2 4))
(setq tkB (rtos kB 2 4))
(setq tkC (rtos kC 2 4))
(setq tkD (rtos kD 2 4))
 
(COMMAND "_LINE"
(strcat (rtos (+ kC (* 2 kD) 10) 2 4) ",10") ;point 1
(strcat "@-" tkD "," tkD) ;point 2
(strcat "@0," tkC) ;point 3
(strcat "@-" tkC ",0") ;point 4
(strcat "@-" tkD "," tkD) ;point 5
(strcat "@0," tkB) ;point 6
)
 
(COMMAND "")
(COMMAND "_ZOOM" "_E")
)
 


При выполнении выводится:
 
Command: _appload test 5.lsp successfully loaded.
Command:
Command:
Command: MAKEPANEL
_LINE Specify first point: 82,10
Specify next point or [Undo]: @-18,18
Specify next point or [Undo]: @0,36 Zero length line created at (64.0000,
28.0000, 0.0000)
Specify next point or [Close/Undo]: @-36,0 Zero length line created at
(64.0000, 28.0000, 0.0000)
Specify next point or [Close/Undo]: @-18,18 Zero length line created at
(64.0000, 28.0000, 0.0000)
Specify next point or [Close/Undo]: @0,960
Specify next point or [Close/Undo]:
Command: _ZOOM
Specify corner of window, enter a scale factor (nX or nXP), or
[All/Center/Dynamic/Extents/Previous/Scale/Window/Object] <real time>: _E
Regenerating model.
Command: nil
 

LinkFly

Members


Статус

152 сообщений

Где: Russia
Род занятий:
Возраст:

#2129   2010-05-24 01:26 GMT+3 часа(ов)      
Я программировал на AutoLISP .. но это было довольно давно. Не уверен что не поленюсь ставить и разбираться в вопросе. Но если напишите подробней, может и помогу. Что конкретно не получается?

LinkFly

Members


Статус

152 сообщений

Где: Russia
Род занятий:
Возраст:

#2130   2010-05-24 01:27 GMT+3 часа(ов)      
Подробней - в смысле: концептуальней.
> 1 <


Онлайн :

0 пользователь(ей), 29 гость(ей) :




Реклама на сайте: