(setq ej (car (entsel)))
(setq ej-obj (vlax-ename->vla-object ej))
(vla-put-lineweight ej-obj acLnWtByLayer );_ it is {color:#0000ff}acLnWtByLayer{color} not {color:#ff0000}acByLAyer{color}
(setvar 'lwdisplay 1);_ set to see the lineweight
(vla-put-Thickness ej-obj acByLayer);_, which runs; but does not change the line width. What does it do?
;;;Thickness is HIGH, you will see in a: left, rigth, front, back, view, or a any iso view
;;;lineweight is wide
;;;I also found (vla-put-Width (vlax-ename->vla-object ej) acByLayer); but it will not run period and I suppose that might be because it is Test ;;Width. is a LWPOLINE prop.
;;;
;;;Width is not a line property.
;;;To get prop and method for an OBJ use
(vlax-dump-Object ej-obj t)
; IAcadLine: AutoCAD Line Interface
; Property values:
; Angle (RO) = 6.08505
; Application (RO) = #<VLA-OBJECT IAcadApplication 00d73d3c>
; Delta (RO) = (339.007 -68.0628 0.0)
; Document (RO) = #<VLA-OBJECT IAcadDocument 01f15ad0>
; EndPoint = (274.041 48.5839 0.0)
; Handle (RO) = "1FB"
; HasExtensionDictionary (RO) = 0
; Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 1145319c>
; Layer = "0"
; Length (RO) = 345.772
; Linetype = "ByLayer"
; LinetypeScale = 1.0
; Lineweight = -1
; Material = "ByLayer"
; Normal = (0.0 0.0 1.0)
; ObjectID (RO) = 2128557592
; ObjectName (RO) = "AcDbLine"
; OwnerID (RO) = 2128592120
; PlotStyleName = "ByLayer"
; StartPoint = (-64.9665 116.647 0.0)
; Thickness = 0.0
; TrueColor = #<VLA-OBJECT IAcadAcCmColor 02040948>
; Visible = -1
; Methods supported:
; ArrayPolar (3)
; ArrayRectangular (6)
; Copy ()
; Delete ()
; GetBoundingBox (2)
; GetExtensionDictionary ()
; GetXData (3)
; Highlight (1)
; IntersectWith (2)
; Mirror (2)
; Mirror3D (3)
; Move (2)
; Offset (1)
; Rotate (2)
; Rotate3D (3)
; ScaleEntity (2)
; SetXData (2)
; TransformBy (1)
; Update ()
_$
Edited by: DEVITG on Dec 12, 2008 8:18 PM