Hi, Dear All
I am using this program to get all the required values for my Property Sets , the only issue here is how can i put the value back to my Property set , "see in the image attached" .
Thanks
(defun c:test1 ( / ss pipeobj sp ep dia)
(princ "\nSelect Pipe Object: ")
(setq ss (ssget ":s" '((0 . "AECC_PIPE"))))
(if ss
(progn
(setq pipeObj (vlax-ename->vla-object (ssname ss 0)))
(setq Pipe-Deep (Vlax-vla-object->ename Pipeobj))
(setq sp (vlax-safearray->list (vlax-variant-value (vlax-get-property pipeObj 'PointAtParam 0))))
(setq ep (vlax-safearray->list (vlax-variant-value (vlax-get-property pipeObj 'PointAtParam 1))))
(setq dia (vlax-get-property pipeObj 'InnerDiameterOrWidth))
(setq PipeName (vlax-get-property pipeObj 'Name))
(setq Pipe_North_Start_Pt (rtos (cadr sp) 2 2))
(setq Pipe_Easting_Start_Pt (rtos (car sp) 2 2))
(setq Start_Invert_Level (rtos (- (caddr sp)(/ dia 2.0)) 2 2))
(setq Pipe_Northing_End_Pt (rtos (car ep) 2 2))
(setq Pipe_Easting_End_Pt (rtos (car ep) 2 2))
(setq End_Invert_Level (rtos (- (caddr ep)(/ dia 2.0)) 2 2))
(setq Pipe_length (Distance sp ep))
(setq Pipe_Name (vlax-get-property pipeObj 'Description))
(setq Pipe_Material (vlax-get-property pipeObj 'Material))
(setq Pipe_3dLength (vlax-get-property pipeObj 'Length3D))
)
)
(princ)
)
