topic Re: Please help by adding outer border to the surface in Civil 3D Customization Forum

Please help by adding outer border to the surface

hosneyalaa — Tue, 15 Dec 2020 13:00:21 GMT

Hello all
I'm trying to add an outer border to the surface
But it does not take the type limit
Do you solve the problem
And if you choose another type boundary ( "Show" "Hide" "DataClip" ) , it works

(defun c:test_boundary ( / *ACAD* ALGN BLKSOBJ C3D C3DDOC DOC ENT E_TYP OBENT PNTS SPC SRF XSTTY) (vl-load-com) (IF (OR (setq algn (vlax-ename->vla-object (setq obent(car (entsel "\nSelect Polyline: "))))) (while (not (= (vlax-get-property algn 'ObjectName) "AcDbPolyline")) (setq algn (vlax-ename->vla-object (car (entsel "\nSelect Polyline: ")))) ) ) (PROGN ;; Jeff Mishler (defun getaeccApp (module / *acad* C3D) ;; module must be "Land", "Pipe", "Roadway", or "Survey" (vl-load-com) (if (and (setq *acad* (vlax-get-acad-object)) (setq C3D (strcat "HKEY_LOCAL_MACHINE\\" (if vlax-user-product-key (vlax-user-product-key) (vlax-product-key) ) ) C3D (vl-registry-read C3D "Release") C3D (substr C3D 1 (vl-string-search "." C3D (+ (vl-string-search "." C3D) 1) ) ) C3D (vla-getinterfaceobject (vlax-get-acad-object) (strcat "AeccXUi" module ".Aecc" (if (= (strcase module) "LAND") "" module ) "Application." C3D ) ) ) ) C3D ) ) (setq aeccapp (getaeccapp "Land")) (setq c3ddoc (vlax-get aeccapp 'activedocument) surfs (vlax-get c3ddoc 'surfaces) ) (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 xSTTY NIL) ;;http://docs.autodesk.com/CIV3D/2012/ENU/API_Reference_Guide/com/AeccXLandLib__IAeccSurfaceBoundaries__Add@[in]_IAcadEntity_@[in]_BSTR@[in]_AeccBoundaryType@[in]_VARIANT_BOOL@[in]_double@[out,_retval]_IAeccSurfaceBoundary__.htm (setq e_typ (CAR(LM:listbox "Select surface boundary type " (LIST "Outer" "Show" "Hide" "DataClip") 1))) (cond ( (= e_typ "Outer") (setq xSTTY 3) ) ( (= e_typ "Show") (setq xSTTY 1) ) ( (= e_typ "Hide") (setq xSTTY 2) ) ( (= e_typ "DataClip") (setq xSTTY 4) ) ) (vlax-invoke (vlax-get srf 'Boundaries) 'add (CAR (LIST algn)) "ENG" 3 ;;Weeding distance :vlax-TRUE ;;Weeding angle ;;; 25.0 ;;Supplemental distance 0.05 ;;Midordinate distnace ) ;;;(setq pSECTION (vlax-invoke-method (vlax-get srf 'Boundaries) 'item 0)) ;;; (vlax-get pSECTION 'TYPE) ;;; (vlax-put-property '(vlax-get pSECTION 'TYPE) 1) ) ) (princ) ) ;;-----------------------=={ List Box }==---------------------;; ;; ;; ;; Displays a List Box allowing the user to make a selection ;; ;; from the supplied data. ;; ;;------------------------------------------------------------;; ;; Author: Lee Mac, Copyright Â© 2011 - www.lee-mac.com ;; ;;------------------------------------------------------------;; ;; Arguments: ;; ;; title - List Box Dialog title ;; ;; data - List of Strings to display in the List Box ;; ;; multiple - Boolean flag to determine whether the user ;; ;; may select multiple items (T=Allow Multiple) ;; ;;------------------------------------------------------------;; ;; Returns: List of selected items, else nil. ;; ;;------------------------------------------------------------;; (defun LM:ListBox ( title data multiple / file tmp dch return ) ;; Â© Lee Mac 2011 (cond ( (not (and (setq file (open (setq tmp (vl-filename-mktemp nil nil ".dcl")) "w")) (write-line (strcat "listbox : dialog { label = \"" title "\"; spacer; : list_box { key = \"list\"; multiple_select = " (if multiple "true" "false") "; } spacer; ok_cancel;}" ) file ) (not (close file)) (< 0 (setq dch (load_dialog tmp))) (new_dialog "listbox" dch) ) ) ) ( t (start_list "list") (mapcar 'add_list data) (end_list) (setq return (set_tile "list" "0")) (action_tile "list" "(setq return $value)") (setq return (if (= 1 (start_dialog)) (mapcar '(lambda ( x ) (nth x data)) (read (strcat "(" return ")"))) ) ) ) ) (if (< 0 dch) (unload_dialog dch)) (if (setq tmp (findfile tmp)) (vl-file-delete tmp)) return )

Re: Please help by adding outer border to the surface

hippe013 — Tue, 15 Dec 2020 14:37:12 GMT

This should help point you in the right direction.

;Get the Surface Object, the Polyline Object, and the Name of the Boundary (setq surf (vlax-ename->vla-object (car (entsel "\nSelect Surface: ")))) (setq pl (vlax-ename->vla-object (car (entsel "\nSelect Boundary ")))) (setq name (getString "\nEnter Boundary Name: ")) ;Get the Boundaries (setq bounds (vlax-get-property obj 'Boundaries)) ;Available Boundary Types (setq boundType 1) ;Show (setq boundType 2) ;Hide (setq boundType 4) ;Outer (setq boundType 😎 ;DataClip ;Destructive or Non-Destructive (setq NonDestruct :vlax-True) ;Object will be clipped at Boundary (setq NonDestruct :vlax-False);Object will not be clipped at Boundary ;Mid-Ordinate Distance (setq midOrd 1.0) ;Invoke the Add method on the Boundaries (setq ret (vlax-invoke-method bounds 'Add pl name boundType NonDestruct midOrd ))

Re: Please help by adding outer border to the surface

hosneyalaa — Tue, 15 Dec 2020 19:45:25 GMT

@hippe013

Thank you so much
Thank you again
Question -1 What is the front number (setq boundType ;DataClip Not shown

Another question, please
Does choosing numbers in front of boundType have a reference?
Or experimenting

;Available Boundary Types (setq boundType 1) ;Show (setq boundType 2) ;Hide (setq boundType 4) ;Outer (setq boundType ;DataClip

Re: Please help by adding outer border to the surface

hippe013 — Tue, 15 Dec 2020 20:59:16 GMT

oops! Sorry I left that out. For a DataClip:

(setq boundType 8);DataClip

I don't quite understand your second question.

Re: Please help by adding outer border to the surface

hosneyalaa — Wed, 16 Dec 2020 04:49:17 GMT

@hippe013 Hello

second question.

Re: Please help by adding outer border to the surface

hippe013 — Wed, 16 Dec 2020 15:48:42 GMT

Does this answer your question?

(setq e_typ (CAR(LM:listbox "Select surface boundary type " (LIST "Outer" "Show" "Hide" "DataClip") 1))) (cond ((= e_typ "Show") (setq boundType 1)) ((= e_typ "Hide") (setq boundType 2)) ((= e_typ "Outer") (setq boundType 4)) ((= e_typ "DataClip") (setq boundType 8)) )

I was providing you an example of the boundType enum. I was using different variable names and not relating back to your code. I had assumed that the example I provided would direct you in modifying your code as I didn't want to re-write your entire code.

After the user has selected a bound type using Lee Mac's listbox, a cond statement is used to determine what the user selected and which boundtype enum should be set. You may want to add additional user prompts to get the other parameters; ie BoundaryName, Destruct vs Non-Destruct, and the MidOrd distance from the user. Refer to my above example for actually creating the boundary as your current example is hard coded and may not produce the results that you want.

Re: Please help by adding outer border to the surface

Jeff_M — Wed, 16 Dec 2020 16:31:11 GMT

@hippe013 I think @hosneyalaa was wanting to know how you found the enum values for the boundary type.

Re: Please help by adding outer border to the surface

hippe013 — Wed, 16 Dec 2020 16:56:35 GMT

@Jeff_M Now that you say that, that makes sense.

See this link for reference

Re: Please help by adding outer border to the surface

hosneyalaa — Wed, 16 Dec 2020 17:56:38 GMT

Thank you so much @hippe013 and @Jeff_M

Yeah
This is what I was asking for
Thank you both