Get Properties Upon Selection
@GeryKnee wrote:<snip>
I can’t write lisp codes.
Thanks,
Gery
You're in luck. This is the perfect opportunity to learn, and you're in the right place to find all the info you need. 
This will get you started:
(defun c:inheritProp ( / ss ent entType entLayer)
; --- DESCRIPTION --------------------------------------------------------------
; - Select single entity. Accept preselection, 1 object only
; - Current layer = entity layer
; - Current color = ByLayer
; - Current linetype = ByLayer
; - case of:
; - Dimension : set dimstyle as default
; - Lwpolyline : set global width as default
; - Hatch : set props as default (hatch)
; - Text : set props as default (textstyle)
; --- MAIN ---------------------------------------------------------------------
; get entity
(if (setq ss (ssget "i")) ; if there's a selection present
(if (> 1 (sslength ss)) ; if it has more then one
(progn
(princ "\nJust one object expected")
(exit) ; exit
)
(setq ent (entget (nth 0 ss))) ; preselected entity
)
)
(if (= ss nil)
(setq ent (entget (car (entsel)))) ; user selected entity
)
; retrieve entity data
(setq entType (cdr (assoc 0 ent))) ; retrieve entity type
(setq entLayer (cdr (assoc 8 ent))) ; retrieve entity layer
(command "_.-layer" "_s" entLayer "") ; set entity layer as current
(command "-linetype" "_s" "ByLayer" "") ; set linetype ByLayer
(command "-color" "ByLayer") ; set color ByLayer
(princ (strcat "\nEntity is: " entType))
(cond
((= entType "TEXT")
; retrieve & set text properties
(princ "\nSync. current Textstyle")
)
((= entType "LWPOLYLINE")
; retrieve & set global width
(princ "\nSync. current Global Width")
)
((= entType "HATCH")
; retrieve & set HatchPattern
(princ "\nSync. current Hatch pattern")
)
((= entType "DIMENSION")
; retrieve & set Dimstyle
(princ "\nSync. current Dimension style")
)
)
; --- END ----------------------------------------------------------------------
(princ)
)
I can do better than that.... Try MakeMore.lsp, with its MM command, available >here<. Not only does it work in either verb-noun or noun-verb operation with limitation to a single object, and sets the various properties of a selected object current [for many more than your listing of object types or @roland.r71's offering], but it recognizes characteristics of certain things and offers default values.
For example, there's no such thing as a Rectangle entity type, but the RECTANG command makes a Polyline. But so do a variety of other commands -- DONUT, POLYGON, REVCLOUD, sometimes BOUNDARY or SKETCH. When you pick on any Polyline in MM, it offers all those possibilities to choose from [this is a big step up from AutoCAD's ADDSELECTED command, which just starts a basic PLINE command, no matter what kind of Polyline you pick on]. But if the Polyline is rectangular, it recognizes that, and offers RECTANG as the default kind of Polyline-making command, so you can just hit Enter and it will go into that, not simply into PLINE as ADDSELECTED does. And it recognizes one made with DONUT, and a regular POLYGON, and an unaltered REVCLOUD, and offers those as default commands [while still offering all the other possibilities to choose from].
Similarly, if you pick a Text object, it offers the choice of whether to make a New one anywhere you want, or as a Continuation to a next one below the one you picked, as if you were still in the TEXT command that made it. Or if you pick a Dimension object, it offers you the choice whether to make a New one anywhere, or use the Baseline or Continue options from the selected one. And if you pick a Point object, it doesn't just go into a POINT command as ADDSELECTED does, but offers a choice between that and MEASURE and DIVIDE, either of which could have been the origin of the selected object. Etc., etc.
@GeryKnee wrote:
....
I downloaded the SetAs lsp file.
It's near what i want, but....
Just to clarify -- SetAs is an older routine by someone else, linked to in the description in the post where MakeMore is. I did MakeMore to overcome some shortcomings I saw in SetAs. MakeMore could easily be altered to remove the calling of the command itself, if that's what you need [though I do wonder why you would want to, for example, set a Hatch's pattern name current if you don't then want to make another Hatch].
@GeryKnee wrote:
....
If you have information about list of all system variables with remarks about the value type and readonly state you'll help me. ....
Just press F1 for Help, and pick on this [may vary slightly in different versions]:
