Geir Andersen
Usenet Archive
- Joined
- Oct 26, 2003
- Messages
- 11
- Reaction score
- 0
( defun c:st200
(setq mpt1 (getpoint "\nStartpunkt? :"))
(setq mpt2 (getpoint mpt1 "\nSluttpunkt :"))
(setq vnk (angle mpt1 mpt2))
(setq vnk2 (+ vnk (/ pi 2)))
(setq degr1 (* 180 (/ vnk2 pi)))
(command "mline" "s" 200 "j" "b" mpt1 mpt2 "" "hatch" "line" 1600 degr1 (entlast) "")
)
This function draws a cable tray (ladder)
I want to repeat this function like drawing a line... (draw many ladders continueing from last endpoint)
Is it possible?
(setq mpt1 (getpoint "\nStartpunkt? :"))
(setq mpt2 (getpoint mpt1 "\nSluttpunkt :"))
(setq vnk (angle mpt1 mpt2))
(setq vnk2 (+ vnk (/ pi 2)))
(setq degr1 (* 180 (/ vnk2 pi)))
(command "mline" "s" 200 "j" "b" mpt1 mpt2 "" "hatch" "line" 1600 degr1 (entlast) "")
)
This function draws a cable tray (ladder)
I want to repeat this function like drawing a line... (draw many ladders continueing from last endpoint)
Is it possible?
