Add a breakline to an existing surface using LISP
Here is an example to add a Wall breakline, refer to the help for other types.
(defun c:test_AddWallBreakline ( / *ACAD* ALGN BLKSOBJ C3D C3DDOC DOC ENT E_TYP OBENT PNTS SPC SRF XSTTY)
(vl-load-com)
(defun makevariant (vtype listvalue / )
(setq array (vlax-make-variant listvalue))
(setq sa (vlax-make-safearray (vlax-variant-type array) (cons 0 0)))
(vlax-safearray-fill sa (list array))
sa
)
(IF (OR
(setq algn (vlax-ename->vla-object (setq lw(car (entsel "\nSelect Polyline: ")))))
(while (not (= (vlax-get-property algn 'ObjectName) "AcDbPolyline"))
(setq algn (vlax-ename->vla-object (car (entsel "\nSelect Polyline: "))))
)
)
(PROGN
(setq srf (vlax-ename->vla-object (setq ent (car (entsel "\nSelect Surface: ")))))
(while (not (= (vlax-get-property srf 'ObjectName) "AeccDbSurfaceTin"))
(setq srf (vlax-ename->vla-object (car (entsel "\nEntity must be C3D Surface. Try again: "))))
)
(setq breaks (vlax-get srf 'Breaklines))
;;http://docs.autodesk.com/CIV3D/2012/ENU/API_Reference_Guide/com/AeccXLandLib__IAeccSurfaceBreaklines__AddWallBreakline@[in]_VARIANT@[in]_BSTR@[in]_double@[in]_VARIANT@[in]_VARIANT@[out,_retval]_IAeccSurfaceBreakline___.htm
(vlax-invoke-method
breaks
'AddWallBreakline
(makevariant nil algn)
(vlax-get-property algn 'HANDLE)
0.1
(makevariant vlax-vbdouble 1.0) ;;LEVEL
(makevariant vlax-vbboolean 1) ;;LEVEL
)
)
)
(princ)
)
HI @Jeff_M
THANT YOU FOR an example to add a Wall breakline
But
When I tried it it didn't work An error appeared with me
can you take a look
Command: TEST_ADDWALLBREAKLINE
Select Polyline:
Select Surface: ; error: Automation Error. Description was not provided.
@hosneyalaa yes, I am seeing the same thing. This is something I wrote years ago and I did not test it prior to posting yesterday. It's been long enough ago that I don't recall if it ever worked. I've just tried a number of things to get it working, none have been successful. When I get some more time I will try again.
@artirtas9100 here is a lisp that asks you to select the surface then select a polyline on the layer containing polylines. It will then get all polylines on that layer and add them as a single breakline set to the selected surface.
(defun c:AddBreaklines2Surface (/ brkline brklines srf breaks ss->array)
;; the following function from the AutoCAD Expert's Visual Lisp book
;; by Reinaldo N. Togores
;; http://lispexpert.blogspot.com/p/blog-page_94.html
(defun ss->array (sel-set / index array)
(setq index 0
array (vlax-make-safearray
vlax-vbObject
(cons 0 (1- (sslength sel-set)))
)
)
(repeat (sslength sel-set)
(vlax-safearray-put-element
array
index
(vlax-ename->vla-object (ssname sel-set index))
)
(setq index (1+ index))
)
(vlax-make-variant array)
)
(setq srf (vlax-ename->vla-object
(ssname (ssget "_:S+." '((0 . "AECC_TIN_SURFACE"))) 0)
)
)
(setq brkline (vlax-ename->vla-object
(setq lw
(car (entsel
"\nSelect Polyline on layer with breaklines: "
)
)
)
)
brklines (ss->array (ssget "X"
(list '(0 . "*POLYLINE*")
(cons 8 (vla-get-layer brkline))
)
)
)
)
(setq breaks (vlax-get srf 'Breaklines))
(vlax-invoke-method
breaks 'AddStandardBreakline brklines (strcat "added from layer: " (vla-get-layer brkline)) 0.1)
;rebuild surface
(vlax-invoke-method srf 'rebuild)
(princ)
)
