acadiso vs acad.dwt

I want acad to always start with acad.dwt, using acad.lin and acad.pat. I'm
having a real problem in 2004 finding these things - any help would be
welcome

 

Look into the MEASUREINIT sysvar

 

nevermind! I found it!

--
Princess Jamie,

Life shrinks or expands in proportion to one's courage.
- Anais Nin

| I want acad to always start with acad.dwt, using acad.lin and acad.pat.
I'm
| having a real problem in 2004 finding these things - any help would be
| welcome
|
| --
| Princess Jamie,
|
| Life shrinks or expands in proportion to one's courage.
| - Anais Nin
|
|

 

Hey Jeff, thanks for the help

I have a question - I want users to have layers properly set before using a
given command. If I try this through the menu can it be done like this:

^C^C(setuplayers);_dimlinear

how do i get the macro to wait while (setuplayers) is running?

I can put the dim command within a lisp but then hitting enter won't cause
the command to repeat if I'm trying to do it with one lisp.

Hope you can understand what i'm trying to do...



--
Princess Jamie,

Life shrinks or expands in proportion to one's courage.
- Anais Nin

| Look into the MEASUREINIT sysvar
|
| --
| Jeff
| check out www.cadvault.com
| >I want acad to always start with acad.dwt, using acad.lin and acad.pat.
| >I'm
| > having a real problem in 2004 finding these things - any help would be
| > welcome
| >
| > --
| > Princess Jamie,
| >
| > Life shrinks or expands in proportion to one's courage.
| > - Anais Nin
| >
| >
|
|

 

How about making a new function, "dimlin" and calling it in your menu?

^C^Cdimlin

(defun c:dimlin ()
(arctgl SetDimValues "SetDimValues")
(SetDimValues "_dimlinear")
(princ)
)

 

see here's a simple lisp for doing dimension commands

(defun SetDimValues ( the_choice /)
;; Save system variables
(arctvsav)
;;; set system variables
(setvar "osmode" 255)
(setvar "textstyle" "STANDARD")
;;; (setq *error* dimerr)
;;;
;;;-------------program
start------------------------------------------------
;;;
(if (or (null ARCTDMLA)(= ARCTDMLA "")(null ARCTDMHT)(<= ARCTDMHT 0))
(setupchaindim)
(progn
(jddsetcurlayer AFLDIV)
(setvar "dimtxt" ARCTDMHT)
)
)
(setvar "cmdecho" 1)
(command the_choice)
(while (> (getvar "CmdActive") 0)(command pause))
(arctvrst)
)
(princ)

the functions (arctvsav), (arctvrst) and (setchaindim) are loaded when the
file is opened

now I could set up the tool bar macro like this:

*^C^C^P(arctgl SetDimValues "SetDimValues");(SetDimValues "_dimlinear") ^P

(arctgl) is a function loader lisp.

now this kind of works, only the user is forced to hit 'esc' to exit the
dimlinear command.

and if I do this:

^C^C^P(arctgl SetDimValues "SetDimValues");(SetDimValues "_dimlinear") ^P


an enter will not repeat this macro. so what to do?

Princess Jamie,

Life shrinks or expands in proportion to one's courage.
- Anais Nin

| nevermind! I found it!
|
| --
| Princess Jamie,
|
| Life shrinks or expands in proportion to one's courage.
| - Anais Nin
|
| | I want acad to always start with acad.dwt, using acad.lin and acad.pat.
| I'm
| | having a real problem in 2004 finding these things - any help would be
| | welcome
| |
| | --
| | Princess Jamie,
| |
| | Life shrinks or expands in proportion to one's courage.
| | - Anais Nin
| |
| |
|
|

 

yeah, I could do that - and if it's c:dimlin then it will repeat

means I have to write a separate lisp for each command that I want to
intercept and control lyers to. and a reactor doesn't like user
input...,grrrr
--
Princess Jamie,

Life shrinks or expands in proportion to one's courage.
- Anais Nin

| How about making a new function, "dimlin" and calling it in your menu?
|
| ^C^Cdimlin
|
| (defun c:dimlin ()
| (arctgl SetDimValues "SetDimValues")
| (SetDimValues "_dimlinear")
| (princ)
| )
|
| --
| Jeff
| check out www.cadvault.com
| > see here's a simple lisp for doing dimension commands
| >
| > (defun SetDimValues ( the_choice /)
| > ;; Save system variables
| > (arctvsav)
| > ;;; set system variables
| > (setvar "osmode" 255)
| > (setvar "textstyle" "STANDARD")
| > ;;; (setq *error* dimerr)
| > ;;;
| > ;;;-------------program
| > start------------------------------------------------
| > ;;;
| > (if (or (null ARCTDMLA)(= ARCTDMLA "")(null ARCTDMHT)(<= ARCTDMHT 0))
| > (setupchaindim)
| > (progn
| > (jddsetcurlayer AFLDIV)
| > (setvar "dimtxt" ARCTDMHT)
| > )
| > )
| > (setvar "cmdecho" 1)
| > (command the_choice)
| > (while (> (getvar "CmdActive") 0)(command pause))
| > (arctvrst)
| > )
| > (princ)
| >
| > the functions (arctvsav), (arctvrst) and (setchaindim) are loaded when
the
| > file is opened
| >
| > now I could set up the tool bar macro like this:
| >
| > *^C^C^P(arctgl SetDimValues "SetDimValues");(SetDimValues "_dimlinear")
^P
| >
| > (arctgl) is a function loader lisp.
| >
| > now this kind of works, only the user is forced to hit 'esc' to exit the
| > dimlinear command.
| >
| > and if I do this:
| >
| > ^C^C^P(arctgl SetDimValues "SetDimValues");(SetDimValues "_dimlinear")
^P
| >
| >
| > an enter will not repeat this macro. so what to do?
| >
| > Princess Jamie,
| >
| > Life shrinks or expands in proportion to one's courage.
| > - Anais Nin
| >
| > | nevermind! I found it!
| > |
| > | --
| > | Princess Jamie,
| > |
| > | Life shrinks or expands in proportion to one's courage.
| > | - Anais Nin
| > |
| > | | I want acad to always start with acad.dwt, using acad.lin and
| > acad.pat.
| > | I'm
| > | | having a real problem in 2004 finding these things - any help would
be
| > | | welcome
| > | |
| > | | --
| > | | Princess Jamie,
| > | |
| > | | Life shrinks or expands in proportion to one's courage.
| > | | - Anais Nin
| > | |
| > | |
| > |
| > |
| >
| >
|
|

 

I use an acad.lsp to set styles, text height, decimal or architectural format,
layers with appropriate colors and linetypes and a host of other items
including some small lsp routines that the acad.pgp can't cover. This lsp comes
up immediately and was used extensively at Exxon (still is) for years.