Import Surface Styles

[CharlieDFW]

Is it possible to import surface styles from my template using lisp? I asked Claude and the lisp provided inserts all object styles. 

;;-------------------------=={ Import Alignment Styles }==---------------;;
;;                                                                      ;;
;;  Imports Alignment Styles from Power Generation template            ;;
;;  Uses INSERT method to import block with embedded styles            ;;
;;                                                                      ;;
;;----------------------------------------------------------------------;;

(defun C:PG-INS-ALIGN ( / template_dwg curecho curlayer block_name *error*)
	
	;; Error handler
	(defun *error* (msg)
		(if curecho (setvar "CMDECHO" curecho))
		(if curlayer (setvar "CLAYER" curlayer))
		(if (not (member msg '("Function cancelled" "quit / exit abort")))
			(princ (strcat "\nError: " msg))
		)
		(princ)
	)
	
	;; Save current settings
	(setq curecho (getvar "CMDECHO"))
	(setq curlayer (getvar "CLAYER"))
	(setvar "CMDECHO" 0)
	
	;; Set template path and block name
	(setq template_dwg "C:/WSB-DT/Autodesk/Power Generation/Templates/Utility Scale Solar/RENEWABLES-CT-DESIGN.dwt")
	(setq block_name "TPLT-Alignment-Styles")
	
	;; Check if template file exists
	(if (findfile template_dwg)
		(progn
			(princ "\n----------\nImporting Alignment Styles...")
			
			;; Set layer to 0
			(setvar "CLAYER" "0")
			
			;; Insert block from template
			;; Format: blockname=filepath
			(command "_.INSERT" 
					 (strcat block_name "=" template_dwg) 
					 "0,0,0"    ; Insertion point
					 ""         ; X scale (default)
					 ""         ; Y scale (default)
					 "")        ; Rotation (default)
			
			;; Check if insert was successful
			(if (entlast)
				(progn
					;; Explode the inserted block
					(command "_.EXPLODE" (entlast))
					
					;; Purge the block definition
					(command "._-PURGE" "_B" block_name "_N")
					
					;; Run audit to verify drawing integrity
					(command "._AUDIT" "_Y")
					
					(princ "\n----------\nPower Generation Alignment Styles Have Been Imported!")
				)
				(progn
					(princ "\n----------\nERROR: Block insertion failed!")
					(princ (strcat "\nBlock '" block_name "' not found in template"))
					(princ "\n----------")
				)
			)
			
			;; Restore settings
			(setvar "CLAYER" curlayer)
			(setvar "CMDECHO" curecho)
		)
		(progn
			;; Template file not found
			(setvar "CMDECHO" curecho)
			(princ "\n----------\nERROR: Template file not found!")
			(princ (strcat "\nLooking for: " template_dwg))
			(princ "\nPlease verify the path is correct")
			(princ "\n----------")
		)
	)
	
	(princ)
)

;;----------------------------------------------------------------------;;
;;                        Load Confirmation                             ;;
;;----------------------------------------------------------------------;;
(princ "\n----------")
(princ "\nAlignment Style Import Command Loaded:")
(princ "\n  PG-INS-ALIGN - Import Alignment Styles")
(princ "\n")
(princ "\nNote: Template must contain a block named 'TPLT-Alignment-Styles'")
(princ "\n      with embedded alignment style definitions")
(princ "\n----------")
(princ)

 

[BIGAL]

Getting inside the CIV3D database can be difficult. Its not a straight forward task to just get this item out of a CIV3D dwg. I did a few tasks re CIV3D and often have to look at different spots in the data base than what you would think hold the information your after.

 

One thing I did was a IMPORT Description key sets, as you could only export. I did some other stuff with surface styles, I have a toolbar that allows you to set the current surface style without using Toolspace set contour interval, on/off etc.

 

 

In Civ3D depending on version there is sample code for making different CIV3D objects like import points, make a surface style, I have limited access to CIV3D but the sample code is a few levels deep in the CIV3D directory, they have lisp and .NET examples. I think in later releases they removed some of the sample code. I will see if I can find something.

 

Have a look at this. 
https://www.google.com/search?q=get+alignment+style+detials+civ3d+autolisp&rlz=1C1CHBF_enAU856AU856&oq=get+alignment+style+detials+civ3d+autolisp&gs_lcrp=EgZjaHJvbWUyBggAEEUYOTIJCAEQIRgKGKABMgcIAhAhGI8CMgcIAxAhGI8C0gEKMTcxMDRqMGoxNagCCLACAfEFrEvci61nuFXxBaxL3IutZ7hV&sourceid=chrome&ie=UTF-8

 

 

Edited 1 hour ago by BIGAL