civil:style-set-labelstyle-dragparam
(civil:style-set-labelstyle-dragparam
nameOrEname styleCategory property
value)
Assigns a new value for the 'Dragged State'
style parameter property
of the nameOrEname Civil Label Style
object in styleCategory
category.
Arguments
|
nameOrEname
(string | ename) specifies the
Label Style object, as string name or ename of the style
object
styleCategory (integer bit flag) combination of
ECivil3dLabelStyleCategory values
property (string) specifies the 'Dragged State'
parameter to get the new value
value (integer | double | string | ename) the new
value to be assigned
|
Return
|
T or NIL
|
Example
|
(vl-load-civil)
T
(setq labelStyleNames
(civil:style-get-labelstyles bcCivilPointLabel T)) ("Default"
"pointstyle1" "pointstyle2")
(setq style (civil:style-get-labelstyle
"Default" bcCivilPointLabel)) <Entity name:
320044d0>
(setq dragparams
(civil:style-get-labelstyle-dragparams "Default"
bcCivilPointLabel))
(("LeaderArrowHead" . "")
("LeaderArrowHeadSize" . 3.0) ("LeaderVisibility" . "On")
("LeaderType" . 0) ("LeaderColor" . 256) ("LeaderLinetype" .
"ByLayer") ("LeaderLineweight" . -3) ("LeaderAttachment" . 2)
("LeaderTextAlignment" . "On") ("LeaderTail" . "Off")
("DisplayMode" . 1) ("BorderVisibility" . "On") ("BorderType" . 0)
("BackgroundMask" . "Off") ("BorderAndLeaderGap" . 1.0)
("TextHeight" . 2.5) ("TagDisplayMode" . "On") ("Color" . 256)
("Linetype" . "ByLayer") ("Lineweight" . -3) ("MaximumTextWidth" .
0.0))
(civil:style-set-labelstyle-dragparam labelId
bcCivilPointLabel "LeaderColor" 1) T
(setq dragparams
(civil:style-get-labelstyle-dragparams "Default"
bcCivilPointLabel))
(("LeaderArrowHead" . "")
("LeaderArrowHeadSize" . 3.0) ("LeaderVisibility" . "On")
("LeaderType" . 0) ("LeaderColor" . 1) ("LeaderLinetype" .
"ByLayer") ("LeaderLineweight" . -3) ("LeaderAttachment" . 2)
("LeaderTextAlignment" . "On") ("LeaderTail" . "Off")
("DisplayMode" . 1) ("BorderVisibility" . "On") ("BorderType" . 0)
("BackgroundMask" . "Off") ("BorderAndLeaderGap" . 1.0)
("TextHeight" . 2.5) ("TagDisplayMode" . "On") ("Color" . 256)
("Linetype" . "ByLayer") ("Lineweight" . -3) ("MaximumTextWidth" .
0.0))
|
Remarks
|
styleCategory
: see ECivil3dLabelStyleCategory bit values
|