Originally Posted by
Opie
You could insert your container drawing into your current drawing. Once it is in your drawing, the other blocks would then be available.
Yeah, I tried to post here twice already and the webpage keeps eating them. Dang IE!!
Anyhow, just try this:
Code:
(defun c:slope (/ block1 block2 block3 p1 p2 p3 dist ang angdeg)
(setq block1 "slopeblocks")
(setq p1 (getpoint "\npick high point of slope: "))
(setq p2 (getpoint "\npick low point of slope: "))
(setq dist (distance P1 P2))
(setq ang (angle P1 P2))
(setq p3 (POLAR P1 ANG (/ DIST 2)))
(setq angdeg (* (/ ang pi) 180.0))
(command "line" p1 p2 "")
(command "-insert" block1 p1 "1" "1" angdeg "")
(if (setq ss (ssget "_X" (list (cons 0 "INSERT")(cons 2 block1))))
(progn
(setq pfst (getvar 'PICKFIRST))
(setvar 'PICKFIRST 1)
(sssetfirst nil ss)
(c:burst)
(setvar 'PICKFIRST pfst)
(princ)
);progn
);if
(princ)
)
Try that, assumes you already have express tools installed.