Create Surface by lisp

[mrmonemi]

Hi
When I want to create a surface from file like this:

(if (findfile "D:/DATA_TEXT/1.txt")
     (createtinfromfile "D:\\DATA_TEXT\\1.txt" "Surf1" "s1" "Standard" "ENZ (comma delimited)")
)

I must first create a surface manually in civil 3d
otherwise can not create surface by lisp
please help me

[rkmcswain]

You might want to ask Jeff over in the thread where this function was posted.

https://forums.autodesk.com/t5/autoc...e/td-p/6341097

[dilanveras1987765787]

Here, I fixed it ..

(defun createTINfromfile
       (filename surfacename layer stylename fileformat /
	*acad* c3d c3ddoc datastr names pfiles prodstring surf surfs tincreationdata verstring)
  (vl-load-com)
  (setq	C3D	   (strcat "HKEY_LOCAL_MACHINE\\"
			   (if vlax-user-product-key
			     (vlax-user-product-key)
			     (vlax-product-key)
			   )
		   )
	C3D	   (vl-registry-read C3D "Release")
	verstring  (substr C3D
			   1
			   (vl-string-search
			     "."
			     C3D
			     (+ (vl-string-search "." C3D) 1)
			   )
		   )
	prodstring (strcat "AeccXUiLand.AeccApplication." verstring)
  )
  (setq datastr (strcat "AeccXLand.AeccTinCreationData." verstring))

  (if (and (setq *acad* (vlax-get-acad-object))
	   (setq C3D (vla-getinterfaceobject *acad* prodstring))
	   (setq C3Ddoc (vla-get-activedocument C3D))
	   (setq surfs (vlax-get C3Ddoc 'surfaces))
	   (setq tincreationdata (vla-getinterfaceobject *acad* datastr))
      )
    (progn
      ;;make sure we don't try to use a duplicate name
	  (vlax-for surf surfs
	     (setq names (cons (vlax-get surf 'name) names))
	   )
      (while (member surfacename names)
	  (setq surfacename (strcat surfacename "(1)"))
      )
      (vlax-put tincreationdata 'baselayer layer)
      (vlax-put tincreationdata 'layer layer)
      (vlax-put tincreationdata 'description "Surface from Lisp")
      (vlax-put tincreationdata 'name surfacename)
      (vlax-put tincreationdata 'style stylename)
      ;;style must exist!
      (setq
	surf   (vlax-invoke-method surfs 'addtinsurface tincreationdata)
	pfiles (vlax-get surf 'pointfiles)
      )
      (vlax-invoke-method
	pfiles 'add filename fileformat	:vlax-false :vlax-false
	:vlax-false)
      (vlax-invoke surf 'rebuild)

      ;; do whatever else is needed
      (vlax-release-object tincreationdata)
      (vlax-release-object surf)
      (vlax-release-object surfs)
      (vlax-release-object c3ddoc)
      (vlax-release-object C3D)
    )
  )
  (princ)
)