Dear Readers,
Why is it impossible in a regular AutoCAD to specify the LineWeight as a string?
Because it is possible in educational version of AutoCAD!
(vla-put-Lineweight NewLayer 18) versus (vla-put-Lineweight NewLayer "0.18")
Regards.
(defun c:Test1 ();Works in regular AutoCAD and educational AutoCAD
(vl-load-com)
(setq doc (vla-get-ActiveDocument
(vlax-get-Acad-Object)
)
)
(setq LayerCollection (vla-Get-Layers doc))
(setq NewLayer (vla-add LayerCollection "Layer1"))
(vla-put-color NewLayer "4")
(if (not (tblobjname "ltype" "CENTER"))
(vla-load (vla-Get-Linetypes doc) "CENTER" "acadiso.lin")
)
(vla-put-linetype NewLayer "CENTER")
(vla-put-Lineweight NewLayer 18) ; ADD A lineweight.
)
(defun c:Test2 ();Works only in educational AutoCAD
(vl-load-com)
(setq doc (vla-get-ActiveDocument
(vlax-get-Acad-Object)
)
)
(setq LayerCollection (vla-Get-Layers doc))
(setq NewLayer (vla-add LayerCollection "Layer2"))
(vla-put-color NewLayer "4")
(if (not (tblobjname "ltype" "CENTER"))
(vla-load (vla-Get-Linetypes doc) "CENTER" "acadiso.lin")
)
(vla-put-linetype NewLayer "CENTER")
(vla-put-Lineweight NewLayer "0.18") ; ADD A lineweight.
)