Command ALIAS editing during drawing session
Command ALIAS editing during drawing session
(OP)
Remember the old "BONUS" menus circulated w/ ACAD r14? One of my favorite features was the ability to select editing Command ALIASes from a pull-down menu inside an actice drawing editing session. Is there a corresponding function in r2000i? How about Sustem Variables editor, too?
** I'm fully aware of the ability to edit PGP files using notepad in Windows. However, this facility seems disabled here, as an important edit failed to take effect when I "REINIT"ed the PGP file. Also, a variable I wanted to edit didn't appear in the online help, so I had to come here for a variable name. (Thanks again, FM)
Thanks-
C.F.
** I'm fully aware of the ability to edit PGP files using notepad in Windows. However, this facility seems disabled here, as an important edit failed to take effect when I "REINIT"ed the PGP file. Also, a variable I wanted to edit didn't appear in the online help, so I had to come here for a variable name. (Thanks again, FM)
Thanks-
C.F.





RE: Command ALIAS editing during drawing session
BU
RE: Command ALIAS editing during drawing session
Thanks again,
C.F.
RE: Command ALIAS editing during drawing session
BU
RE: Command ALIAS editing during drawing session
Endpoint, Midpoint etc. Can anybody tell me, how these can be modified?
Thanks,
R.S.
RE: Command ALIAS editing during drawing session
RE: Command ALIAS editing during drawing session
R.S.
RE: Command ALIAS editing during drawing session
here is what i have set up for my function keys.. note if you use snap and that sort that are standards you can still use those w/ a shift+f8.
["F1"]Per
["F2"]Mid
["F3"]End
["F4"]Int
[SHIFT+"F4"]App
["F5"]Nod
["F11"]Cen
["F12"]Qua
[SHIFT+"F12"]Tan
RE: Command ALIAS editing during drawing session
Thanks for the great help.
R.S.
RE: Command ALIAS editing during drawing session
RE: Command ALIAS editing during drawing session
;
(DEFUN C:C () (COMMAND "OSNAP" "CEN") (PRINC)) ; Osnap Center
;
(DEFUN C:CM () (COMMAND "OSNAP" "CEN,MID") (PRINC)) ; Osnaps CEN and MID
;
(DEFUN C:E () (COMMAND "OSNAP" "ENDP") (PRINC)) ; OSnap END
;
(DEFUN C:EC () (COMMAND "OSNAP" "END,CEN") (PRINC)) ; OSnap END, CEN
;
(DEFUN C:EI () (COMMAND "OSNAP" "INT,END") (PRINC)) ; OSnap INT, END
;
(DEFUN C:EM () (COMMAND "OSNAP" "END,MID") (PRINC)) ; Osnap END, MID
;
(DEFUN C:EQ () (COMMAND "OSNAP" "END,QUA") (PRINC)) ; OSnap END, QUA
;
(DEFUN C:I () (COMMAND "OSNAP" "INT") (PRINC)) ; OSnap INT
;
(DEFUN C:M () (COMMAND "OSNAP" "MID") (PRINC)) ; OSnap MID
;
(DEFUN C:N () (COMMAND "OSNAP" "NONE") (PRINC)) ; OSnap NONE
;
(DEFUN C:NE () (COMMAND "OSNAP" "NEA") (PRINC)) ; OSnap NEAR
;
(DEFUN C:NO () (COMMAND "OSNAP" "NOD") (PRINC)) ; OSnap NODE
;
(DEFUN C:Q () (COMMAND "OSNAP" "QUA") (PRINC)) ; OSnap QUA
;
(DEFUN C:QC () (COMMAND "OSNAP" "QUICK,CEN") (PRINC)) ; OSnap Quick CEN
;
(DEFUN C:QE () (COMMAND "OSNAP" "QUA,END") (PRINC)) ; OSnap Quick END
;
(DEFUN C:QEI () (COMMAND "OSNAP" "QUICK,INT,ENDP") (PRINC)) ; OSnap Quick END, INT
;
(DEFUN C:QES () (COMMAND "OSNAP" "QUICK,ENDP,INS") (PRINC)) ; OSnap Quick END, INS
;
(DEFUN C:QI () (COMMAND "OSNAP" "QUICK,INT") (PRINC)) ; OSnap Quick INT
;
(DEFUN C:QQ () (COMMAND "OSNAP" "QUICK,QUA") (PRINC)) ; OSnap Quick QUA
;
(DEFUN C:QM () (COMMAND "OSNAP" "QUICK,MID") (PRINC)) ; OSnap Quick MID
;
RE: Command ALIAS editing during drawing session
Could you expand on this a little? I have used macros, but haven't done any LISP programming. Would I copy this to my acad2000.lsp file? Does it replace CEN with C etc.?
Thanks,
R.S.
RE: Command ALIAS editing during drawing session
It defines new commands.
After you copy it into the acad.lsp file (put it at the end) start Autocad and your new commands should be ther.
Type "C" to set the OSNAP to CEN, etc.
This is not used in the middle of a command like "LINE" but before the LINE command to set the OSNAPs.
The OSNAPs will stay what you set them to until you change them again.
Each one has a DEFUN which means define function and after that there is a C: which means autocad keeps it in memory, then the name of the function. For example, "DEFUN C:N ()" defines a new function called "N" with no variables [ the empty () ]. What comes after are the commands that make up the function. These are very short, just setting OSNAPs. The word "COMMAND" tells autocad that what follows is just as if you typed it yourself. The "PRINC" at the end just tells Autocad not to say anything when the command is run. The stuff after the ";" is a comment.
You could also save it as a new file, like "Snaps.lsp" and then in autocad "LOAD" it using the menu pulldown or the "LOAD" command on the command line. The full command line would be (load "Snaps"), of course, the file would have to be saved in a place that Autocad looks in (see Preferences or Options).
RE: Command ALIAS editing during drawing session
Thanks, I will try this.
R.S.
RE: Command ALIAS editing during drawing session
Here is another Pop0 menu fragment that enhances (IMHO) the Ctrl-Right-Click menu. Replace your Pop0 section with this. Try the new ctrl-right-click options!!
***POP0
**P0main
[Osnap]
[Zoom E]'Zoom E
[Zoom P]'Zoom P
[Zoom W]'Zoom W
[Pan]'Pan
[Set Osnaps]$p0=P0Osnaps $p0=*
[--]
[Non 0,0]_non 0,0
[@0,0]@0,0
[From]_from
ID_Tracking [Temporary trac&k point]_tt
[--]
[$(if,$(and,$(getvar,osmode),4),!.)CENter]_center
[$(if,$(and,$(getvar,osmode),1),!.)ENDpoint]_endp
[$(if,$(and,$(getvar,osmode),64),!.)INSert]_ins
[$(if,$(and,$(getvar,osmode),32),!.)INTersection]_int
[$(if,$(and,$(getvar,osmode),2048),!.)ApparantINT]_appint
[$(if,$(and,$(getvar,osmode),2),!.)MIDpoint]_mid
[$(if,$(and,$(getvar,osmode),512),!.)NEArest]_nea
[$(if,$(and,$(getvar,osmode),8),!.)NODe]_nod
[$(if,$(and,$(getvar,osmode),8192),!.)PARa]_par
[$(if,$(and,$(getvar,osmode),128),!.)PERpendicular]_per
[$(if,$(and,$(getvar,osmode),16),!.)QUAdrant]_qua
[$(if,$(and,$(getvar,osmode),256),!.)TANgent]_tan
[$(if,$(=,0,$(getvar,osmode)),!.)NONe]_non
[--]
[.X].X
[.Y].Y
[.Z].Z
[.XY].XY
[.XZ].XZ
[.YZ].YZ
[--]
[Calculator]'cal
**P0Osnaps
[Snaps]
[Goto Dwg ]$p0=P0Main
[Pop 0]$p0=P0Main $p0=*
[--]
[Non]'setvar osmode 0 $p0=P0Main
[--]
[Add Snaps ]
[$(if,$(and,$(getvar,osmode),4),!.) CENter]'setvar osmode (+ (getvar "osmode") 4) $p0=P0Osnaps $p0=*
[$(if,$(and,$(getvar,osmode),1),!.) ENDpoint]'setvar osmode (+ (getvar "osmode") 1) $p0=P0Osnaps $p0=*
[$(if,$(and,$(getvar,osmode),64),!.) INSert]'setvar osmode (+ (getvar "osmode") 64) $p0=P0Osnaps $p0=*
[$(if,$(and,$(getvar,osmode),32),!.) INTersection]'setvar osmode (+ (getvar "osmode") 32) $p0=P0Osnaps $p0=*
[$(if,$(and,$(getvar,osmode),2048),!.) ApparantINT]'setvar osmode (+ (getvar "osmode") 2048) $p0=P0Osnaps $p0=*
[$(if,$(and,$(getvar,osmode),2),!.) MIDpoint]'setvar osmode (+ (getvar "osmode") 2) $p0=P0Osnaps $p0=*
[$(if,$(and,$(getvar,osmode),512),!.) NEArest]'setvar osmode (+ (getvar "osmode") 512) $p0=P0Osnaps $p0=*
[$(if,$(and,$(getvar,osmode),8),!.) NODe]'setvar osmode (+ (getvar "osmode") 8) $p0=P0Osnaps $p0=*
[$(if,$(and,$(getvar,osmode),128),!.) PERpendicular]'setvar osmode (+ (getvar "osmode") 128) $p0=P0Osnaps $p0=*
[$(if,$(and,$(getvar,osmode),16),!.) QUAdrant]'setvar osmode (+ (getvar "osmode") 16) $p0=P0Osnaps $p0=*
[$(if,$(and,$(getvar,osmode),256),!.) TANgent]'setvar osmode (+ (getvar "osmode") 256) $p0=P0Osnaps $p0=*
[--]
[Remove Snaps ]
[$(if,$(and,$(getvar,osmode),4),!.) CENter]'setvar osmode (- (getvar "osmode") 4) $p0=P0Osnaps $p0=*
[$(if,$(and,$(getvar,osmode),1),!.) ENDpoint]'setvar osmode (- (getvar "osmode") 1) $p0=P0Osnaps $p0=*
[$(if,$(and,$(getvar,osmode),64),!.) INSert]'setvar osmode (- (getvar "osmode") 64) $p0=P0Osnaps $p0=*
[$(if,$(and,$(getvar,osmode),32),!.) INTersection]'setvar osmode (- (getvar "osmode") 32) $p0=P0Osnaps $p0=*
[$(if,$(and,$(getvar,osmode),2048),!.) ApparantINT]'setvar osmode (- (getvar "osmode") 2048) $p0=P0Osnaps $p0=*
[$(if,$(and,$(getvar,osmode),2),!.) MIDpoint]'setvar osmode (- (getvar "osmode") 2) $p0=P0Osnaps $p0=*
[$(if,$(and,$(getvar,osmode),512),!.) NEArest]'setvar osmode (- (getvar "osmode") 512) $p0=P0Osnaps $p0=*
[$(if,$(and,$(getvar,osmode),8),!.) NODe]'setvar osmode (- (getvar "osmode") 8) $p0=P0Osnaps $p0=*
[$(if,$(and,$(getvar,osmode),128),!.) PERpendicular]'setvar osmode (- (getvar "osmode") 128) $p0=P0Osnaps $p0=*
[$(if,$(and,$(getvar,osmode),16),!.) QUAdrant]'setvar osmode (- (getvar "osmode") 16) $p0=P0Osnaps $p0=*
[$(if,$(and,$(getvar,osmode),256),!.) TANgent]'setvar osmode (- (getvar "osmode") 256) $p0=P0Osnaps $p0=*