I hate to keep bugging you guys but I am now wanting to tweak this command now that I have had a little bit of time to mess around with it. I am wanting to add a layer for this to automatically be put on. My question is where do I input the command line for the layer in the lisp? I do know what to type, just unsure of where to place it.
Here is the lisp I am using;
(defun C:AD (/ pt1 pt2 ht lin1 lin2 ldata)
(setq
pt1 (getpoint "\nSelect one end of floor line: ")
pt2 (getpoint pt1 "\nOther end: ")
ht (getdist pt1 "\nRoom height: ")
); setq
(command "_line" "_none" pt1 "_none" pt2 "")
(setq lin1 (entlast))
(command "_.offset" ht "@" (getpoint "\nSide on which to build box: ") "")
(setq lin2 (entlast))
(command
"_.pline"
"_none" pt1 "_width" 0 0 "_none" pt2
"_none" (cdr (assoc 11 (setq ldata (entget lin2))))
"_none" (cdr (assoc 10 ldata))
"_close"
"_.erase" lin1 lin2 ""
); command
); defun
And what I want to add is;
(command "-layer" "s" "MP-VPORT")
Also I would like to get the area of the "box" I had just created, but I want to put it in a "dtext" and be able to select where I want to place the text.
Solved! Go to Solution.
Solved by Kent1Cooper. Go to Solution.