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)
)
(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))
(vlax-put-property pipeobj 'PipeName Pipe_Name), Here i have the problem Property Get Sentence is working very well but Property Put sentence is not working can you tell where is the problem,
) ) (princ) )
Can't find what you're looking for? Ask the community or share your knowledge.