The
Function For Drawing The Cabinet
Here
is the function for drawing the cabinet. The cabinet is drawn on the
CABINET layer. That layer is made active by the fucntion.
It
works like this. Using the TBLSEARCH function there is checked if the
layer exist. If not it is created. If it exists, there is switched to
it.
Next
four lines are drawn on the CABINET layer. The width of the cabinet
is known. For the height a calcification must be made.
(defun drcab (pt wd nr)
(if (tblsearch "layer"
"cabinet")
(command "layer"
"s"
"cabinet"
""
)
(progn
(command "layer"
"m"
"cabinet"
"c"
"green"
""
""
)
)
)
(command "line"
pt
(setq
pt (polar pt 0 wd))
(setq
pt (polar pt
(*
pi 0.5)
(+
(* nr
(+ 100
25
)
)
25
)
)
)
(setq
pt (polar pt pi wd))
"c"
)
)
The
Next Posts
We have drawn the cabinet.
Now we can draw the rest of the cabinet: the drawers, the top, the
handles, and the dimensions.
I'm going to talk about it
in the next posts.
Telling
Others
Do
you like what you have read? Do you know other people, that also
could be interested in what I'm saying? Could you tell them about
this blog?
Comment
In the mean time. If you
have any questions. Or you want to tell me something. Feel free to
add a comment to this blog.
I
would love to hear from you. And when you come to me with a comment.
I will give a reply to your question or remark.
YouTube
I
have added videos to YouTube. The videos give examples of my
AutoLISP programming work. You could engage me if you want.
If
you are thinking of engaging me. Listen. I work for free. I write an
AutoLISP program for you. You only pay when you are satisfied.
That
is important. When you come to me with an AutoLISP programming job,
you are not spending any money.
On
YouTube you can find my videos here:
http://youtu.be/zgTWKo7DpeM
http://youtu.be/sd-sbyM3-d8
http://youtu.be/2yhk7G5KlAs
http://youtu.be/mEA6lymElqI
http://youtu.be/eyOdOTHPH-o
http://youtu.be/O8Zy6n9zS8Q
http://youtu.be/5sMBtfnnizk
http://youtu.be/QrmbXvmFa2o
http://youtu.be/4Ol-YpDC2MY
http://youtu.be/DWFke-Nie0E
No comments:
Post a Comment